hi,
ich arbeite mit eine K8090 auf der sich 8 Relays befinden. Ich habe in VB den Folgenden Code geschrieden um die Relays einzel durch ein Timer anzusteuern. die k8090 befehle sind K8090. SwitchOn (&H1) K8090. SwitchOff (&H1), (&H1) gibt an welches Relays angesteuert wird, wobei die Zahl in den Klammern kan sich als Hexedezimalzahl von 1 bis 8 geendert werden.
Problem:
TextBox1 timer2 funktioniert (SwitchOn), TextBox2 timer2 funktioniert (SwitchOff)
TextBox3 timer4 funktioniert nicht (SwitchOn), TextBox4 timer5 funktioniert nicht (SwitchOff)
Hier ist der Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start() 'starts time in Label1
Timer2.Start()
Timer3.Start()
Timer4.Start()
Timer5.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Format(TimeOfDay)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TextBox1.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOn(&H1) 'hexadecimal (8 bit code) for velleman board, relay 1
K8090.Disconnect()
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If TextBox2.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOff(&H1)
K8090.Disconnect()
End If
End Sub 'works fine up to here
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
If TextBox3.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOn(&H80) 'hexadecimal (8 bit code) for velleman board, relay 8
K8090.Disconnect()
End If
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If TextBox4.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOff(&H80)
K8090.Disconnect()
End If
End Sub
End Class
ich arbeite mit eine K8090 auf der sich 8 Relays befinden. Ich habe in VB den Folgenden Code geschrieden um die Relays einzel durch ein Timer anzusteuern. die k8090 befehle sind K8090. SwitchOn (&H1) K8090. SwitchOff (&H1), (&H1) gibt an welches Relays angesteuert wird, wobei die Zahl in den Klammern kan sich als Hexedezimalzahl von 1 bis 8 geendert werden.
Problem:
TextBox1 timer2 funktioniert (SwitchOn), TextBox2 timer2 funktioniert (SwitchOff)
TextBox3 timer4 funktioniert nicht (SwitchOn), TextBox4 timer5 funktioniert nicht (SwitchOff)
Hier ist der Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start() 'starts time in Label1
Timer2.Start()
Timer3.Start()
Timer4.Start()
Timer5.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Format(TimeOfDay)
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TextBox1.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOn(&H1) 'hexadecimal (8 bit code) for velleman board, relay 1
K8090.Disconnect()
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If TextBox2.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOff(&H1)
K8090.Disconnect()
End If
End Sub 'works fine up to here
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
If TextBox3.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOn(&H80) 'hexadecimal (8 bit code) for velleman board, relay 8
K8090.Disconnect()
End If
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If TextBox4.Text = Label1.Text Then
K8090.Connect()
K8090.SwitchRelayOff(&H80)
K8090.Disconnect()
End If
End Sub
End Class