PEAK-System Forum

Lösung

Sub Messung()
Dim zaehler
For zaehler = 0 To 5000 Step 50
Dim msg, highbyte, lowbyte
lowbyte = zaehler Mod 256
highbyte = zaehler\256
Set msg = Connections.TransmitMessages.Add
With msg
.BeginUpdate
Set .Connection = Connections(1)
.ID = &H248
.DLC = 2
.Data(0) = lowbyte
.Data(1 ...

Hallo,

ich möchte CAN-Messages senden, in der alle 1000ms eine Variable in den Bytes 0 und 1 hochgezählt wird. Folgender Code:
Sub Messung()
Dim zaehler
For zaehler = 0 To 5000 Step 50
Dim msg
Set msg = Connections.TransmitMessages.Add
With msg
.BeginUpdate
Set .Connection = Connections(1 ...

Super, danke für die Antwort!

MfG Misch

Hallo,

ich komme seit einiger Zeit trotz Foren lesen, Googeln etc. bei folgendem Problem nicht weiter:

Ich bekomme eine best. Can-Nachricht. Habe diese auch als Symbol definiert. Diese Nachricht wird genau einmal gesendet. Wenn sie eingetroffen ist, soll nach Möglichkeit eine Objekt-LED im Panel ...