久久99精品视频一区97_亚洲a免费在线观看_美欧日韩av无码一区二区_国产精品视频123_东京热一本无码av_99精品国产闺蜜国产在线闺蜜

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

主站蜘蛛池模板: 国产偷久久久精品专区 | 国产一区二区美女视频 | 91网站在线观看视频 | 成年人视频免费在线播放 | 亚洲精品一区二区三区不 | 久久亚洲99精品2021 | 亚洲精品国产区欧美区在线 | yellow在线观看免费观看大全 | 亚洲第一字幕 | 国产一区二区三区在线播放免费观看 | 日韩国伦理久久一区 | 日本高清在线观看视频 | 欧美极品在线 | 99爱免费 | 性高潮久久久久久久 | 天堂一区 | 影视免费观看 | 久久久久亚洲最大xxxx | 久久国产精品高清 | 深夜福利免费在线观看 | 四虎海外网名2023 | 韩国一级特黄大片视频看看 | av 中文字| 高清国产午夜精品久久久久久 | 91久久爱| 九九久久国产 | 国产日韩精品久久久 | 91久久久久久 | 99re亚洲国产精品 | 欧美三级久久三级久久三级 | 91麻豆一二三四在线 | 久久久护士| 色偷偷综合网 | 亚洲国产精品尤物yw在线观看 | 91精品国产综合久久久久久婷婷 | 国产伦久视频免费观看视频 | 清纯唯美亚洲激情 | 诱人的飞行韩剧在线观看完整免费 | 国产香蕉久久 | 国产精品一区91 | 久久99精品国产99久久 |