JÄGER ADwin-Gold II Handbuch Seite 199

ADwin
ECAT_Run
Beispiel
#Include ADwinGoldII.INC
#Define info Data_1
#Define out_arr Data_2
#Define in_arr Data_3
Dim out_arr[76] As Long At DM_Local
Dim in_arr[76] As Long At DM_Local
Dim conf_arr[200] As Long At DM_Local
Dim info[10] As Long At DM_Local
Dim i As Long
Dim error As Long
LowInit:
Processdelay = 3000000
For i = 1 To 10
info[i] = 0
Next i
Rem initialize EtherCAT interface: 38 input data areas of 2 byte
Rem and 76 output data bytes of 1 Byte
error = ECAT_Init(38,2,76,1,conf_arr,info)
If (error <> 0) Then
Par_1 = error
Exit
EndIf
Event:
Rem set data in out_arr[] to be transferred
For i = 1 To 76
out_arr[i] = (out_arr[i] + i)
Next i
Rem send and read data (output bytes: 76; input bytes: 76)
error = ECAT_Run(in_arr,76,out_arr,76,conf_arr)And
Par_2 = error
Rem Here the received data in in_arr[] can be processed
ADwin-Gold II, Handbuch Dez. 2018
'info array
'set to 100 Hz
'initialize info array
'initialization error
And 0FFh
EtherCAT-Schnittstelle
7h
ECAT_Init
193