国产一区二区三区毛片_亚洲乱码AV中文一区二区_亚洲精品无码专区在线播放_日韩欧美一二_咪咪av影院_欧久久av一区二区

dongxuan24
級別: 正式會員
精華主題: 0
發帖數量: 31 個
工控威望: 96 點
下載積分: 536 分
在線時間: 6(小時)
注冊時間: 2010-01-14
最后登錄: 2012-07-12
查看dongxuan24的 主題 / 回貼
樓主  發表于: 2010-08-19 10:46
Private Sub Combo5_Click()
   Select Case Combo5.Text
     Case "On"
        Instruction = &H11
     Case "Off"
        Instruction = &H10
   End Select
End Sub

Private Sub Command1_Click()
   Dim OutByte(0 To 32) As Byte
   Dim Num As Double
   Dim Num2 As String
   Dim L
   Dim Lenth2 As String
   Dim ByteXor As Byte
   Dim StrXor As String
  
   ReadPlc = True
   If Text1.Text = "" Then
     MsgBox "請輸入寄存器地址", vbOKOnly, "系統提示"
   Else
     Num = Val(Text1.Text)
     Num2 = Hex(Num)
     Lenth2 = Hex(Lenth)
     ByteXor = 0
    
     OutByte(0) = 103           '起始字符
     OutByte(1) = 5             '讀寫指令
     OutByte(2) = Asc(0)        'PLC站地址
     OutByte(3) = Asc(2)
     OutByte(4) = Asc(Mid(Address_R, 1, 1))    '寄存器類型
     OutByte(5) = Asc(Mid(Address_R, 2, 1))
     OutByte(6) = Asc(Mid(Address_R, 3, 1))
     OutByte(7) = Asc(Mid(Address_R, 4, 1))
    
     L = Len(Num2)                          '寄存器地址
     For i = 0 To L - 1
       OutByte(11 - i) = Asc(Mid(Num2, L - i, 1))
     Next i
     For i = 0 To 3 - L
       OutByte(11 - L - i) = Asc(0)
     Next i
    
     L = Len(Lenth2)                      '讀取字節數
     If L = 2 Then
       OutByte(12) = Asc(Mid(Lenth2, 1, 1))
       OutByte(13) = Asc(Mid(Lenth2, 2, 1))
     Else
       OutByte(12) = Asc(0)
       OutByte(13) = Asc(Mid(Lenth2, 1, 1))
     End If
    
     For i = 1 To 29                        'BCC校驗碼計算
       ByteXor = ByteXor Xor OutByte(i)
     Next i
     StrXor = Hex(ByteXor)
     If Len(StrXor) = 2 Then
       OutByte(30) = Asc(Mid(StrXor, 1, 1))
       OutByte(31) = Asc(Mid(StrXor, 2, 1))
     Else
       OutByte(30) = Asc(0)
       OutByte(31) = Asc(Mid(StrXor, 1, 1))
     End If
     OutByte(32) = 71
   End If
   MSComm1.Output = OutByte
End Sub


