タスクコード通信 - 株式会社 日立産機システム
Contents
1. LAN ETH Visual Basic 0 OOO OO000 WUDUDUDO gt UDUDDOO 00 0 CPU gooo OU O FLORA1010 0000 a000i 0000 OLAN ETH 000 OOO0UU00 0O 000000000 O O OOLAN ETH 0O00 OO 00 0 DD DD Visual Baich OOO OOOO O OO DOCOCODOO UOOODDDOUDUDUDUDUDUDDDUDDDDDDULDDDDDUDODODUDDUUUDLDUIDULD UDDDO UUDDOUDUDDUDUDUDDUUDUD DOUDOUOUDDUDDDDIDUUDUDLUDUWUDLDDUULUDUDLD TOD DODUDUDDUUDD 00000 OU UDDUDUUUDUON 0000000 Visual Baich OOOMO0000 Microsoft Visual Basic 5 0 EnterPrize Q Windows 32Bit QOMOU0WO0000 Visual Basic 0 00 0 0000 0 00 OOO 000 Visual Basic Activex 0 0 000 0 0 0 0 Winsock 0 0 DO OOOO 000000 DOD DVisual Basic 0 0 OO O O00 OWinsock 00000 0 000000000000 OOUUUO OOOO DO DU DUO WOU 0 D000 O0 0O00 000OO0OCOOODOODOOOO D D0 000 OD 0CO000000000000 000 00 0 00 0 OMicrosot0 OOO OOOO OO 0000000000 DUDUDOUDDUDDUDDUDLDUUDLDUDULDULDUDUDULDDDDTDULDDT TOD 0DU DDO 0OO0000OO0OOOO OOO D0 00000 ODODO D 0000000000000000 OLAN ETH 0O IPO000000 0000 00000 OOOO OO TCP IPDDODDDOUDDDTOUDDUDDDD LAN ETHO0000000O0 0000000 00000 DODDDUDDDUWUODUUDDUDUDULDUDOLDUD m00 ig LAbFETH Visual Basio HT HEE LAM ETH IPAdressifiss 213 B3 ff Port Ho JWH AAO m4 OOO000 LAN ETAO IP MMM JIU UUUUOUDOO UOMO UOUUO TCP IP 000000 0 00i 0 0 0 UDUUDODLDUDD LAN ETH VO 0000 CPUDODO Hn UO O oo Co OU oo 0 000 MMMM 000 0 0 0 00 A0 O M O D OO0000 W000 0 OI OO0OUOO0W LUM OUOUU0UO O00 0 o P2. OM OO 60 0 ME 0 0 0 MO 0 0 0 00 0 M Ooo WOO OU Private Const HEADER OOOOFFFFOOOO 1 QHOOU00 H00 Q O HOO HLUMP O00000 F F F F 0000 Private Sub Form Load Text1 Text 158 Text2 Text 213 Text3 Text 83 Text4 Text 1 Text5 Text 3004 Text6 Text A00A00000005 Text7 Text End Sub Private Sub Commandl_Click Ipaddr Text1 Text Text2 Text Text3 Text Text4 Text Winsock1 RemoteH ost paddr OOO IPH OO Winsock1 RemotePort Text5 Text OOOOWDOCCO Winsock1 Connect TODD 0 End Sub Private Sub Command2_Click Dim Bin As Byte Call AscToBin HEADER amp Text6 Text Bin 0000000 ooo C100 000 AscToBin ID Winsock1 SendData Bin TITO 0 0 0 CUO O End Sub Private Sub AscToBin ByVal Data As String ByRef Bin As Byte Dimi amp If Len Data Mod 2 Then DOUOQUUDUUDODUUOY OLLLUD Data Data amp 0 End If ReDim Bin 0 To Len Data 2 1 For i O ToLen Data 2 1 Bin i amp h amp Mid Data i 2 1 2 TTOLIDIITTID 0 0 Next End Sub Private Sub Winsock1_DataArrival ByVal bytesTotal As Long Dim Bin As Byte i amp buf h Winsock1 GetData Bin If bytesTotal gt 2 Then For i 6 To bytesTotal 1 h Hex Bin i IfLen h 1Then 1600000100000000000 buf buf amp 0 amp h amp Else buf buf amp h amp amp End If Next Text7 Text buf 0 OOOD 0 0 End If End Sub Private Sub Command3 Click Text7 Tet 00 QO O00 00 End Sub
Download Pdf Manuals
Related Search