mecatrontec

Ola Kuroi, Muito obrigado pela ajuda, infelizmente eu não consegui aplicar suas sugestões no meu código. eu sou novato em programação e tenho apenas um mês que inicieis em VB. se não for incomodar muito, você pode me orientar mais um pouco, com exemplo? Muito obrigado.

Ola a todos, meu nome é Cláudio, estou precisando de ajuda para proteger um motor quando uso as teclas o teclado no Visual Basic 6.0. Eu já consegui fazer o motor funcionar usando o teclado, quando pressiona a tecla "A" o motor gira para um lado, quando solta a tecla o motor para de funcionar, a mesma coisa acontece com a tecla "B" girando para outro lado, como no código abaixo. O problema é que ao pressionar as teclas " A e B " ao mesmo tempo, isto provoca um curto circuito na placa eletronica que ativa o motor. O que eu preciso é que quando pressionar a tecla " A " a tecla "B" fique desabilitada enquanto a tecla "A" estiver pressionada, e o mesmo aconteca com a letra "B". Desde já muito Obrigado. visual basic 6.0 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '-------------------------------------------------------------------------------------------------- If (vbCode = vbKeyA) Then '01 up Command1.Enabled = False inicia = True motor = "1" estado = "1" MSComm1.Output = "IF" + motor + estado + Chr(13) Command4.BackColor = &H80FF80 End If '---------------------------------------------------------------------------------------------------- If (KeyCode = vbKeyB) Then '02 down Command4.Enabled = False inicia = True motor = "2" estado = "1" MSComm1.Output = "IF" + motor + estado + Chr(13) Command1.BackColor = &H80FF80 End If '-------------------------------------------------------------------------------------------------------- Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyA) Then '01 up Command1.Enabled = True inicia = True motor = "1" estado = "0" MSComm1.Output = "IF" + motor + estado + Chr(13) Command4.BackColor = &HE0E0E0 End If '--------------------------------------------------------------------------------------------------------- If (KeyCode = vbKeyB) Then '02 down Command4.Enabled = True inicia = True motor = "2" estado = "0" MSComm1.Output = "IF" + motor + estado + Chr(13) Command1.BackColor = &HE0E0E0 End if