Public Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Data As Byte)
Public Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte
Public Declare Function IsDriverInstalled Lib "io.dll" () As Boolean
Public a As Byte 'define y hace publica la variable a
' rutina al presionar el button1 osea la de para arriba
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
a = PortIn(888) + 1 'lee el estado del puerto y agrea 1 para encender el bit 0 del puerto
PortOut(888, a) ' envia el nuevo dato al puerto
End Sub
' rutina al soltar el button1 osea la de para arriba
Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
a = PortIn(888) - 1 'lee el estado del puerto y quita 1 para apagar el bit 0
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
' rutina al presionar el button3 osea la de para abajo
Private Sub Button3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseDown
a = PortIn(888) + 2 'lee el estado del puerto y agrea 2 para encender el bit 1 del puerto
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
' rutina al soltar el button3 osea la de para abajo
Private Sub Button3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseUp
a = PortIn(888) - 2 'lee el estado del puerto y quita 2 para apagar el bit 1 del puerto
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
' rutina al presionar el button2 osea la de para la derecha
Private Sub Button2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseDown
a = PortIn(888) + 4 'lee el estado del puerto y agrea 4 para encender el bit 2 del puerto
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
' rutina al soltar el button2 osea la de para la derecha
Private Sub Button2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseUp
a = PortIn(888) - 4 'lee el estado del puerto y quita 4 para apagar el bit 2 del puerto
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
' rutina al presionar el button4 o sea la de para la izquierda
Private Sub Button4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseDown
a = PortIn(888) + 8 'lee el estado del puerto y agrea 8 para encender el bit 3 del puerto
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
' rutina al soltar el button4 o sea la de para la izquierda
Private Sub Button4_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseUp
a = PortIn(888) - 8 'lee el estado del puerto y quita 8 para apagar el bit 3 del puerto
PortOut(888, a) 'envia el nuevo dato al puerto
End Sub
'recuerda que en binario se toma de derecha a izquierda
' son 8 bits del puerto entonces seria...
' 0 0 0 0 8 4 2 1
'por eso se suma el 1 o 2 o 4 o 8
