JÄGER ADwin-Pro II Systembeschreibung Seite 233

ADwin
Beispiel
REM Sendet eine 32 Bit-FLOAT-Zahl (hier: Pi) als Folge von
REM 4 Bytes in einem Message-Objekt
REM (Empfangen einer Fließkomma-Zahl siehe Bsp. bei P2_Read_Msg)
#Include ADwinPro_All.inc
#Define pi 3.14159265
Dim i As Long
Init:
P2_Init_CAN(1,1)
REM Initialisiere das Message-Objekt 6
REM zum Senden von CAN-Nachrichten mit dem Identifier 40
P2_En_Transmit(1,1,6,40,0)
REM Bitmuster von Pi mit Datenformat Long erzeugen
Par_1 = Cast_FloatToLong(pi)
'Par_1 = Cast_Float32ToLong(pi) 'korrekte Syntax für T12
REM Bitmuster (32 Bit) in 4 Bytes aufteilen
CAN_Msg[4] = Par_1
FOR i = 1 TO 3
CAN_Msg[4-i] = Shift_Right(Par_1,8*i)
NEXT i
CAN_Msg[9] = 4
Event:
P2_Transmit(1,1,6)
ADwin-Pro II Software, Handbuch Apr. 2021
'CAN-Controller initialisieren
AND 0FFh 'LSB zuweisen
'Länge der Nachricht in Bytes
'Message-Objekt 6 senden
AND 0FFh
Pro II: CAN-Bus
P2_Transmit
229