K718
Jun 30th, 2006, 12:10 AM
Hi :wave: ,
Anyone know what does this code says?I'm a newbie in this area.Thanks for your help in advance.
Private Sub Timer5_Timer()
Dim buffer() As Byte
ReDim buffer(8)
buffer(0) = 2 'to read
buffer(1) = 20
buffer(2) = 6
buffer(3) = 0
HIDComm1.WriteTo buffer, 8
buffer() = HIDComm1.ReadFrom(8)
If buffer(4) = 2 Then 'Checks if character is selected.
Label1(i).ForeColor = vbBlack
ShowLetter (i)
End If
End Sub
Anyone know what does this code says?I'm a newbie in this area.Thanks for your help in advance.
Private Sub Timer5_Timer()
Dim buffer() As Byte
ReDim buffer(8)
buffer(0) = 2 'to read
buffer(1) = 20
buffer(2) = 6
buffer(3) = 0
HIDComm1.WriteTo buffer, 8
buffer() = HIDComm1.ReadFrom(8)
If buffer(4) = 2 Then 'Checks if character is selected.
Label1(i).ForeColor = vbBlack
ShowLetter (i)
End If
End Sub