Private Sub Command2_Click()
Dim OutByte(0 To 32) As Byte
   Dim Num As Double
   Dim Num2 As String
   Dim L
   Dim Lenth2 As String
   Dim ByteXor As Byte
   Dim StrXor As String
   Dim Data_Send  As Double
   Dim Data_Send2 As String
   Dim SetLenth2 As String
  
   Read = False
   If Text2.Text = "" Then
     MsgBox "請輸入寄存器地址", vbOKOnly, "系統提示"
   Else
     Num = Val(Text2.Text)
     Num2 = Hex(Num)
    
     SetLenth2 = Hex(SetLenth * 2)
    
     Data_Send = Val(Text4.Text)
     Data_Send2 = Hex(Data_Send)
      
     ByteXor = 0
    
     OutByte(0) = 103           '起始字符
     OutByte(1) = 6             '指令寫
     OutByte(2) = Asc(0)        'PLC站地址
     OutByte(3) = Asc(2)
     OutByte(4) = Asc(Mid(Address_W, 1, 1))      '寄存器類型
     OutByte(5) = Asc(Mid(Address_W, 2, 1))
     OutByte(6) = Asc(Mid(Address_W, 3, 1))
     OutByte(7) = Asc(Mid(Address_W, 4, 1))
    
     L = Len(Num2)                             '寄存器地址
     For i = 0 To L - 1
       OutByte(11 - i) = Asc(Mid(Num2, L - i, 1))
     Next i
     For i = 0 To 3 - L
       OutByte(11 - L - i) = Asc(0)
     Next i
    
     L = Len(SetLenth2)            '寫入數據的長度
     If L = 2 Then
       OutByte(12) = Asc(Mid(SetLenth2, 1, 1))
       OutByte(13) = Asc(Mid(SetLenth2, 2, 1))
     Else
       OutByte(12) = Asc(0)
       OutByte(13) = Asc(Mid(SetLenth2, 1, 1))
     End If
     '寫入PLC的數據
     L = Len(Data_Send2)
     For i = 1 To L
       OutByte(14 + 2 * SetLenth - i) = Asc(Mid(Data_Send2, L - i + 1, 1))
     Next i
     For i = 1 To SetLenth * 2 - L
       OutByte(13 + i) = Asc(0)
     Next i
    
    
    
    
     '寫入PLC的數據
     For i = 1 To 29                     'BCC校驗碼計算
       ByteXor = ByteXor Xor OutByte(i)
     Next i
     StrXor = Hex(ByteXor)
     If Len(StrXor) = 2 Then
       OutByte(30) = Asc(Mid(StrXor, 1, 1))
       OutByte(31) = Asc(Mid(StrXor, 2, 1))
     Else
       OutByte(30) = Asc(0)
       OutByte(31) = Asc(Mid(StrXor, 1, 1))
     End If
     OutByte(32) = 71
   End If
   MSComm1.Output = OutByte
End Sub

Private Sub Command3_Click()
   Dim OutByte(0 To 32) As Byte
   Dim Num As Double
   Dim Num2 As String
   Dim L
   Dim Lenth2 As String
   Dim ByteXor As Byte
   Dim StrXor As String
  
   ReadPlc = False
   If Text6.Text = "" Then
     MsgBox "請輸入寄存器地址", vbOKOnly, "系統提示"
   Else
     Num = Val(Text6.Text)
     Num2 = Hex(Num)
     Lenth2 = Hex(Lenth)
     ByteXor = 0
    
     OutByte(0) = 103                         '起始字符
     OutByte(1) = Instruction                 '讀寫指令
     OutByte(2) = Asc(0)                      'PLC站地址
     OutByte(3) = Asc(2)
     OutByte(4) = Asc(Mid(Address_B, 1, 1))     '寄存器類型
     OutByte(5) = Asc(Mid(Address_B, 2, 1))
     OutByte(6) = Asc(Mid(Address_B, 3, 1))
     OutByte(7) = Asc(Mid(Address_B, 4, 1))
    
     L = Len(Num2)                           '寄存器地址
     For i = 0 To L - 1
       OutByte(11 - i) = Asc(Mid(Num2, L - i, 1))
     Next i
     For i = 0 To 3 - L
       OutByte(11 - L - i) = Asc(0)
     Next i
    
                                             '位地址
    
       OutByte(12) = Asc(Mid(Bit, 1, 1))
       OutByte(13) = Asc(Mid(Bit, 2, 1))
    

    
     For i = 1 To 29                        'BCC校驗碼計算
       ByteXor = ByteXor Xor OutByte(i)
     Next i
     StrXor = Hex(ByteXor)
     If Len(StrXor) = 2 Then
       OutByte(30) = Asc(Mid(StrXor, 1, 1))
       OutByte(31) = Asc(Mid(StrXor, 2, 1))
     Else
       OutByte(30) = Asc(0)
       OutByte(31) = Asc(Mid(StrXor, 1, 1))
     End If
     OutByte(32) = 71
   End If
   MSComm1.Output = OutByte
End Sub

