pero con xp, no hace nada las señales de portout no hacen nada.
Que estoy haciendo mal?.
Muchas gracias por su ayuda.
Código:
Dim activacion As Integer
Private Sub Command1_Click()
activacion = 1
PortOut &H378, 1
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
activacion = 2
PortOut &H378, 4
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
PortOut &H378, 0
End
End Sub
Private Sub Timer1_Timer()
If (activacion = 1) Then
PortOut &H378, 4
activacion = 2
Else
PortOut &H378, 1
activacion = 1
End If
End Sub
Private Sub Command1_Click()
activacion = 1
PortOut &H378, 1
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
activacion = 2
PortOut &H378, 4
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
PortOut &H378, 0
End
End Sub
Private Sub Timer1_Timer()
If (activacion = 1) Then
PortOut &H378, 4
activacion = 2
Else
PortOut &H378, 1
activacion = 1
End If
End Sub