KONTROLLERANDE DC med VISUAL BASIC (3 / 3 steg)
Steg 3: Kodning:-
Allmän klass Motor_Control
"Här gör vi deklaration av variabler som vi använder" variabeln "Conectado" tillåter oss att veta status för conection Dim Conectado som Boolean "variabeln"tapperhet"kommer att vara den som tar emot det värde som vi skickar till Arduino
Dim värde som strängen "vid nära"Motor_Control"bildar också nära den seriella porten"SPort"Private Sub Motor_Control_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) hanterar Me.FormClosed SPort.Close() End Sub
"När du fyller i formuläret vi inaktivera knappen"ON"och"OFF"
Private Sub Motor_Control_Load (ByVal avsändaren som System.Object, ByVal e som System.EventArgs) hanterar MyBase.Load CmdON.Enabled = False CmdOFF.Enabled = False End Sub
"Knappen"Anslut"tillåter oss att ansluta datorn till Arduino efter Välj seriell port i Combobox"cmbSerialPorts"
CmdConectar_Click Private Sub (ByVal avsändaren som System.Object, ByVal e som System.EventArgs) handtag cmdConectar.Click ' om det finns ingen conection om Conectado = False Then
"Ladda combobox med PC seriella portar för varje PuertosDisponibles som sträng i My.Computer.Ports.SerialPortNames cmbSerialPorts.Items.Add (PuertosDisponibles) nästa
"Om allt annat i Combobox lista om cmbSerialPorts.Items.Count > 0 då" ändra combobox text cmbSerialPorts.Text = cmbSerialPorts.Items (0) "ändra värdet för namnet på serieporten till valda värdet i kombinationsrutan lista SPort.PortName = cmbSerialPorts.Text ' öppna den seriella port (SPort.Open)" och aktivera knappen "ON" "OFF" CmdON.Enabled = True CmdOFF.Enabled = True "vi inaktiveras knappen"Connectar"cmdConectar.Enabled = falskt MsgBox ("CONECTADO")" variabeln "Conectado" är sann "Conectado" = sant annat "om inga portar visas ett meddelande MsgBox ("nej hamnen finns") slutet om annat" I slutet vi stänga den port SPort.Close () MsgBox ("DISCONECTED") Conectado = False End om End Sub
Private Sub CmdON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar CmdON.Click ' om där conection om Conectado = True Then "variabel"värde"har värdet"1"att aktivera motoriska värdet ="1"" skicka värdet till porten SPort.Write (värde) "överbord data från serieporten sändnings buffert SPort.DiscardOutBuffer () slutet om End Sub
CmdOFF_Click Private Sub (ByVal avsändaren som System.Object, ByVal e som System.EventArgs) hanterar CmdOFF.Click om Conectado = True Then "variabel"värde"har värdet"0"till desactivate motor värde ="0"SPort.Write (värde) SPort.DiscardOutBuffer () slutet om End Sub