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

beiye1234
級別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 255 個
工控威望: 282 點
下載積分: 914 分
在線時間: 250(小時)
注冊時間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 2011-04-15 20:36
請教各位關(guān)于VB6.0與S7-200以太網(wǎng)通訊(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 '目標(biāo)地址
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

用以太網(wǎng)鏈接測試,沒效果。

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

主站蜘蛛池模板: 四虎国产福利 | 456.com亚洲 | 操一操摸一摸 | a一级黄色毛片 | 91精品国产aⅴ一区二区 | 日韩 中出| 99re在线观看视频 | 国产在线观看不卡 | 你好星期六在线免费观看 | av不卡免费在线观看 | a一级黄色毛片 | 欧美一区二区视频17c | 国产精品久久欧美久久一区 | 182tv免费福利视频 | 国产视频一区在线播放 | 麻豆四区 | 久久aⅴ国产欧美74aaa | 黄色动漫视频在线观看 | 国产日韩中文在线中文字幕 | 99久久精品免费看国产一区二区三区 | 国产经典在线 | 欧美孕妇色网 | 91产国在线观看动作片喷水 | 哪里可以看毛片 | 高清国产在线观看 | 久久91av | 给我看高清的视频在线观看 | 亚洲欧美h | 色婷婷一区二区三区亚洲国产精品 | 免费看a网站 | 曰韩无码AV片免费播放不卡 | 9l蝌蚪porny中文自拍 | 国产精品99久久久精品免费观看 | 欧美首页 | 国产成人精品一区二区仙踪林 | 在线观看爽视频 | 国产精品视频最多的网站 | 人人看人人鲁狠狠 | 99热播| 日韩精品久久久毛片一区二区 | 日韩三级视频 |