PEAK-System Forum

Neuster Versuch, gibt es irgend eine Anweisung die den Signalen eine 1 zuweist?


Sub HeartbeatStart()
Dim msgs, msg
Dim sende

Set sende = Signals("Sendesignal")
If sende Is Nothing Then
Set sende = Signals.Add("Sendesignal")
sende = sende.Datatype = peDataTypeFloat
End If



Set msgs ...

Public Sub HeartbeatStart()
Dim msgs, msg, send

Set msgs = Connections.TransmitMessages.FindID(&H110)

Set send = Signals("Sendesignal")
If send Is Nothing Then
Set send = Signals.Add("Sendesignal")
send.Datatype = peDataTypeFloat
End If


If msgs.Count = 0 Then
' Neue Heartbeat ...

Theoretisch habe ich mir das auch so gedacht, leider funktioniert keine Möglichkeit meines Syntax.

Vielen Dank für die Antwort.

Wäre es jetzt noch möglich eine LED leuchten zu lassen wenn der Heartbeat auch an ist.

Wie kann man ein Signal auf "=1" setzen wenn HeartbeatStart() aktiv ist?

Hallo Peak Team,


wie kann man mit einem Toggle Switch im geschalteten Zustand "On" einen Heartbeat zyklisch senden (Nicht wie im Beispiel NewClientSend() als Sender für Empfänger fungieren sondern nur Senden). Dieser soll natürlich im Zustand "Off" stoppen.

Vielen Dank schon mal