C++ ++ Wago_io.dll DLLDynamicLinkLibrary Microsoft VisualBasic Visual C Wago_io.dll Wago_io.dll Wago_io.dll WAGO_OpenCommPort WAGO_CloseCommPort WAGO_

Size: px

Start display at page:

Download "C++ ++ Wago_io.dll DLLDynamicLinkLibrary Microsoft VisualBasic Visual C Wago_io.dll Wago_io.dll Wago_io.dll WAGO_OpenCommPort WAGO_CloseCommPort WAGO_"

けんじしもかさ
5 years ago
Views:

1 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

2 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 , , , DLL RTU P4 ON RTU EOF P1, P2, P3 Off , DLL Modbus/TCP -2

3 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

4 COM1COM4 Ethernet Ethernet / /315 WAGO I/O GetData Node 10 Module Chl Count Counter , SetData Node 10 Module Chl Set Error! Count Digital/Analog Counter GetComandCount -4

5 Dim hconn As Long Dim dtcfg As tagconfiguration hconn = 0 dtcfg.bnotusedudp=1 dtcfg.berrchk = True CRC dtcfg.ncnt = 8 dtcfg.nmodelno(0) = dtcfg.nmodelno(1) = ch dtcfg.nmodelno(2) = ch dtcfg.nmodelno(3) = ch dtcfg.nmodelno(4) = ch dtcfg.nmodelno(5) = ch dtcfg.nmodelno(6) = ch dtcfg.nmodelno(7) = 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 -6 Ethernet

7 , , , , , ON OFF 10 Bit 3 Bit 2 Bit 1 Bit 0 Ch2 Ch

8 010 V 020 ma 420 ma V 020 ma 420 ma 010 V V V ma mA = V ma mA V V -8

9 MdlNo MdlNo nmdlno= nchlno=1nchlcnt=12 MdlNo nmdlno= nchlno=1nchlcnt=8-9

10 -10

11 -11 nnodeadr nmdlno nchlno nchlcnt 10 V 20 A 20 A V V ma A = V

12 ,147,483,648 2,147,483, , , ,

13 , Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit O2 O1 Hi Hi -2,147,483,648 2,147,483,647-13

14 Ch1,Ch2 Bit 10 Bit Bit 7 Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit (1) (1) 0 (1) (1) (0) (0) (0) (0) + 2ch -14

15 WAGO_GetRegData, WAWAGO_SetRegData -15

16 VB hconn WAGO_SetConfig WAGO_OpenComPort,WAGO_CloseComPort VB COM TCP/IP VB COM1: hconn(1) (Node address 1) COM2 :hconn(2) ( Node address 1) ( Node address 2) TCP/IP : hconn(3) 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 dtcfg.berrchk=true True dtcfg.ncnt = 2 dtcfg.modelno(0) = RS-232C dtcfg.modelno(1) = ch Call WAGO_SetConfig(hConn(1), 1, dtcfg) -16

17 COM dtcfg.berrchk=true True dtcfg.ncnt = 2 dtcfg.modelno(0) = RS-485 dtcfg.modelno(1) = ch Call WAGO_SetConfig(hConn(2), 1, dtcfg) dtcfg.berrchk=true True dtcfg.ncnt = 2 dtcfg.modelno(0) = RS-485 dtcfg.modelno(1) = ch Call WAGO_SetConfig(hConn(2), 2, dtcfg) dtcfg.bnotusedudp=1 UDP TCP dtcfg.ncnt = 3 dtcfg.modelno(0) = Ethernet dtcfg.modelno(1) = ch dtcfg.modelno(1) = ch Call WAGO_SetConfig(hConn(3), 0, dtcfg) End Sub Private Sub MyWagoOpen() -17

18 End Sub Private Sub MyWagoGetData() For I = 1 to 3 End Sub Private Sub MyWagoClose() End Sub -18

Ethernet / / Ver

Ethernet / / Ver. 7.1 2007.09.10 1 I/O...1-1 1.1...1-1 1.2...1-1 1.3...1-1 1.4...1-2 1.5...1-3 2...2-1 2.1...2-1 2.1.1...2-1 2.1.2...2-1 2.1.3...2-3 2.1.4...2-3 2.1.5...2-4 2.1.6...2-5 2.2 Ethernet...2-6