Button ON VB to Omron PLC

Button ON VB to Omron PLC

in this post , I'd like to Change the state of PLC (run,monitor,stop) fromthe VB.I send the command from VB to PLC and then PLC responds and the changetheir state , please make VB interface below::

Then Write Source code below
Dim data 'General Declaration
Private Sub kirim()
Dat$ = data
l = Len(Dat$)
A = 0
For I = 1 To l Opo$ = Mid$(Dat$, I, 1)
A = Asc(Opo$) Xor A Next I

FCS$ = Hex$(A)
If Len(FCS$) = 1 Then
FCS$ = "0" + FCS$
End If
DatTX$ = Dat$ + FCS$ + "*" + Chr$(13)
MSComm1.Output = DatTX$
End Sub

Private Sub Command1_Click()
Timer1 = True
End Sub

Private Sub Command10_Click()
Timer8 = True
End Sub

Private Sub Command11_Click()
Timer12 = True
End Sub

Private Sub Command12_Click()
Timer10 = True
End Sub

Private Sub Command2_Click()
Timer3 = True
End Sub

Private Sub Command3_Click()
Timer5 = True
End Sub



Private Sub Command5_Click()
bil = 1
Do
data = "@00WR00120001"
kirim
bil = bil + 1
Loop Until bil = 4
Timer6 = True
End Sub

Private Sub Command6_Click()
Timer5 = False
bil = 1
Do
data = "@00WR00120000"
kirim
bil = bil + 1
Loop Until bil = 4
Timer6 = False
End Sub

Private Sub Command7_Click()
Timer7 = True

End Sub

Private Sub Command8_Click()
Timer9 = True
End Sub

Private Sub Command9_Click()
Timer11 = True
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1 '(port PCcomm1,tapi tergantung PC anda)
MSComm1.Settings = "9600, e, 7, 2"'(harus sama PC dan PLC)
MSComm1.PortOpen = True
End Sub

Private Sub Timer1_Timer()
bil = 1
Do
data = "@00WR00100001"
kirim
bil = bil + 1
Loop Until bil = 8
Timer2 = True
End Sub

Private Sub Timer10_Timer()
bil = 1
Do
data = "@00WR00170000"
kirim
bil = bil + 1
Loop Until bil = 8
Timer10 = False
End Sub

Private Sub Timer11_Timer()
bil = 1
Do
data = "@00WR00180001"
kirim
bil = bil + 1
Loop Until bil = 8
Timer11 = False
End Sub

Private Sub Timer12_Timer()
bil = 1
Do
data = "@00WR00180000"
kirim
bil = bil + 1
Loop Until bil = 8
Timer12 = False
End Sub

Private Sub Timer2_Timer()
Timer1 = False
bil = 1
Do
data = "@00WR00100000"
kirim
bil = bil + 1
Loop Until bil = 8
Timer2 = False
End Sub

Private Sub Timer3_Timer()
bil = 1
Do
data = "@00WR00110001"
kirim
bil = bil + 1
Loop Until bil = 8
Timer4 = True
End Sub

Private Sub Timer4_Timer()
Timer3 = False
bil = 1
Do
data = "@00WR00110000"
kirim
bil = bil + 1
Loop Until bil = 8
Timer4 = False
End Sub

Private Sub Timer5_Timer()
bil = 1
Do
data = "@00WR00120001"
kirim
bil = bil + 1
Loop Until bil = 8
Timer6 = True

End Sub

Private Sub Timer6_Timer()
Timer5 = False
bil = 1
Do
data = "@00WR00120000"
kirim
bil = bil + 1
Loop Until bil = 8
Timer6 = False
End Sub

Private Sub Timer7_Timer()
bil = 1
Do
data = "@00WR00160001"
kirim
bil = bil + 1
Loop Until bil = 8
Timer7 = False

End Sub

Private Sub Timer8_Timer()
bil = 1
Do
data = "@00WR00160000"
kirim
bil = bil + 1
Loop Until bil = 8
Timer8 = False
End Sub

Private Sub Timer9_Timer()
bil = 1
Do
data = "@00WR00170001"
kirim
bil = bil + 1
Loop Until bil = 8
Timer9 = False
End Sub