Robot Vb 60

Option Explicit
Dim a As Integer
Public Out_TTL As Byte 'contiene el BYTE a sacar por el puerto
Public In_Port As Integer 'continen la direccion de lectura del LPT
Public Out_PortAs Integer
Private Sub Form_Load() 'se debe elegir la posicion de la placa paralelo
Out_Port = &H378 'Out_Port = &H278 Out_Port = &H3BC
End Sub

Private SubCommand1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetPortBit Out_Port, 0 'se pone un uno en el pin 2
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)
ClrPortBit Out_Port, 0 'se pone un cero en el pin 2
End Sub

Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetPortBit Out_Port,1 'se pone un uno en el pin 3
End Sub

Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ClrPortBit Out_Port, 1 'se pone un cero en el pin 3
End SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetPortBit Out_Port, 2 'se pone un uno en el pin4
End Sub

Private Sub Command3_MouseUp(Button AsInteger, Shift As Integer, X As Single, Y As Single)
ClrPortBit Out_Port, 2 'se pone un cero en el pin 4
End Sub

Private Sub Command4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y AsSingle)
SetPortBit Out_Port, 3 'se pone un uno en el pin4
End Sub

Private Sub Command4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ClrPortBit Out_Port, 3 'se pone uncero en el pin 4
End Sub

Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetPortBit Out_Port, 4 'se pone un uno en el pin5
End Sub

Private SubCommand5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ClrPortBit Out_Port, 4 'se pone un cero en el pin 5
End Sub

Private Sub Command6_MouseDown(Button As Integer, Shift...