Private Sub Form_Load()
   Instruction = &H11
   Address_R = "0100"
   Address_W = "0100"
   Address_B = "0100"
   Bit = "00"
   Lenth = 2
   SetLenth = 2
   MSComm1.CommPort = 1
   MSComm1.Settings = "9600,n,8,1"
   MSComm1.PortOpen = True
    If (Err) Then
       MsgBox "端口打開錯誤", vbOKOnly, "系統信息"
    End If
   MSComm1.RThreshold = 20
   MSComm1.InputMode = 1
   MSComm1.InBufferCount = 0
End Sub



Private Sub MSComm1_OnComm()
  Dim Temp() As Byte
  Dim Read(0 To 32) As Byte
  Dim BBC As Byte
  Dim XorByte As Byte
  Dim BBC_Temp As Byte
  Dim Value As Double
  Dim Trans(1 To 8) As Byte
  Dim TransValue As Double
  
  Value = 0
  XorByte = 0
  Temp = MSComm1.Input
  If ReadPlc = True Then
  
  If Temp(LBound(Temp)) = 103 And Temp(LBound(Temp) + 1) = 1 Then         '如果起始正確
      
      For i = 0 To 20
        Read(i) = Temp(i)
      Next i
      
      For i = 2 To 17                     '計算校驗碼
         XorByte = XorByte Xor Read(i)
      Next i
      
      For i = 2 To 19
        If Read(i) > &H40 Then
           Read(i) = Read(i) - &H37
        Else
           Read(i) = Read(i) - &H30
        End If
      Next
      BBC_Temp = Read(19) + Read(18) * &H10
      If XorByte = BBC_Temp Then
      
        For i = 2 To Lenth * 2 + 1
          
          Value = Value * &H10 + Read(i)
        Next i
      Text3.Text = Value
      End If
  End If
  Else
     If Temp(0) = 103 And Temp(1) = 2 Then
       MsgBox "參數設定成功", vbOKOnly, "系統提示"
     End If
  End If
End Sub


尤其是這幾句，希望能具體解釋一下，多謝


OutByte(0) = 103           '起始字符
     OutByte(1) = 5             '讀寫指令
     OutByte(2) = Asc(0)        'PLC站地址
     OutByte(3) = Asc(2)
     OutByte(4) = Asc(Mid(Address_R, 1, 1))    '寄存器類型
     OutByte(5) = Asc(Mid(Address_R, 2, 1))
     OutByte(6) = Asc(Mid(Address_R, 3, 1))
     OutByte(7) = Asc(Mid(Address_R, 4, 1))
    
     L = Len(Num2)                          '寄存器地址
     For i = 0 To L - 1
       OutByte(11 - i) = Asc(Mid(Num2, L - i, 1))
     Next i
     For i = 0 To 3 - L
       OutByte(11 - L - i) = Asc(0)
     Next i
    
     L = Len(Lenth2)                      '讀取字節數
     If L = 2 Then
       OutByte(12) = Asc(Mid(Lenth2, 1, 1))
       OutByte(13) = Asc(Mid(Lenth2, 2, 1))
     Else
       OutByte(12) = Asc(0)
       OutByte(13) = Asc(Mid(Lenth2, 1, 1))
     End If
    
     For i = 1 To 29                        'BCC校驗碼計算
       ByteXor = ByteXor Xor OutByte(i)
     Next i
     StrXor = Hex(ByteXor)
     If Len(StrXor) = 2 Then
       OutByte(30) = Asc(Mid(StrXor, 1, 1))
       OutByte(31) = Asc(Mid(StrXor, 2, 1))
     Else
       OutByte(30) = Asc(0)
       OutByte(31) = Asc(Mid(StrXor, 1, 1))
     End If
     OutByte(32) = 71
   End If
   MSComm1.Output = OutByte
End Sub


