久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲AV无码精品色午夜果冻不卡_成人高潮免费视频

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重新編輯 ]

主站蜘蛛池模板: 亚洲三级中文字幕 | 少妇高潮呻吟A片免费看 | 国产精品国产三级国产普通话三级 | 国产情人综合久久777777 | xxxx网| 久久精品AⅤ无码中文字字幕重口 | 色妹子综合 | 99999色 | 日韩精品免费观看视频 | 免费看黄在线网站 | 香蕉久久国产AV一区二区 | 草操视频 | 欧美三级影院 | 精品免费视频一区二区 | 国产成人剧情AV麻豆果冻 | 蜜桃精品视频在线 | 亚洲国产日韩一区三区 | 桃色成人网 | 国产日韩视频在线播放 | 无遮掩无码h成人av动漫 | 精品在线亚洲视频 | 波多资源在线中文字幕 | 无码中文字幕乱在线观看 | 久久字幕网 | a级毛片蜜桃成熟时2免费观看 | 丁香桃色网 | 粉嫩一区二区三区四区公司1 | 亚洲一区二区三区在线免费 | 国产精品不卡一区二区三区 | 欧美一区二区三区的 | 91精品国产9 | 日韩人妻无码精品无码中文字幕 | caoporm在线视频 | 免费播放一级毛片 | 日本黄色免费网站 | cijilu最新地址24小时 | 久久亚洲线观看视频 | 欧美精品aaaa | FREEEⅩXX性欧美HD浪妇 | 91成人精品一区二区三区四区 | 一区二区三区黄色录像 |