东京热无码人妻系列综合网站_国产精品性色一区二区三区_网站大全免费网站_又爽又黄无遮拦成人网站_黄色影院免费观看_奇米影视在线观看

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

主站蜘蛛池模板: 99久久精品免费看国产四区 | 能在线观看的一区二区三区 | 日韩av在线免费播放 | 成人性生交大片免费看小忧 | 日韩欧美在线观看视频 | 国产极品久久久 | 手机免费av在线 | 国产精品一国产精品最新章节 | 国产一区二区视频在线观看 | 黄网站网址大全免费的 | 国产精品美女一区二区三区 | 久久国产精品亚洲人一区二区三区 | 不卡视频一二三区 | 国产精品丝袜肉丝出水 | 韩国一级片免费看 | 国内精品久久久久影视 | 欧美日韩国产一二 | 欧美成人精品欧美一级乱黄码 | 亚洲成人精品久久 | 国产精品特级毛片一区二区三区 | 久久精品久久国产 | 亚洲の无码国产の无码影院 | 欧洲野花视频天堂视频p | 亚洲中文字幕av无码不卡 | 国产suv一区二区 | 韩国成人一区 | 国产一区二区三区四区五区在线 | 久久国产资源 | 久久久久欠精品国产毛片国产毛生 | 不卡的av在线播放 | 999久久久久久 | 伊人热 | 中国a级黄色片 | 第一色区| 2021精品国产自在现线 | 国产高清在线 | 粉嫩av一区二区三区粉嫩 | 国产99久久久国产精品 | 成人精品在线播放 | 1区2区3区欧美日本 国产精品久久久久久久久久久久久久不卡 | 成人免费视频国一国二在线观看 |