Stap 3: Codering:-
Openbare klasse Motor_Control
' Hier maken we de verklaring van de variabelen die we gebruiken "variabele"Conectado"laat ons toe om de status van conection Dim Conectado As Boolean weten ' de variabele"valor"degene die ontvangt de waarde die wij naar Arduino sturen zal worden
Dim waarde As String ' ook dicht bij het sluiten van "Motor_Control" vormen de seriële poort "SPort" Private Sub Motor_Control_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) behandelt Me.FormClosed SPort.Close() End Sub
' Bij het laden van het formulier we uitschakelen van de knop "ON" en "OFF"
Private Sub Motor_Control_Load (ByVal sender As System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load CmdON.Enabled = False CmdOFF.Enabled = False End Sub
' De knop 'Verbind' stelt ons in staat de PC aansluiten op de Arduino na selecteren seriële poort in de Combobox "cmbSerialPorts"
CmdConectar_Click Private Sub (ByVal sender As System.Object, ByVal e als System.EventArgs) Handles cmdConectar.Click ' als er geen aansluiting als Conectado = False Then
' Volgende laden van combobox met de PC seriële poorten voor elke PuertosDisponibles als String In My.Computer.Ports.SerialPortNames cmbSerialPorts.Items.Add (PuertosDisponibles)
' Als om het even wat in Combobox lijst als cmbSerialPorts.Items.Count > 0 Then ' wijzigen van de combobox tekst cmbSerialPorts.Text = cmbSerialPorts.Items (0) ' Wijzig de waarde van de naam van de seriële poort in de geselecteerde waarde in de lijst van de combobox SPort.PortName = cmbSerialPorts.Text ' Open de seriële poort (van SPort.Open) ' en activeer de "ON"-knop "OFF" CmdON.Enabled = True CmdOFF.Enabled = True ' We uitgeschakeld de knop "Connectar" cmdConectar.Enabled = False MsgBox ("CONECTADO") ' de variabele "Conectado" is een ware "Conectado" = True anders 'als geen poorten uiterlijk vertoon een depêche MsgBox ("nee poort vinden") End If Else' Aan het einde sluiten we de poort SPort.Close: MsgBox ("DISCONECTED") Conectado = False End als End Sub
Private Sub CmdON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt CmdON.Click ' als er aansluiting als Conectado = True Then ' "Waarde van de variabele" hebben de waarde "1" om te activeren van de motor waarde = "1" ' de waarde verzenden naar de poort SPort.Write (waarde) ' teruggooi gegevens uit de seriële poort verzend buffer SPort.DiscardOutBuffer () End als End Sub
CmdOFF_Click Private Sub (ByVal sender As System.Object, ByVal e als System.EventArgs) omgaat met CmdOFF.Click als met Conectado = True Then ' "Waarde van de variabele" hebben de waarde "0" Deactiveer de motor waarde = "0" SPort.Write (waarde) SPort.DiscardOutBuffer () End als End Sub