Private Sub Command2_Click()
Dim OutByte(0 To 32) As Byte
   Dim Num As Double
   Dim Num2 As String
   Dim L
   Dim Lenth2 As String
   Dim ByteXor As Byte
   Dim StrXor As String
   Dim Data_Send  As Double
   Dim Data_Send2 As String
   Dim SetLenth2 As String
  
   Read = False
   If Text2.Text = "" Then
     MsgBox "請輸入寄存器地址", vbOKOnly, "系統提示"
   Else
     Num = Val(Text2.Text)
     Num2 = Hex(Num)
    
     SetLenth2 = Hex(SetLenth * 2)
    
     Data_Send = Val(Text4.Text)
     Data_Send2 = Hex(Data_Send)
      
     ByteXor = 0
    
     OutByte(0) = 103           '起始字符
     OutByte(1) = 6             '指令寫
     OutByte(2) = Asc(0)        'PLC站地址
     OutByte(3) = Asc(2)
     OutByte(4) = Asc(Mid(Address_W, 1, 1))      '寄存器類型
     OutByte(5) = Asc(Mid(Address_W, 2, 1))
     OutByte(6) = Asc(Mid(Address_W, 3, 1))
     OutByte(7) = Asc(Mid(Address_W, 4, 1))
    
     L = Len(Num2)                             '寄存器地址
     For i = 0 To L - 1
       OutByte(11 - i) = Asc(Mid(Num2, L - i, 1))
     Next i
     For i = 0 To 3 - L
       OutByte(11 - L - i) = Asc(0)
     Next i
    
     L = Len(SetLenth2)            '寫入數據的長度
     If L = 2 Then
       OutByte(12) = Asc(Mid(SetLenth2, 1, 1))
       OutByte(13) = Asc(Mid(SetLenth2, 2, 1))
     Else
       OutByte(12) = Asc(0)
       OutByte(13) = Asc(Mid(SetLenth2, 1, 1))
     End If
     '寫入PLC的數據
     L = Len(Data_Send2)
     For i = 1 To L
       OutByte(14 + 2 * SetLenth - i) = Asc(Mid(Data_Send2, L - i + 1, 1))
     Next i
     For i = 1 To SetLenth * 2 - L
       OutByte(13 + i) = Asc(0)
     Next i
    

