JÄGER ADwin-Pro II Systembeschreibung Seite 467

ADwin
Benötigt wird ein Modul Pro II-RSxxx mit Moduladresse 1.
Viele Geräte mit RS232-Schnittstelle können mit String-Befehlen gesteuert
werden. Die beiden folgenden Programme zeigen, wie man mit einem Prozess
eine Zeichenfolge sendet und mit einem anderen Prozess die Zeichenfolge
empfängt. Die Programme sind im ADwin-Software-Paket verfügbar.
Die Programme können auf dem gleichen Modul, jedoch mit verschiedenen
Schnittstellen eingesetzt werden. Beachten Sie bitte die Kommentare im Pro-
gramm.
Das Programm RS232_send_string.BAS initialisiert zuerst die RS232-
Schnittstelle. Im Abschnitt
eine Zeichenfolge. Im Abschnitt
kierung gesendet. Es kann durch ein beliebiges anderes Zeichen ersetzt wer-
den.
' Process for RS232 communication: sending a string
' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' The program may run together with RS232_receive_string.BAS
' on the same module.
' - connect the interfaces with each other
' - compile and start RS232_receive_string.BAS
' - compile and start RS232_send_string.BAS
#Include ADwinPro_All.Inc
Rem import string library
Import string.lib
#Define rs_adr 1
rs_no
#Define 1
#Define s_endchar "#"
#Define s_send Data_1
#Define str_len 50
Dim s_send[str_len]
Dim s_temp[1] As String
Dim sp As Long
Init:
Rem 0.25 s
Processdelay = 75E6
Rem A reset is allowed only once on a module!
'P2_RS_Reset(rs_adr)
P2_RS_Init(rs_adr,rs_no,9600,0,8,0,0)
sp=1
s_send = „This is a
Event:
StrMid(s_send, sp, 1, s_temp)
Par_11 = Asc(s_temp)
If (Par_11 = 0) Then End
Par_12 = P2_Write_FIFO(rs_adr, rs_no, Par_11)
Rem increase pointer, else send again
If (Par_12 = 0) Then
Rem quit when all chars are sent
If (sp > str_len)
Finish:
Do
Par_11 = Asc(s_endchar)
Par_12 = P2_Write_FIFO(rs_adr, rs_no, Par_11)
Until (Par_12 = 0)
ADwin-Pro II Software, Handbuch Apr. 2021
sendet die Schnittstelle 1 des RS-Moduls
Event:
wird das Zeichen „#" als Ende-Mar-
Finish:
If so, please follow these instructions:
'module address
'interface number
'end marker "#"
'length of send string
As String 'send string
'single char
'send pointer
'reset RS module
'initialize pointer
TESTSTRING" 'send string
'read next char of string
'get ascii code of char
'quit when all chars are sent
Inc sp
Then End
'send End marker "#"
'get ascii code
Beispiele für RS232 und RS485 (Pro II)
'init RS interface
'send code
'send code
Programmbeispiele
RS232:
String-Befehl senden
463