JÄGER ADwin-Pro II Systembeschreibung Seite 254

Pro II: LIN-Bus-Schnittstelle
P2_LIN_Init
250
Beispiel
#Include ADwinPro_All.Inc
#Define mod_adr 4
Dim lin_datatable[150]
Dim Data_1[20] As Long
Dim Data_2[20] As Long
Dim state As Long
Init:
Processdelay = 30000000
'Initialize communication ADwin CPU - LIN module
Par_1 = P2_LIN_Init(mod_adr, lin_datatable)
If (Par_1 <> 0) Then
Rem Interface 1, 9600 baud, LIN master
P2_LIN_Init_Write(lin_datatable, 1, 9600, 1, 0)
Rem Interface 2, 9600 baud, LIN slave
P2_LIN_Init_Write(lin_datatable, 2, 9600, 0, 0)
Rem message box 1 for receive on interface 2, msg id 1
P2_LIN_Msg_Write(lin_datatable, 2, 1, 1, Data_2, 8, 0)
P2_LIN_Init_Apply(lin_datatable)
state = 1
Event:
SelectCase state
Case 1 'msg transmit
Data_1[1] = 1
Data_1[2] = 2
Data_1[3] = 3
Data_1[4] = 4
Data_1[5] = 5
Data_1[6] = 6
Data_1[7] = 7
Data_1[8] = 8
Rem message box 1 for write on interface 1, msg id 1
P2_LIN_Msg_Write(lin_datatable, 1, 1, 1, Data_1, 8, 1)
Rem send header and message (interface 1 = LIN master)
P2_LIN_Msg_Transmit(lin_datatable, 1, 1)
state = 2
Case 2
P2_LIN_Read_Dat(lin_datatable, 2, 1, Data_2)
If (Data_2[20] = 1)
Par_11 = Data_2[3]
Par_12 = Data_2[4]
Par_13 = Data_2[5]
Par_14 = Data_2[6]
Par_15 = Data_2[7]
Par_16 = Data_2[8]
Par_17 = Data_2[9]
Par_18 = Data_2[10]
Par_19 = Data_2[11]
Par_20 = Data_2[12]
Par_21 = Data_2[13]
Inc Par_10
state = 1
EndIf
EndSelect
As Long
'10 Hz
Exit'error
'check for msg receive, msg id 1
Then 'new msg rx
'ID
'Byte 1
'Byte 8
'checksum
'length
'new Msg tx
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
ADwin
'msg tx