主站蜘蛛池模板： 4455四色成人网_97影院在线午夜_中国性猛交xxxx乱大交3_99精品久久久久久中文字幕_亚洲精品久久国产高清情趣图文_天天做天天添AV国产亚洲_国产91精品不卡视频_欧美精品一区二区三区免费视频 | 天天干夜爽_少妇精品无码一区二区免费视频_小男生自慰gay网站_欧美性色黄大片人与善_涩涩网站免费观看_欧美日韩综合久久_欧美欧美在线_欧美在线观看视频网站 | 狠狠色丁香_永久免费AV无码网站喷水_99精品中文字幕在线不卡_亚州中文字幕_欧美v日韩_欧美含羞草免费观看全部完_91毛片网_www.av天堂com | 99热国内精品_www.久久爱.com_a级在线播放_日本久久综合视频_一本一本久久aa精品综合_亚洲性爰_日本另类αv欧美另类aⅴ_国产九九精品 | 国产精品久久影院_免费A级毛片黄A片高清在线播放_亚洲大片在线_久久99热婷婷精品一区_国产精品亚洲swag_91久一久精品日日躁夜夜躁国产_午夜dj视频免费观看www_欧美区精品系列在线观看不卡 | 一区二区三区二区中文字幕视频_蜜臀AV无码国产精品色午夜麻豆_欧美在线观看自拍影视_天堂久久网_2021久久超碰国产精品最新_黄片毛片av_鲁大师在线视频播放免费观看_成人欧美一区二区三区视频网页 | 奇米成人_日韩第八页_免费一级做a爰片性视频_国产91极品_亚洲女初尝黑人巨高清_国产免费av网址_九色成人搞黄网站_亚洲熟妇AV一区二区三区宅男 | 国产精美视频_国产91精品不卡在线_中文在线不卡视频_亚洲精品TV久久久久久久久J_操一操网站_人人妻人人澡人人爽精品欧美_日韩.com_久久加勒比 | 午夜成熟看A级毛片_大地资源中文在线观看免费版高清_亚洲色偷精品一区二区三区_夜夜天天操_国产爆乳成AV人在线播放_两性色午夜免费视频_国产美女91呻吟求_av免费看网站 | 巨爆乳寡妇中文在线观看_亚洲精品资源在线观看_午夜剧场协和影视_日韩欧美在线观看视频一区二区_国产人妖ts重口系列网站观看_精品夜夜澡人妻无码AV_四虎国产精品亚洲一区久久特色_久久精品国产影院 | 色国产精品女五丁香五月五月_99tv成人_性色a∨精品高清在线观看_国产精品一级黄片免费在线观看_亚洲天堂高清_日本高清一道本_大胆精选欧美gogo人体_久久婷婷五月综合97色一本一本" | 久久人妻少妇嫩草AV_97国产精品视频人人做人人爱_色综合久久婷婷88_免费在线黄网站_超碰自拍网_韩国久久久久无码国产精品_外国一级毛片_黑人巨大40厘米免费播放 | XXXXX做受大片在线观看免费_亚洲一本av_97久久超碰国产精品2021_超碰中文字幕_久久91麻豆精品一区_在线麻豆视频_91麻豆福利视频_寂寞熟妇风间ゆみ中文 | 国产精品影音_国产一级做a爰片在线看免费_老头把我添高潮了A片_午夜神器成在线人成在线人_亚洲精品中文字幕日本久久久_天天操天天谢_九色视频人porny_91久久久久久久国产欧美日韩- | 免费岛国片_人妻中文乱码在线网站_蜜臀av国内精品久久久_69国产精品视频免费观看_成人久久免费网站_欧美性色黄大片WWW喷水_亚洲精品国产高清_无码专区亚洲制服丝袜 | 天天干视频网_国产精品久久久久免费a∨大胸_在线亚洲日本_成人αv_精品人妻AV一区二区三区_最新理论三级中文在线观看_久久久免费观看_最好看的中文2018 | 国产精品天堂AVAV在线_国产成人无码一区二区在线观看_隔着超薄肉丝袜做AV在线_涩涩涩综合在线亚洲第一_精品系列无码一区二区三区_在线黄色影院_九一快播_久久精品国产亚洲AV麻豆不卡 | 97五月天免费视频观看_性一交一乱一色一欲的最新章节_国产日韩精品欧美一区喷水_亚洲一区国产_欧美色资源_狠狠色影院_最近的中文字幕在线看视频_日本亚欧乱色视频免费观看 | 国产91片_国产一级免费在线视频_国产女人精品视频_毛片1级_一级在线看_久久久麻豆_国产精成人品91_亚洲黄色av | 性高潮久久久久久久久_国产白嫩精品久久久久久_黄片毛片一级片_久久久福利_九色97_超碰在线国产_久操网在线观看_99在线播放 | mmmwww在线看片观看_欧美色欧美亚洲另类二区_国产高清成人_奇迹少女第5季正版中文_免费成人视屏_久久精品屋_国产在成人精品线拍偷自揄拍_欧美日韩视频 | 国产精品夜夜春夜夜爽久久小_午夜影晥_xxxxwwww免费视频_在线成人自拍视频_亚洲一区二区三区精品在线观看_久久国产36精品色熟妇_美女裸身裸乳无遮挡网站_在线看片免费人成视频播 | 中国黄色片在线观看_免费人成黄页在线观看忧物_国产精品300页_91看毛片_国产欧美综合一区_日本中文字幕高清_肉体xxxxxⅰ8xxxx少妇_AV国内精品久久久久影院 | 美女mm131爽爽爽作爱视频_快色在线观看视频_天天躁夜夜躁狠狠躁2021西西_久久精品国产网址_欧洲一级片_精品美女_欧美性生交XXXXX无码_熟妇人妻久久中文字幕 | 欧美jizzhd精品欧美另类_粉嫩一区二区三区四区公司1_美女视频一级片_中文字幕无线码入口_毛片免费小视频_国产日韩欧美一区二区久久精品_免费国产黄网站在线观看动图_yellow在线观看免费观看大全 | 51免费看成人啪啪片_亚洲国产二区三区_亚洲精品乱码_亚洲AV无码国产成人_免费观看一二区视频网站_伊人av成人_人妻精品动漫h无码中字_久久极品视频 | www.拔插_亚洲熟女综合一区二区三区_人人狠狠综合久久88成人_银魂在线观看_国产精品成人黄片_91久草视频_99久久精品国产毛片_h高潮娇喘抽搐A片国产麻豆 | 白浆av导航_菲律宾一级片_牛夜精品久久久久久久99黑人_精品无码中文字幕在线_九色一区二区_aⅴ一区二区三区无卡无码_青草视频在线观看国产_欧美日韩在线观看成人 | 裸体在线国模精品偷拍_国产欧美日韩一区二区在线_国产高清无码专区_成人免费xxxxxx视频_免费同性男男自慰网站_日本网址在线观看_国产亚洲AV无码乱码在线观看_大卫科波菲尔1999 | 国产欧美日韩_黄色成人网站免费无码av_亚洲AV日韩综合一区二区_大象一区_国产成人无码牲交免费视频_久久久久欧美激情饼干_日韩一区二区三区视频在线播放_国产精品hd | 班花在教室伦流澡到高潮视频_国产精选91热在线观看_黑人一级大片_蜜臀传媒_红杏出墙记_最近免费观看高清韩国日本大全_亚洲日韩精品无码专区网站_人妻丝袜av先锋影音先 | 在线观看免费观看视频_免费理论片手机在线播放_99久久精品费精品国产一区二_日韩一欧美内射在线观看_久草色在线_国产精品乱码一区二区三区四川人_日日草夜夜爽_国产成人免费视频网站视频社区 | 中国熟妇内谢69xxxxx_国产亚洲精品精品国产亚洲综合_操你妹影视_av在线a_可以直接免费观看的AV网站_啊v在线视频_日本不卡一二三区_久久久噜噜噜久久久白丝袜 | 亚洲成人黄色网_vagaa亚洲亚洲色爽免影院_亚洲国产精品一区在线_美女十八毛片_久久成人福利视频_人人澡人人添人人爽一区二区_五十六十日本老熟妇乱_国产精品第一视频 | 国产亚洲视频系列_中文字幕亚洲欧美在线不卡_国产精品成人A片在线果冻_婷婷超碰_日本a级片免费看_XXX国产精品XXX_欧美一级片在线播放_亚洲综合清纯唯美 | 俺也去俺来也www色官网_国产精品久久久久激情影院_小荡货好紧好爽奶头大视频_亚洲免费精品一区_欧美群妇大交乱视_国产一区视频播放_一区二区三区四区欧美日韩_亚洲欧美日韩系列中文字幕 | 亚洲最大激情网_超碰97.com_国产在线视频综合_久久综合久久综合久久综合_被黑人猛躁10次高潮视频☆_永久免费AV在线影院_国产精品久久久久AV福利动漫_天天躁日日躁狠狠躁AV麻豆 | 国产激情福利_在线观看国产91_国产欧美日韩一区二区三区_国产日韩欧美二区_在人线AV无码免费高潮喷水_少妇一级淫片免费播放_臀蜜av_国产乱码高清区二区三区在线 | 日韩精品极品视频在线观看免费_免费日韩av在线_欧美丰满少妇XXXX性_国产精品久久久久影院日本_国产成人亚洲综合无码精品_日b视频免费观看_黄色片免费观看_亚洲黄色站 | 都市激情91_天堂av2021_亚洲va韩国va欧美va精四季_亚洲一二区三区_婷婷六月综合缴情在线_亚洲成av人片在线观看www_国严精品久久久久久亚洲影视_99久久久无码国产精品性黑人 | 久久久久亚洲av无码专区蜜芽_91插插影院_av高清一区二区_一区二区a视频_国产精品亚洲LV粉色_麻豆av网_久久久99日产_a级毛片特级毛片 |