ADwin
Beispiel
Rem Wählen Sie das passende Include für ADbasic / TiCoBasic
#Include
ADwinGoldII.inc'für ADbasic
Rem #Include GoldIITiCo.inc für TiCoBasic
Rem Wenn eine neue Nachricht mit dem passenden Identifier
Rem empfangen wurde, werden die Daten gelesen. Die
Rem ersten 4 Bytes der Nachricht werden zu einer Fließkomma-
Rem Zahl mit 32 Bit Länge zusammengesetzt.
Dim
n
As Long
INIT:
PAR_1
=
0
Init_CAN(1)
Rem Message-Objekt 1 initialisieren zum Empfangen von
Rem CAN-Nachrichten mit Identifier 40
En_Receive(1,1,40,0)
EVENT:
Rem Wenn das Message-Objekt geändert wurde, werden die
Rem empfangenen Daten aus Objekt 1 gelesen und der
Rem Identifier an PAR_9 übergeben.
Rem Die Daten stehen im Feld CAN_Msg[] bereit.
PAR_9
= Read_Msg_Con(1,1)
If
(PAR_9
= 40)
Rem Für das Message-Objekt ist eine neue Nachricht mit dem
Rem Identifier 40 eingetroffen
PAR_1
= CAN_Msg[1]
For
n
=
2
To
4
Bit-Zahl
PAR_1
= Shift_Left(PAR_1,8) + CAN_Msg[n]
Next
n
Rem Bitmuster in PAR_1 in den Datentyp FLOAT wandeln und
Rem der Variablen FPAR_1 zuweisen.
FPAR_1
= Cast_LongToFloat(PAR_1)
EndIf
Senden einer Fließkomma-Zahl siehe Bsp. bei Transmit.
ADwin-Gold II, Handbuch Dez. 2018
'CAN-Controller 1 initialisieren
Then
'High-Byte auslesen
'Mit restlichen 3 Bytes zu 32
'zusammenfügen
CAN-Schnittstelle
Read_Msg_Con
159