arduino+vb6

Projects Interfacing w/ Software on the Computer
45

First build visual basic 6 project :

Added to the form1 :

  1. Label1
  2. Shape1 then copy it to 8 Piece. *It will be array sequence so the name will be = shape1(0) to shape1(7)
  3. MSComm1

Open on source code interface copy and paste this source code :

Dim angka(8) As Integer //--> this smile will be your enemy 8 )

Private Sub Form_Load()
For i = 0 To 7
Shape1(i).FillStyle = 0
Shape1(i).FillColor = vbRed
angka(i) = "0"
Next
MSComm1.RThreshold = 8
MSComm1.InputLen = 8
MSComm1.Settings = "9600,n,8,1"
MSComm1.CommPort = 2
MSComm1.PortOpen = True
MSComm1.DTREnable = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
sData = MSComm1.Input
Label1.Caption = ""
For i = 0 To 7
angka(i) = Asc(Mid$(sData, i + 1, 1))
Label1.Caption = angka(i) & Label1.Caption
If angka(i) = "1" Then
Shape1(i).FillColor = vbYellow
Else
Shape1(i).FillColor = vbRed
End If
Next
End If
End Sub

After done make sure you setup the comport number on the visual basic same with your arduino used.