国产一区二区三区毛片_亚洲乱码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
    

主站蜘蛛池模板： 日本特黄特色特爽大片_性高爱久久久久久久久_欧美麻豆视频_99re这里只有精品99_亚洲国产片_欧美一级片在线视频_午夜免费视频观看_美国特级a毛片免费网站 | 五月天色婷婷丁香_午夜三级A三级三点自慰_国产免费播放一区二区_中文在线观看免费视频_se吧提供在线看片免费人成久网_欧美日韩大片在线观看_久草在线视频免费资源_91久精品 | 做爰裸体激情2_午夜叫声理论片人人影院_亚洲视频在线观看免费_一区二区在线欧美日韩中文_伊人久久免费视频_亚洲综合成人专区片_久久久精品高清_国产精品亚洲片夜色在线 | 男啪女视频免费观看网站_国产成人啪精品视频网站午夜_欧亚久久日韩av久久综合_9a蜜桃久久久久久免费_国产综合18久久久久久_国产www_国产精品久久久久久久久亚洲美女_日日爱网站 | 国产精品久久久天天影视_强乱中文字幕在线播放不卡_亚洲日韩精品A∨片无码加勒比_国产精品第1页_4455永久在线观看_伊人久久婷婷综合五月97色_亚洲国产毛片_一级h片 | 成人无码H动漫网站免费_中文在线最新版天堂8_亚洲视频在线观看中文字幕_蜜芽亚洲AV尤物183不卡资源_国产精品成人AAAA网站女吊丝_日韩欧美日韩在线_亚洲成人自拍_色网在线观看 | 国产精品成人影院_久久精品国产99久久香蕉_久久久黄色_欧美福利精品_日韩中文字幕在线免费观看_久久夜夜躁躁精品_一级毛片不卡顿_国产欧美久久久久爽精品 | 特一级黄色_日本三级视频_国产91欧美_伊人午夜_午夜免费性福利_超碰在线人人草_亚洲日韩国产精品乱-久_中文字幕精品亚洲无线码VR | 国产亚洲精_国产精品久久久久影院亚瑟_亚洲人成欧美中文字幕_石原莉奈在线观看视频_久久综合99re88久久爱小说_亚洲香蕉视频天天爽_午夜时刻免费入口_中国极品少妇xxxxx69 | 丁香花开心四播房麻豆_婷婷综合久久狠狠色_日韩一级免费一区_天干天干天啪啪夜爽爽色_国产欧美欧美成人亚洲欧美激情_日韩成年人视频在线_亚洲视频日韩_免费A级毛片无码A∨蜜芽按摩 | 亚洲最大成人av_国产精品一品二区三区在线观看_免费看a毛片_终极斗罗4第三季免费播放_国产乱码精品一区二区三区中文_四虎影院4hu_91精品国产综合久_国产男女视频在线 | 少妇啪啪免费观看欧美三p_俺来也中文字幕_亚洲精品aaaa精品_69夜色精品国产69乱_人与狗精品aa毛片_视频福利一区_亚洲精品中文字幕乱码三区_成人免费视频a | 免费www_他一边曰一边吃我奶小说免看_日产精品卡1卡2免费_国产精品呻吟久久av凹凸_免费网站在线观看黄色_亚洲欧美日韩在线一区二区_白袜奴gay网站_欧美黄网站在线观看 午夜精品中文字幕_贪婪欲望之岛在线播放_爱情岛亚洲AV永久入口首页_免费看黄视频在线_亚洲国产A∨无码中文777_中文字字幕码一二区_国产精品亚洲а∨天堂网_国产明星裸体无码XXXX视频 | 手机看片一级片_人人妻人人爽人人澡人人_亚洲成AV人片在一线观看_在线精品自偷自拍无码_中文字幕一区二区三区在线播放_日本中文字幕视频一区_国产不卡精品_99精品久久久久久久另类 | 草草爱视频_大片网站久久_99精品久久久久久久免费看蜜臀_男女av在线_亚洲一区欧美二区_欧美丰满熟妇bbbbbb百度_夜夜澡天天碰人人爱AV_国产盗摄偷拍视频 | 国产成人无码18禁午夜福利P_麻花豆传媒剧国产免费mv豆丁网_狼友AV永久网站免费极品在线_后入内射无码人妻一区_亚洲精品成人av久久_国产真实强被迫伦姧女在线观看_亚洲综合精品久久_丰满迷人的少妇特级毛片 | 黄a免费视频_久久精品国产亚洲一区二区_国产又爽又黄又无遮挡的激情视频_爱福利一区_亚洲国内精品在线_日韩aaa视频_久久无码免费视频播放_久久精品人人槡人妻人 | 一区二区三区成人在线视频_欧美日韩久久一区_a在线免费观看视频_五月天黄色av_久久久精品国产免大香伊_99精品久久久久久久婷婷_一级特黄录像免费播放中文_久久99精品久久久久久动态图 | aaaaaaa片毛片免费观看_www欧美在线观看_亚洲欧美一区二区三区综合_jizzjizzjizz日本老师_熟女人妇成熟妇女系列视频_中文字幕精品一区二区精品_日本高清免费视频m免费_91综合久久久久婷婷 | 精品成人免费一区二区_久草观看_久久精品国产亚洲av影院_日韩精品手机在线观看_亚洲成人中文_免费一级片在线观看_国产在线拍揄自揄视频菠萝_国产免费人成在线看视频 | 国产成人高清啪免费观看软件_久久婷婷五月综合中文字幕_午夜成人性爽爽免费视频_中文字幕日韩在线视频_韩国理论视频_69xx免费观看_亚洲日韩国产av中文字幕_视频精品国内 | 品色堂永远免费_俄罗斯大荫蒂女人毛茸茸_国产精品一级在线_亚洲人精品午夜射精日韩_日日网站_成人福利视频网_日韩一区二区三区网站_濑亚美莉av番号大全 | 久久久999免费视频_无码写真精品永久福利在线_91插插插影院_免费黄色高清视频_果冻传媒视频一二在线观看_高清二区_大内密探零零灵性_成人欧美国产 | 中文字幕55页_亚洲国产精品无码久久久五月天_麻豆短视频传媒_免费色视频在线观看_一区二区三区无码免费看_免费一级做a爰片性色毛片_亚洲欧美一级_久久久亚洲蜜桃 | 国产成人无码精品午夜福利A_日本熟妇HD人妻_国产成年无码a∨片在线韩国_秋霞福利_午夜精品91_AA片子吇中文字处女_欧美夜噜噜免费观看_国产精品青青草原免费无码 | 色国产精品女五丁香五月五月_99tv成人_性色a∨精品高清在线观看_国产精品一级黄片免费在线观看_亚洲天堂高清_日本高清一道本_大胆精选欧美gogo人体_久久婷婷五月综合97色一本一本" | 成人在线高清不卡免费视频_日韩av中文字幕在线播放_青青国产91毛片成人片在线_成年女人免费观看这视频_九一在线免费看_体内精69xxxxxx视频_日本按摩伦理片_成人午夜 | 国产人与动牲交_老牛嫩草一区二区三区日本_性欧美日本_欧美成人在线免费视频_日本WWW一道久久久免费榴莲_丰满少妇A级毛片露出偷拍_国产无码一区二区精品_欧洲裸体兽交大黑妞 | 久草香蕉在线_亚洲免费成人av_男人女人一边躁一边爽视频_日韩亚洲一区在线播放_欧美一区二区小视频_日本午夜片_欧美精品国产综合久久_国产黄色A一片免费看 | 国产麻豆精品a在线观看_91成人天堂久久成人_国产精品久久久久久52avav_成人av激情人伦小说_亚洲黄视频在线观看_国产成人亚洲综合网站小说_精品国产乱来一区二区三区_亚洲日韩中文字幕a∨ | 中文字字幕在线观看_国产亚洲欧美日韩在线爱豆_色就是色亚洲色图_国产裸体歌舞一区二区_无限在线看免费视频大全_艳妇臀荡乳欲伦交换在线播放_一二三四区在线播放_视色视频在线观看 | 国产私人影院_8090成人午夜精品无码_久草网av_99产精品成人啪免费网站_噜啊噜在线视频_国产精品视频福利_九九视频精品在线观看_91视频免费进入 | 美女mm131爽爽爽作爱视频_快色在线观看视频_天天躁夜夜躁狠狠躁2021西西_久久精品国产网址_欧洲一级片_精品美女_欧美性生交XXXXX无码_熟妇人妻久久中文字幕 | 午夜影院黄色片_日本aⅴ_午夜免费1000部_在线观看免费成人av_一个人免费观看在线视频www_一级做a爰片久久毛片_亚洲国产中文在线视频_国产亚洲精品线观看动态图 | 一区二区三区精品久久久_国产欧美日韩成人_亚洲免费一级_欧美视频一区二区三区_91桃色在线免费观看_在线看一级片_午夜av亚洲国产素人资源网_免费午夜无码视频在线观看 | 国产另类精品_a级高清免费毛片av播放_日韩午夜在线视频_538任你躁精品视频网免费_久草福利资源在线_福利一区福利二区_乡下农村一级毛片_99久热在线精品视频成人一区 | 在线观看91精品国产麻豆_少妇p毛又多水又大又黑_超碰91人人_segui88久久综合_国产JIZZJIZZ麻豆全部免费_国产精品一区二区三区av麻_色多多污_四虎www4hv | 亚洲AV无码国产精品色午友在线_欧美黄色一级视频_久久精品亚洲国产奇米99_亚洲欧美日韩影院_亚洲精品欧美综合网_国产美女的第一次好痛在线观看_大内密探零零性性在线观看_五月天色视频 | GV在线网站_中年熟女被啪高潮视频_国产在线观看你懂的_国产成人亚洲精品无码不卡_一级黄色大毛片_伊人情成综合网2019_国产主播一区二区_日本大片免a费观看视频的特点 | 久草高清_中文字幕无码中文字幕有码在线_日韩成年视频_91成人在线免费观看_日本爽爽爽爽爽爽在线观看免_特大黑人娇小亚洲女_91亚洲国产成人_精品少妇亚洲乱码 | 亚洲欧美日韩、中文字幕不卡_黄不卡免费在线_91精品国产综合久久久久久粉嫩_伊人久久大香线蕉午夜AV_亚洲最大AV资源网在线观看_男人女人真曰批免费观看国产_日韩中文字幕在线一区二区三区_久久精品手机视频 |