CoDeSys = Multicast UDP Telegramm auslesen

[Step7Neuling]

Zuviel Werbung?
-> Hier kostenlos registrieren

hallo,

ich würde gerne mit der Wago ein Multicast UDP Telegramm abfragen / abfangen.
Wer hat eine Idee eine Ahnung was ich dafür machen muss...?!?!?!

Ich danke euch Herzlichst.

Gruß
Step7Neuling

 

[amos]

Das Ethernet_client Beispiel kannst Du hierzu m.E. 1:1 verwenden:
http://www.wagocatalog.com/okv3/download_zip.asp?sInfoId=200085&strBestNrID=7500841&lid=1&cid=1

 

[Step7Neuling]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich hab dies nunmal getestet, aber irgendwie bekomme ich keine Antwort? !?!?!?
Bzw. ich kann nichts auslesen. Der Rec_Buffer bleibt leer.

Muss man vorher noch was machen ?
Was müsste ich mal überprüfen?!?!?!

Tipps?!?!?


Gruß
Step7Neuling

 

[amos]

Am besten mal folgendes Programm runter laden und damit testen:
http://sourceforge.net/projects/qmodmaster/

 

[amos]

Wenn Du perl auf Deinem PC installiert hast kannst Du auch dieses kleine Programm zum Testen verwenden.
Es zeigt Dir die aktuellen Zustände der ersten 10 verbauten DigitalInput Klemmen an:

#!/usr/bin/perl
use strict;
use warnings;
use lib '../blib/lib';
use Protocol::Modbus;


$| = 1;


my $modbus = Protocol::Modbus->new(driver=>'TCP', transport=>'UDP');


# Create transport class
my $trs = Protocol::Modbus::Transport->new(
driver => 'TCP',
address => '192.168.178.3',
port => 502,
timeout => 3,
);


# with explicit method name
my $req = $modbus->readCoilsRequest(
address => 0,
quantity => 10,
);


# Open a new modbus transaction...
my $trn = $modbus->transaction($trs, $req);


while(1)
{
# ... issue the request and get response
my $res = $trn->execute();
my $coils = $res->coils();
print 'Coils status: (', join('', @$coils), ')', "\r";
print "\n";
select(undef, undef, undef, 0.2);
}