Oto Town Yapımı

If Check3.Value = 1 Then
Timer31.Enabled = True
Else
Timer31.Enabled = False
End If
End Sub

Timer özellikleri : İnvertal 1000 , False

Kodları :

If Label1.Caption > Text2.Text Then
Dim pBytes() As Byte
Dim pStr As String
pStr = Trim$("4800")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End If
End Sub