Herunterladen Inhalt Inhalt Diese Seite drucken

DEUTSCHMANN AUTOMATION UNIGATE IC2 Bedienerhandbuch Seite 38

Inhaltsverzeichnis

Werbung

Deutschmann Automation GmbH & Co. KG
Ethernet-Schnittstelle
Scriptbeispiel für die Initialisierung des Ethernet
var wRemotePort: word; Moveconst(wRemotePort, 2001);
var wLocalPort: word; Moveconst(wLocalPort, 2000);
var lRemoteIP: long; Moveconst(lRemoteIP, 0xc0a82f0b); // 192.168.47.11
var lE3: long; Moveconst(lE3, 0xE3222222); // Kanal 0 verbunden, Rest
unbenutzt
var w0: word; Moveconst(w0, 0);
var bChannel: byte; Moveconst(bChannel, 0);
var lBusState: long;
var wInCount: word;
var wOutCount: word;
var aRecvData: buffer[100];
var aSendData: buffer[100];
// Kanal 0 als TCP-Client initialisieren
InitFastEthernet(bChannel, TCPIP_Client, wRemotePort, wLocalPort, lRe-
moteIP);
BusStart; // Ethernet aktivieren
:waitForConnection; // TCP-Verbindung prüfen, notfalls warten (bei UDP
unnötig)
Get(ReadBusState, lBusState);
if lBusState equal lE3 then :connected;
jump :waitForConnection;
:connected; // bei Verbindung auf Empfang prüfen
Get(AvailableBusData, wInCount);
if wInCount equal w0 then :send; // bei Empfang lesen und Auswerten
ReadBus(aRecvData[0], wInCount);
{hier Code ergänzen, um den Empfang auszuwerten}
:send; // etwas senden
Moveconst(wOutCount, 13);
Moveconst(aSendData[0], "Sendedaten...");
WriteBus(aSendData[0], wOutCount);
jump :waitForConnection; // typischerweise laufen Skripte als 
Endlosschleife
®
4.8.22
Bedienerhandbuch UNIGATE
IC2 - Fast Ethernet V. 1.8
38

Werbung

Inhaltsverzeichnis
loading

Inhaltsverzeichnis