[VB6 ] 有關案鍵的小問題
想請問一下,我這是可以用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