Siehe Auch - JÄGER ADwin-Gold II Handbuch

ADwin

Siehe auch

Run_Profibus
Beispiel
ADwinGoldII.INC
#Include
#Define node 2
#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 profibus interface: 38 input data areas of 2 byte
Rem and 76 output data bytes of 1 Byte
error = Init_Profibus(node,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 =
Run_Profibus(out_arr,76,in_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
'slave node address
'info array
'set to 100 Hz
'initialize info array
'initialization error
And 0FFh
Profibus-Schnittstelle
7h
Init_Profibus
179