belajar mengaktifkan LED dengan VB 6 dengan arduino

disini kita akan belajar tentang serial communication dengan interface VB 6 dengan plan 3 buah LED merah kuning dan hijau

saya mengaktifkan LED merah dengan menggirim variable "A" untuk mengaktifkan dan variable "a" untuk mematikan
saya mengaktifkan LED kuning dengan menggirim variable "B" untuk mengaktifkan dan variable "b" untuk mematikan
saya mengaktifkan LED hijau dengan menggirim variable "C" untuk mengaktifkan dan variable "c" untuk mematikan

ini adalah program di VB 6 nya

Dim haha As Integer
Dim hehe As Integer
Dim hoho As Integer




Private Sub Command4_Click()
MSComm1.PortOpen = True

End Sub

Private Sub Command5_Click()
MSComm1.PortOpen = False
End Sub

Private Sub Form_Load()

haha = 0
hehe = 0
hoho = 0
End Sub
Private Sub Command1_Click()


If haha = 0 Then
Label1.BackColor = &HFF&
MSComm1.Output = "A"
haha = 1

ElseIf haha = 1 Then
Label1.BackColor = &H80000010
MSComm1.Output = "a"
haha = 0
End If
End Sub

Private Sub Command2_Click()
If hehe = 0 Then
Label2.BackColor = &HFFFF&
MSComm1.Output = "B"
hehe = 1

ElseIf hehe = 1 Then
Label2.BackColor = &H80000010
MSComm1.Output = "b"
hehe = 0
End If
End Sub


Private Sub Command3_Click()
If hoho = 0 Then
Label3.BackColor = &HFF00&
MSComm1.Output = "C"
hoho = 1

ElseIf hoho = 1 Then
Label3.BackColor = &H80000010
MSComm1.Output = "c"
hoho = 0
End If
End Sub

ini adalah interface VB 6 dengan tombol 5 connect, disconnect, merah, kuning dan hijau

di program arduinonya menggunakan switch  case untuk mengolah serial yang diterima dari VB6



Berikut ini merupakan video hasilnya :