Hallo,
ich versuche ein Relaisboard mit 4 Relais anzusteuern.
Das erste Relais schaltet, die anderen nicht...
Mit einem Programm, was bei der Relaiskarte bei liegt, kann man alle Relais einzeln bedienen.
In der Beschreibung steht:
Communication Parameter: 8 Data, 1 Stop, No Parity - Baud rate: 9600 <- soweit ok
Commands: FIRST canal commands: OFF command: FF 01 00 (HEX) or 255 1 0 (DEC) - ON commands: ff 01 01 (HEX) or 255 1 1 (DEC)
Commands: SECOND canal commands: OFF command: FF 02 00 (HEX) or 255 2 0 (DEC) - ON commands: ff 02 01 (HEX) or 255 2 1 (DEC)
Commands: THIRD canal commands: OFF command: FF 03 00 (HEX) or 255 3 0 (DEC) - ON commands: ff 03 01 (HEX) or 255 3 1 (DEC)
Commands: FOURTH canal commands: OFF command: FF 04 00 (HEX) or 255 4 0 (DEC) - ON commands: ff 04 01 (HEX) or 255 4 1 (DEC)
Ich habe nun 2 Stunden getestet und gelesen/gegoogelt. Ich bekomme einfach hin.
Ich habe es auch schon mit WriteLine und dann das Kommando in einer "Sendung" versucht zu übertragen...
Ich bekomme nur das Erste Relais an.
Hat jemand Rat?
Gruß TommiB
ich versuche ein Relaisboard mit 4 Relais anzusteuern.
Das erste Relais schaltet, die anderen nicht...
Mit einem Programm, was bei der Relaiskarte bei liegt, kann man alle Relais einzeln bedienen.
In der Beschreibung steht:
Communication Parameter: 8 Data, 1 Stop, No Parity - Baud rate: 9600 <- soweit ok
Commands: FIRST canal commands: OFF command: FF 01 00 (HEX) or 255 1 0 (DEC) - ON commands: ff 01 01 (HEX) or 255 1 1 (DEC)
Commands: SECOND canal commands: OFF command: FF 02 00 (HEX) or 255 2 0 (DEC) - ON commands: ff 02 01 (HEX) or 255 2 1 (DEC)
Commands: THIRD canal commands: OFF command: FF 03 00 (HEX) or 255 3 0 (DEC) - ON commands: ff 03 01 (HEX) or 255 3 1 (DEC)
Commands: FOURTH canal commands: OFF command: FF 04 00 (HEX) or 255 4 0 (DEC) - ON commands: ff 04 01 (HEX) or 255 4 1 (DEC)
Ich habe nun 2 Stunden getestet und gelesen/gegoogelt. Ich bekomme einfach hin.
VB.NET-Quellcode
- Public Class Form1
- Dim a As Boolean = False
- Dim b As Boolean = False
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- SerialPort1.Open()
- End Sub
- Private Sub form1_formClosing() Handles Me.FormClosing
- SerialPort1.Close()
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If a Then
- SerialPort1.Write(255)
- SerialPort1.Write(1)
- SerialPort1.Write(0)
- Else
- SerialPort1.Write(255)
- SerialPort1.Write(1)
- SerialPort1.Write(1)
- End If
- a = Not a
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- If b Then
- SerialPort1.Write(255)
- SerialPort1.Write(3)
- SerialPort1.Write(0)
- Else
- SerialPort1.Write(255)
- SerialPort1.Write(3)
- SerialPort1.Write(1)
- End If
- b = Not b
- End Sub
- End Class
Ich habe es auch schon mit WriteLine und dann das Kommando in einer "Sendung" versucht zu übertragen...
Ich bekomme nur das Erste Relais an.
Hat jemand Rat?
Gruß TommiB