亚洲国产精品一区二区久久hs,国产精品久久久久久久久久直播,亚洲人成色7777在线观看不卡,国产亚洲精品久久19p,免费无码又爽又刺激高潮视频

beiye1234
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 255 個(gè)
工控威望: 282 點(diǎn)
下載積分: 914 分
在線時(shí)間: 250(小時(shí))
注冊(cè)時(shí)間: 2010-02-05
最后登錄: 2017-07-31
查看beiye1234的 主題 / 回貼
樓主  發(fā)表于: 2011-04-15 20:36
請(qǐng)教各位關(guān)于VB6.0與S7-200以太網(wǎng)通訊(Winsock),本人剛接觸VB6.0。
要求:對(duì)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 '校驗(yàn)碼
sendstr(7) = &H0 '校驗(yàn)碼
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)鏈接測(cè)試,沒(méi)效果。

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

主站蜘蛛池模板: 大肉大捧一进一出好爽视频动漫| 亚洲av无码av日韩av网站| 国产片av国语在线观麻豆| 欧美一区二区三区久久综| 噜噜综合亚洲av中文无码| 成人欧美一区二区三区| 精品日韩亚洲av无码| 国产精品视频免费播放| 中国丰满少妇人妻xxx性董鑫洁| 日日碰狠狠添天天爽| 国产精品久久久久久无码五月 | 精品久久久久久无码国产| 乱色熟女综合一区二区三区 | 精品超清无码视频在线观看 | 国产精品一亚洲av日韩av欧| 无码人中文字幕| 人妻无码中文字幕免费视频蜜桃| 国产精品十八禁在线观看 | 全免费a级毛片免费看视频| 人妻少妇无码精品视频区| 国产精品无码翘臀在线观看| 爆乳熟妇一区二区三区| 国产乱子伦| 免费久久人人爽人人爽av| 丰满少妇a级毛片野外| 无码人妻精品一区二区三区99不卡| 欧美激情视频一区二区三区免费 | 亚洲日韩中文无码久久| 亚洲 欧美 自拍 美腿 卡通 | 狠狠躁夜夜躁人人爽天天不| 97精品人妻一区二区三区香蕉| 狠狠色噜噜狠狠狠777米奇小说| 性做久久久久久久久| 色多多性虎精品无码av| 免费无码一区二区三区| 黄网站色视频免费观看| 漂亮人妻被黑人久久精品| 人人妻人人澡人人爽曰本| 搞av在线电影| 欧美人与动牲交xxxxbbbb| 无码人妻丰满熟妇啪啪|