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

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

        
        

      1. 亚洲综合小综合中文字幕,国产久爱免费精品视频,精品国产品香蕉在线,国产午夜精品在人线播放,精品一二三四区在线观看,国产成人无码免费看视频软件 ,色欲久久人妻内射,午夜在线观看成人av
        緣分2013
        級別: 探索解密
        精華主題: 0
        發帖數量: 12 個
        工控威望: 145 點
        下載積分: 392 分
        在線時間: 37(小時)
        注冊時間: 2013-06-26
        最后登錄: 2019-08-22
        查看緣分2013的 主題 / 回貼
        樓主  發表于: 2013-10-08 20:11
        RT,小弟由于剛接觸VB不久,用VB6.0與FX2N通訊,向PLC的D寫入值老是不對,不知道是不是格式不對,我是利用MSComm控件通訊的。。。outstring = Chr(&O2) + "1" + CStr(qiuhe) + "02" + CStr(xieru) + Chr(&O3) + hejiaoyan
        tk758
        級別: 略有小成
        精華主題: 0
        發帖數量: 364 個
        工控威望: 416 點
        下載積分: 935 分
        在線時間: 90(小時)
        注冊時間: 2009-11-13
        最后登錄: 2021-09-24
        查看tk758的 主題 / 回貼
        1樓  發表于: 2013-10-09 12:41
        Private Sub Command1_Click()      '寫入D0=0
        Dim Address As String
        Dim SenData As String

        MSComm1.Settings = "9600,E,7,1"              
        MSComm1.InputMode = comInputModeText

        Address = "1" + "1000" + "02" + "0000" + Chr(3)
        SenData = Chr(2) & Address & SumChk(Address)
        MSComm1.PortOpen = True
        MSComm1.Output = SenData
        End Sub

        Private Function SumChk(Dats$) As String                  'CheckSum
            Dim i&
            Dim CHK&
            For i = 1 To Len(Dats)
                CHK = CHK + Asc(Mid(Dats, i, 1))
            Next i
            SumChk = Right(Hex$(CHK), 2)
        End Function
        tk758
        級別: 略有小成
        精華主題: 0
        發帖數量: 364 個
        工控威望: 416 點
        下載積分: 935 分
        在線時間: 90(小時)
        注冊時間: 2009-11-13
        最后登錄: 2021-09-24
        查看tk758的 主題 / 回貼
        2樓  發表于: 2013-10-10 07:49
        寫入的數據16進制數據, 是先寫低字節, .再寫高字節.
        因此如寫"1"進去PLC, 應寫成"0100", 寫"255"進去PLC, 應寫成"FF00"
        tk758
        級別: 略有小成
        精華主題: 0
        發帖數量: 364 個
        工控威望: 416 點
        下載積分: 935 分
        在線時間: 90(小時)
        注冊時間: 2009-11-13
        最后登錄: 2021-09-24
        查看tk758的 主題 / 回貼
        3樓  發表于: 2013-10-11 07:52
        ‘可用數組變量
        Dim strText(10) As String

        Private Sub Form_Load()
        For i = 0 To 10
            strText(i) = Text1.Text & i
            List1.AddItem strText(i)
        Next i

        End Sub

        主站蜘蛛池模板: 又黄又爽又高潮免费毛片 | 精品少妇爆乳无码aⅴ区| 国产精品青青在线观看爽香蕉| 精产国品一二三区别9999| 国产激情一区二区三区午夜| 一面膜上边一面膜下边视频| 国产精品任我爽爆在线播放6080| 精品国产欧美一区二区五十路| 久久99国产综合精品女同| 少妇高潮喷水正在播放| 无码人妻丰满熟妇精品区| 中文文精品字幕一区二区| 亚洲人成网站观看在线观看| 亚洲欧美综合精品成人网站| 东京热人妻无码一区二区av| 偷窥盗摄国产在线视频| 国产精品自在自线视频| 中文字幕欧美日韩| 精品超清无码视频在线观看| 国产自在自线午夜精品| 男女猛烈无遮挡免费视频APP| 国产精品一区二区久久毛片| 92精品国产自产在线观看481页| 性国产vⅰdeosfree高清| 国产一区二区三区精品自拍| 亚洲人妻一区二区精品| 亚洲码与欧洲码区别入口| 亚洲不卡av不卡一区二区| 最近中文字幕完整版hd| 欧美一区二区三区啪啪| 亚洲精品人成在线观看| 2021AV在线无码最新| 午夜免费无码福利视频麻豆| 美女把尿囗扒开让男人添| 视频网站在线观看不卡| 国产三级精品福利久久| 国产精品亚洲一区二区毛片| 日本东京热不卡一区二区| 69精品在线观看| 久久夜色国产噜噜亚洲av| 国产毛片A啊久久久久|