<big id="a5mua"></big>

      <tt id="a5mua"><dfn id="a5mua"></dfn></tt>
      <wbr id="a5mua"><sup id="a5mua"></sup></wbr>

        
        

      1. 亚洲综合小综合中文字幕,国产久爱免费精品视频,精品国产品香蕉在线,国产午夜精品在人线播放,精品一二三四区在线观看,国产成人无码免费看视频软件 ,色欲久久人妻内射,午夜在线观看成人av
        hsyyqq
        級(jí)別: *
        精華主題: * 篇
        發(fā)帖數(shù)量: * 個(gè)
        工控威望: * 點(diǎn)
        下載積分: * 分
        在線時(shí)間: (小時(shí))
        注冊(cè)時(shí)間: *
        最后登錄: *
        查看hsyyqq的 主題 / 回貼
        樓主  發(fā)表于: 2011-05-03 09:53
        上位機(jī) 我打算用一般的pc機(jī) 現(xiàn)在需要跟電腦通信的有 三菱plc(加一個(gè)溫度模塊),還有一款數(shù)字千分表(很精密的) 表附帶一根RS232通信線,目前我只知道表的通信格式字,其他一無(wú)所知,各位大俠 怎么實(shí)現(xiàn)pc與plc的通信 還有pc與數(shù)字千分表的? 上位機(jī)用戶軟件我打算用vb 來(lái)編寫,大家看這樣行得通不 ?
        hsyyqq
        級(jí)別: *
        精華主題: * 篇
        發(fā)帖數(shù)量: * 個(gè)
        工控威望: * 點(diǎn)
        下載積分: * 分
        在線時(shí)間: (小時(shí))
        注冊(cè)時(shí)間: *
        最后登錄: *
        查看hsyyqq的 主題 / 回貼
        1樓  發(fā)表于: 2011-05-03 10:17
        1樓真的嗎? 我馬上加qq 謝謝 三克油啊。
        hsyyqq
        級(jí)別: *
        精華主題: * 篇
        發(fā)帖數(shù)量: * 個(gè)
        工控威望: * 點(diǎn)
        下載積分: * 分
        在線時(shí)間: (小時(shí))
        注冊(cè)時(shí)間: *
        最后登錄: *
        查看hsyyqq的 主題 / 回貼
        2樓  發(fā)表于: 2011-05-03 10:19
        2樓 組態(tài)軟件我是不想用了 我用過(guò)昆侖組態(tài)用起來(lái)是方便當(dāng)時(shí)總感覺(jué) 不好有缺點(diǎn) 所以我才改成這樣的。我已經(jīng)做過(guò)一套了。
        hsyyqq
        級(jí)別: *
        精華主題: * 篇
        發(fā)帖數(shù)量: * 個(gè)
        工控威望: * 點(diǎn)
        下載積分: * 分
        在線時(shí)間: (小時(shí))
        注冊(cè)時(shí)間: *
        最后登錄: *
        查看hsyyqq的 主題 / 回貼
        3樓  發(fā)表于: 2011-05-04 10:48
        昨天開(kāi)始 寫今天 初步寫了個(gè)代碼不過(guò)指令發(fā)出好像plc沒(méi)有回應(yīng) 有懂vb的嗎幫我看看
        Private Sub Command1_Click()
        Dim OutString As String
        Dim InString As String
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        OutString = Chr(2) + "0" + "10f604" + Chr(3) + "74"
        MSComm1.Output = OutString
        Text1.Text = OutString
        Do
          DoEvents
          Loop Until MSComm1.InBufferCount = 12
          InString = MSComm1.Input
          Text2.Text = InString

        End Sub

        Private Sub Form_Load()

        MSComm1.CommPort = 3
        MSComm1.Settings = "9600,e,7,1"
        MSComm1.PortOpen = True

        End Sub
        hsyyqq
        級(jí)別: *
        精華主題: * 篇
        發(fā)帖數(shù)量: * 個(gè)
        工控威望: * 點(diǎn)
        下載積分: * 分
        在線時(shí)間: (小時(shí))
        注冊(cè)時(shí)間: *
        最后登錄: *
        查看hsyyqq的 主題 / 回貼
        4樓  發(fā)表于: 2011-05-04 17:53
        圖片:
        圖片:
        好吧在完全不懂的情況下我自己摸索出來(lái)了 哈哈今天總算是把數(shù)據(jù)讀出來(lái)了 我在網(wǎng)上下了個(gè)樣例程序就是樓上的結(jié)果plc沒(méi)有返回 我又不懂調(diào)試vb這樣的程序 后來(lái)我想到一個(gè)解密用的串口工具 把讀取d123 開(kāi)始的4位數(shù)據(jù)寄存器數(shù)據(jù) 指令格式是02h30h31h30h46h36h30h34h03h37h34h 結(jié)果發(fā)出去得到\STX64000000\ETX8D 中間那個(gè)64000000就是d123 d124 d125 d126的內(nèi)容了 我實(shí)現(xiàn)在plc里往d123寫入了k100其他就沒(méi)動(dòng)。后來(lái)我發(fā)現(xiàn)vb程序里是不是寫入失敗了就換了一種方式 不照抄 網(wǎng)上的樣例程序了,修改一下


          Private Sub Command1_Click()
        Dim OutString(10) As Byte
        Dim InString() As Byte
        MSComm1.OutBufferCount = 0
        MSComm1.InBufferCount = 0
        OutString(0) = &H2
        OutString(1) = &H30
        OutString(2) = &H31
        OutString(3) = &H30
        OutString(4) = &H46
        OutString(5) = &H36
        OutString(6) = &H30
        OutString(7) = &H34
        OutString(8) = &H3
        OutString(9) = &H37
        OutString(10) = &H34
        MSComm1.Output = OutString
        Text1.Text = OutString
        Do
          DoEvents
          Loop Until MSComm1.InBufferCount = 12
          InString = MSComm1.Input
          Text2.Text = InString
        End Sub

        Private Sub Form_Load()
        MSComm1.CommPort = 3
        MSComm1.Settings = "9600,e,7,1"
        MSComm1.PortOpen = True
        End Sub
        寫進(jìn)去之后發(fā)現(xiàn)返回出來(lái)的數(shù)據(jù)跟我用串口工具調(diào)試的一樣 那么說(shuō)成功了
        本來(lái)很簡(jiǎn)單的東西 不過(guò)我發(fā)現(xiàn)vb里數(shù)制什么的好多東西我都忘記了  搞不清楚現(xiàn)在 不過(guò)今天是老牛啃草 居然試出來(lái)了難道我跟美女聊一下天就有靈感了
        另外求師傅一名 幫幫我

        主站蜘蛛池模板: 精品国产这么小也不放过| av天堂中av世界中文在线播放 | 亚洲高潮喷水无码AV电影| 国产永久免费高清在线观看| 国产精品亚洲日韩AⅤ在线观看| 中文字幕一区二区久久综合| 国产成人综合色视频精品| 国产在线乱子伦一区二区| 久久久一本精品99久久精品88| 久久久久久一级毛片免费无遮挡| 亚洲午夜爱爱香蕉片| 巨熟乳波霸若妻在线播放| 国产亚洲无线码一区二区| 国产偷窥厕所一区二区| 2023国产一线二线三线区别| 日产国产一区二区不卡| 亚洲人成色99999在线观看| 国产精品色哟哟在线观看| 色呦呦在线视频| 久久精品免视看成人国产| 日韩有码中文字幕av| 国内少妇偷人精品免费| 美女把尿囗扒开让男人添| 日韩中文字幕免费在线观看| 亚洲中文字幕在线二页| 在线a级毛片无码免费真人| 日韩一区二区三区日韩精品| 丰满妇女强制高潮18xxxx| 日日碰狠狠躁久久躁96avv| 亚洲精品国产福利一区二区| 色吊丝二区三区中文写幕| 亚洲中文无码手机永久| 国产99在线 | 亚洲| 欧美日韩国产三级一区二区三区| 国产成人午夜福利在线播放| 久久se精品一区精品二区国产| 亚洲性一交一乱一伦视频| 国产SM重味一区二区三区| 性男女做视频观看网站| 91福利国产午夜亚洲精品| 欧美人成在线播放网站免费|