JÄGER ADwin-Pro II Systembeschreibung Seite 225

ADwin
Beispiel
#Include ADwinPro_All.INC
Init:
P2_Init_CAN(1,1)
P2_En_Receive(1,1,3,1,0)
P2_En_Receive(1,1,15,385,0)
P2_En_Interrupt(1,1,3)
P2_En_Interrupt(1,1,15)
P2_Event_Enable(1,1)
Event:
Par_13 = P2_CAN_Interrupt_Source(1)
If (Par_13 And 01b
Par_14 = CAN_Interrupt_Msg(1,1)
Rem get msg object = enable new interrupt
Par_15 = P2_Read_Msg(1,1,CAN_Interrupt_Msg(1,1))
EndIf
Function CAN_Interrupt_Msg(module,channel)
REM read interrupt register and change value to objekt no.
CAN_Interrupt_Msg
If (CAN_Interrupt_Msg
CAN_Interrupt_Msg
Else
CAN_Interrupt_Msg
EndIf
EndFunction
Der Wert im Interrupt-Register entspricht einem der Message-Objekte
nach folgendem Schema:
Wert
Nummer Message-Objekt
ADwin-Pro II Software, Handbuch Version 1.6, Januar 2010
'initialize channel 1
'configure msg objects 3 and 15
'for read
'configure msg objects 3 and 15
'for interrupt
'enable event interrupt
'check for interrupt
= 1) Then
'get interrupting msg object
= P2_Get_CAN_Reg(module,channel,5fh)
= 2) Then
= 15
= CAN_Interrupt_Msg
2 3
15 1
As Long
- 2
4 ... 16
2 ... 14
Pro II: CAN-Bus
P2_CAN_Interrupt_Source
221