作者ktrt (越前龙育)
看板Visual_Basic
标题[VB6 ] 有关案键的小问题
时间Tue Dec 2 21:19:35 2008
想请问一下,我这是可以用rs232控制车子跑的程式,但有个问题就是当我第一次按直走时
它会执行直走的方向
但是当我第二次按右前的方向时
它还是会执行直走的方向
当我第三次执行右前的方向时
它才会真正的执行右前的方向
这是我的程式码
Private Sub Back_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(50)
End Sub
Private Sub Back_KeyUp(KeyCode As Integer, Shift As Integer)
Chr (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
Private Sub check_key(key As Integer)
If key = 49 Then
Turnleftback.SetFocus
End If
If key = 50 Then
Back.SetFocus
End If
If key = 51 Then
Turnrightback.SetFocus
End If
If key = 53 Then
End If
If key = 55 Then
ForwardTurnleft.SetFocus
End If
If key = 56 Then
Forward.SetFocus
End If
If key = 57 Then
ForwardTurnright.SetFocus
End If
End Sub
Private Sub Forward_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(56)
End Sub
Private Sub Forward_KeyUp(KeyCode As Integer, Shift As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
Private Sub ForwardTurnleft_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(55)
End Sub
Private Sub ForwardTurnleft_KeyUp(KeyCode As Integer, Shift As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
Private Sub ForwardTurnright_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(57)
End Sub
Private Sub ForwardTurnright_KeyUp(KeyCode As Integer, Shift As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
Private Sub stop_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
Private Sub Turnleftback_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(49)
End Sub
Private Sub Turnleftback_KeyUp(KeyCode As Integer, Shift As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
Private Sub Turnrightback_KeyPress(KeyAscii As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(51)
End Sub
Private Sub Turnrightback_KeyUp(KeyCode As Integer, Shift As Integer)
check_key (KeyAscii)
MSComm1.Output = Chr(53)
End Sub
如果要改需要改哪里,现在充满疑惑中
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.70.157.158