97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

beiye1234
級別: 略有小成
精華主題: 0
發帖數量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發表于: 2011-04-15 20:36
請教各位關于VB6.0與S7-200以太網通訊(Winsock),本人剛接觸VB6.0。
要求:對Q0.3置1
VB6.0程序如下
Private Sub Command1_Click()

Dim sendstr(7) As Byte
sendstr(0) = &H1 '站地址
sendstr(1) = &H5 '功能碼
sendstr(2) = &H0
sendstr(3) = &H3 '目標地址
sendstr(4) = &HFF
sendstr(5) = &H0 '線圈置1
sendstr(6) = &H0 '校驗碼
sendstr(7) = &H0 '校驗碼
Dim astr As String
Dim i   As Integer
For i = 0 To 7
astr = astr & Chr(sendstr(i))
Next
SockServer.SendData astr

End Sub

Private Sub Form_Load()
SockServer.LocalPort = 2000    
SockServer.RemoteHost = "192.168.1.60" ‘PLC地址
SockServer.RemotePort = 1 ’PLC站地址
End Sub

用以太網鏈接測試,沒效果。

這個程序那個地方有問題?應該怎么改。
[ 此帖被beiye1234在2011-04-16 11:21重新編輯 ]

主站蜘蛛池模板: 4455www四色官网 | 亚洲国产精品va在线观看麻豆 | 亚洲精品国产亚洲 | 成人精品喷水视频www | 欧美bbbb内谢| 黄色一级片免费观看 | 欧美第页 | 日本一区二区三区四区高清视频 | 无码人妻aⅴ一区二区三区麻豆 | 在线观看日韩一区 | www欧美日韩 | 亚洲日本视频 | 亚洲Av无码一区二区三区在线观看 | 欧美日韩高清在线一区 | 午夜精品久久久久久久久久久久 | 久久91| 色拍拍综合 | 麻豆乐园 | 四虎精品永久在线 | 国产萌白酱喷水视频在线观看 | 2019中文字幕在线 | 狼人无码中文在线观看 | 高潮韩国激情三级做爰爽美人图 | 亚洲18爽 | 国产狂喷潮在线观看视频应用 | 国产又大又黄视频 | 97中文字幕第三 | 91成人久久 | 日本成人免费网站 | 久久精品国产一区二区三区不卡 | 91精品欧美久久久久久动漫 | 99国产精品国产精品久久 | 国产白嫩漂亮美女在线观看 | 青青草国产精品 | 公车上玩弄人妻 | 一级女人片 | 久久精品在线免费视频 | 日韩在线综合 | 色婷婷影视 | 亚洲欧美第一 | 亚洲精品久久久蜜桃网站 |