Ethernet, CDROM DLL Setupexe Setup.exe WAGOIO Wago_io wago2002 WAGO_IO DLL WAGO_IO.DLL Windows Windows System32 Wago_io.dll Program Files Wago_io Wago_io Readme.txt C Sample.exe Wago_dll.h C Config.def WAGO_IO.lib C Sample.dep Vb DeIsL1.isu Wago_IO.basVisualBasic DeIsL2.isu DeIsL3.isu Sample ( DeIsL4.isu Sample.bas Sample.frm Sample.frx Sample.vbw SetPRM.frm Config.def Sample.vbp MSsccprj.scc ActiveX WagoAxIo.exe VbSample Form1.frm Msccprj.scc Project1.vbp Project1.vbw WagoAxSample.exe -1
C++ ++ Wago_io.dll DLLDynamicLinkLibrary Microsoft VisualBasic Visual C Wago_io.dll Wago_io.dll Wago_io.dll WAGO_OpenCommPort WAGO_CloseCommPort WAGO_SetConfig DLL WAGO_GetData WAGO_SetDigitalData WAGO_SetAnalogData WAGO_GetCounter WAGO_SetCounter WAGO_GetCommandCoun WAGO_GetRegData, WAGO_SetRegData 750-312, 750-315, 750-314, 750-316 DLL RTU P4 ON RTU EOF P1, P2, P3 Off 750-342, 750-842 DLL Modbus/TCP -2
DLL Wago_io.dll Windows System Wago_io.dll I/O Wago_io.dll Windows98/NT/2000 Wago_io.dll Windows98/NT/2000 (Sample.exe Wago_io I/O Microsoft VisualBasic Ver6.0 Sample Wago_io.dll Wago_io.dll Config.def Config.def 750342 750400 750401 750454 750600-3
COM1COM4 Ethernet Ethernet 750-314/316 750-312/315 WAGO I/O GetData Node 10 Module Chl Count Counter 750-404, 750-638 SetData Node 10 Module Chl Set Error! Count Digital/Analog Counter GetComandCount -4
Dim hconn As Long Dim dtcfg As tagconfiguration hconn = 0 dtcfg.bnotusedudp=1 dtcfg.berrchk = True CRC dtcfg.ncnt = 8 dtcfg.nmodelno(0) = 750342 dtcfg.nmodelno(1) = 750400 ch dtcfg.nmodelno(2) = 750501 ch dtcfg.nmodelno(3) = 750402 ch dtcfg.nmodelno(4) = 750504 ch dtcfg.nmodelno(5) = 750466 ch dtcfg.nmodelno(6) = 750550 ch dtcfg.nmodelno(7) = 750404 Call WAGO SetConfig(hConn, 1, dtcfg) WAGOIO.DLL UDP TCP BNotUsedUDP UDP TCP UDP hconn hconn WAGO_GetData, WAGO_SetDigitalData,WAGO_SetAnalogData WAGO_OpenComPort,WAGO_CloseComPort -5
-6 Ethernet
750-400 750-401 750-402 750-403 750-405 750-406 750-408 750-409 750-410 750-412 750-414 750-415 750-452 750-454 750-456 750-461 750-462750-465 750-466 750-467 750-468 750-469 750-506 750472, 750-474, 750-479, 750-480, 750-476, 750-478 ON OFF 10 Bit 3 Bit 2 Bit 1 Bit 0 Ch2 Ch1 0 0 0 0 0 1 0 1 1 0 1 0 1 1 1 1-7
010 V 020 ma 420 ma 10 +10V 020 ma 420 ma 010 V 10 +10V 104096 0.0024V 2040960.0048 ma 164096 0.0039mA 104096= 0.0024 V 20327680.0006 ma 16327680.0005mA 10327680.0003 V 10327680.0003 V -8
MdlNo MdlNo nmdlno= nchlno=1nchlcnt=12 MdlNo nmdlno= nchlno=1nchlcnt=8-9
-10
-11 nnodeadr nmdlno nchlno nchlcnt 10 V 20 A 20 A 10 +10V 104096 0.0024V 2040960.0048 ma 164096 0.0039 A 104096= 0.0024 V
750-404750-638 2,147,483,648 2,147,483,647 750-312, 750-314, 750-315, 750-316 -12
750-404, 750-638 750-404 750-404 10 Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 0 0 O2 O1 Hi Hi -2,147,483,648 2,147,483,647-13
750-638 Ch1,Ch2 Bit 10 Bit Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 0 0 (1) (1) 0 (1) (1) (0) (0) (0) (0) + 2ch -14
WAGO_GetRegData, WAWAGO_SetRegData -15
VB hconn WAGO_SetConfig WAGO_OpenComPort,WAGO_CloseComPort VB COM TCP/IP VB COM1: hconn(1) 750-316 (Node address 1) COM2 :hconn(2) 750-315( Node address 1) 750-315( Node address 2) TCP/IP : hconn(3) 750-342 750-842 Dim hconn(3) As Long Private Sub Form_Load() Call MyWagoSetConfig Call MyWagoOpen Call MyWagoGetData End Sub Private Sub Form_Unload(Cancel As Integer) Call MyWagoClose End Sub Private Sub MyWagoConfig() Dim dtcfg As tagconfiguration hconn(1) = 0 hconn(2) = 0 hconn(3) = 0 COM 750-316 dtcfg.berrchk=true True dtcfg.ncnt = 2 dtcfg.modelno(0) = 750316 RS-232C dtcfg.modelno(1) = 750400 ch Call WAGO_SetConfig(hConn(1), 1, dtcfg) -16
COM 2 750-315 dtcfg.berrchk=true True dtcfg.ncnt = 2 dtcfg.modelno(0) = 750315 RS-485 dtcfg.modelno(1) = 750400 ch Call WAGO_SetConfig(hConn(2), 1, dtcfg) dtcfg.berrchk=true True dtcfg.ncnt = 2 dtcfg.modelno(0) = 750315 RS-485 dtcfg.modelno(1) = 750400 ch Call WAGO_SetConfig(hConn(2), 2, dtcfg) dtcfg.bnotusedudp=1 UDP TCP dtcfg.ncnt = 3 dtcfg.modelno(0) = 750342 Ethernet dtcfg.modelno(1) = 750400 ch dtcfg.modelno(1) = 750501 ch Call WAGO_SetConfig(hConn(3), 0, dtcfg) End Sub Private Sub MyWagoOpen() -17
End Sub Private Sub MyWagoGetData() For I = 1 to 3 End Sub Private Sub MyWagoClose() End Sub -18