Stap 3: Visual basic 6.0-programma
formulier weergegeven in afbeelding maken
Programma voor Visual basic 6 (Led op uit Control Software)
Private Sub EXIT_Click()
Form1.Hide
End Sub
Private Sub Form_Load()
MSComm1.RThreshold = 3
MSComm1.Settings = "9600, n 8, 1"
MSComm1.CommPort = 2 / / (schrijven nummer van de poort waarop uw Arduino Board is beschikbaar).
MSComm1.PortOpen = True
MSComm1.DTREnable = False
Text1.Text = ""
Shape1.FillColor = vbRed
End Sub
Private Sub TURNOFF_Click()
MSComm1.Output = "b"
Text1.Text = "LED IS uit"
Shape1.FillColor = vbRed
End Sub
Private Sub TURNON_Click()
MSComm1.Output = "a"
Text1.Text = "LED brandt"
Shape1.FillColor = vbGreen
End Sub