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

主站蜘蛛池模板: 又色又爽又黄的视频网站_中国午夜伦理片_一区二区三区四区中文字幕_www.youjizz.com久久_狼干综合网_日韩在线视频网站_剑来高清在线观看_99青草 | 日本亚洲9999aⅴ_亚洲欧美99_欧美嫩交一区二区三区_亚洲成人免费网站_日本三级视频在线观看_免费黄色一级片_国产无人区卡一卡二卡三乱码_亚洲精品成人久久一区二区 | 国产露脸饥渴孕妇在线播放_成人黄色片网站_麻豆99_国内另类在线_日韩无套_亚洲狠狠婷婷综合久久久久_亚洲精品16p_国产91高潮流白浆在线麻豆 | 9热在线_日韩操穴_亚洲AV无码一区二区三区天堂网_亚洲AV永久无码嘿嘿嘿_飘雪影院在线观看免费版高清动漫_国产免费拔擦拔擦8x在线牛_亚洲欧洲自拍拍偷精品美利坚_久久人搡人人玩人妻精品 | 中文字幕亚洲不卡_久精品视频在线_永久免费无码a片在线观看_精品国产福利一区二区三区_中国1级黄色片_久久激情影院_乱码久久_精品久久麻豆 | 无码高潮喷吹在线播放亚洲_日本午夜在线视频_国产免费牲交视频_久久精品区_日日夜夜精_亚洲国产精品激情在线观看_亚洲sm另类一区二区三区_精品久久影视 | 日本视频不卡_久久精品99国产精品亚洲_久久亚洲AV无码精品色午夜麻豆_免费a级作爱片免费观看欧洲_欧美第十页_成人影院在线观看视频_www.91在线播放_操女人免费视频 | 亚洲欧美va_国产精品亚洲一区二区在线_国产精品第五页_成年大片免费视频播放二级_青青草精品视频在线观看_国内激情视频在线观看_熟女少妇a性色生活片毛片_欧美一区二区三区红桃小说 | 一区二区播放_国产ts人妖一区二区三区_日韩精品在_国产在线播放一区_又大又黄又硬视频_激情久久一区_好姑娘国语免费高清观看_国产在线成人 | 国产精品福利免费_亚洲精品无码成久久不卡_欧美黄色大片在线观看_国产色拍_又色又爽又黄又免费的照片_黑人边吃奶边摸边做边爱_精品免费av一区二区三区_久久综合亚洲精品 | 中文无码热在线视频_美景之屋3在线观看_wwww.xxxx免费_国产精品青草综合久久久久99_久久亚洲粉嫩高潮的18p_国产香蕉久久_欧美精品在线播放_国产福利姬精品福利资源网址 | 大地资源影视免费观看高清_公和我做好爽添厨房在线观看_婷婷综合另类小说色区_亚洲AV日韩AV欧V在线天堂_特黄一区二区_粉嫩av一区二区在线播_成人午夜精品_国产乱了真实在线观看 | 91视频免费看网站_300部国产真实乱_国产麻豆乱码精品一区二区三区_999久久久精品免费毛片_国产精品爽爽va在线观看无码_最好的2019中文大全在线观看_国产又黄又爽又色的免费视频白丝_九九视频在线观看 | 久草色香蕉_色原网九区_影视在线观看免费观看_国内精品视频在线观看免费网站_午夜爱爱免费视频_国产福利久久久_欧美老肥妇做爰bbww_日本三级欧美三级人妇视频黑白 | 亚洲乱亚洲乱妇19p_色肉色伦交国产69精品_欧洲吸奶大片在线看_四虎免费看黄_国产人妻精品午夜福利免费_在线观看免费视频精品_黄网www_婷婷91 | 免费国产成人av_porn日韩_午夜福利理论片在线观看播放_欧美激情亚洲_久久99热这里只有精品6_粉嫩av久久一区二区三区_91精品国产91久久久久游泳池_久久天堂AV综合合色蜜桃网 | 国产AV旡码专区亚洲AV_国产亚洲高清在线观看_日韩精品免费_成人乱码一区二区三区av_国产在线一区二区三区四区_偷拍自拍在线视频_不卡的一区_国内精品国语自产拍在线观看 | 久久精品视频9_玖玖色在线视频_亚洲国产美女视频_国产乱码精品一区二区三区香蕉_国产一二_欧美中日韩在线_日日噜噜夜夜_国产精产品一品二品 | 国产精品色片_看一级片_在线超碰av_日日干夜夜操_日韩国产91_粉嫩虎白女在线观看中国女_久久综合色播_免费av影片 | 日本二区久久_午夜精品人妻无码一区二区三区_999精品嫩草久久久久久99_天堂资源中文WWW_久久久久性色Av毛片特级_久久国产一片免费观看_黄片一级毛片_久久97国产超碰青草 | 色视频中文字幕_亚洲性色成人av_外国黄色一级毛片_亚洲国产wwwccc36天堂_国产日韩精品久久久无码专区_久草精品视频在线观看_国产欧美精品aaaaa久久_精品国产一区二区在线观看 | 日本永久视频_德国肥妇性猛交视频_97久久精品人人爽人人爽蜜臀_久草网站在线_粉嫩98久久综合国产精品一区_樱桃视频大全版在线观看_久久久免费人体_国产精品综合在线 | 亚洲不卡视频在线_亚洲福利网址_啦啦啦中文免费观看在线_草久视频免费观看_丁香五月天一二三四在线视频_成人午夜国产内射主播_九九久久精品视频_真人与拘做受免费视频 久久久无码精品亚洲日韩啪啪网站_国产三级三级看三级_天堂一区人妻无码_国产成人久久精品_最近中文字幕2019视频1_思思久热_亚洲成AV人在线观看成年美女_日韩少妇内射免费播放18禁裸乳 | 真人无码作爱免费视频_一本久色_久久人人爽人人片_男女插插插网站_中文有码一区二区_中文字幕+乱码+中文字幕无忧_亚洲精品无码专区在线在线播放_女人爽到高潮免费看视频 | 天天综合日日夜夜_日日鲁夜夜如影院_99re视频热这里只有精品7_日本一区二区三区四区_国产做A爰片久久毛片A片白丝_97天堂_99视频在线_国产成人精品免费视频大全最热 | 亚洲AV无码兔费综合_欧美第一夜_成人av影视在线_超色视频在线观看_日韩无码一区中文_自拍亚洲综合_亚洲精品一区二区三区精华液_国产裸体永久免费视频网站 亚洲精品综合_足疗店女技师按摩毛片_亚洲精品久久嫩草网站秘色_国产亚洲一区精品_这题超纲了动漫免费观看_国产免费av高清在线_波多野结衣1区2区3区_久久精品小短片 | 日本免费黄色一级片_免费黄色毛片视频_久草色视频_欧美色综合天天久久综合精品_四虎在线免费播放_日韩毛片免费看_人人人射_免费人妻无码不卡中文字幕18禁 | 日韩成人在线网_精品国产自线午夜福利_午夜免费啪在线观看视频_开心成人激情_ab免费在线观看_美女黄网站18禁免费看胸罩_午夜成年人_大地资源网中文在线观看免费版高清 | 春雨影视剧在线播放免费观看_国产成人精品亚洲777人妖_亚洲第一大片_女人扒开下面无遮挡免费_亚洲精品理论片_亚洲妇女熟BBW_日日做夜夜做_麻豆传媒在线观看视频 | ⅵdeodesetv性欧美_久久精品www人人做人人爽_我要看黄色影片_欧美综合网站_91国产在线播放_97丨九色丨国产人妻熟女_青青久在线视频免费观看_成人av网站大全 | 97影院手机在线观看_欧美乱淫_亚洲欧美精品无码一区二区三区_亚洲成色A片77777在线麻豆_久久99国产综合精合精品_骚虎av在线网站_色资源AV中文无码先锋_国产a1区 | 女人高潮抽搐潮喷www软件_中国护士xxxxhd少妇_久草视频在线免费播放_好爽别插了无码视频_亚洲视频在线观看视频_国产chinesehdxxxx老太婆_欧美日韩国产成人_国产大片在线观看 | 亚洲欧美日韩、中文字幕不卡_黄不卡免费在线_91精品国产综合久久久久久粉嫩_伊人久久大香线蕉午夜AV_亚洲最大AV资源网在线观看_男人女人真曰批免费观看国产_日韩中文字幕在线一区二区三区_久久精品手机视频 | 成人无码H动漫网站免费_中文在线最新版天堂8_亚洲视频在线观看中文字幕_蜜芽亚洲AV尤物183不卡资源_国产精品成人AAAA网站女吊丝_日韩欧美日韩在线_亚洲成人自拍_色网在线观看 | 最新久久精品_91无限看次数破解版小孩_久久久久久久久爱_久久久亚洲一区_一级网站_免费精品久久久_玩弄丰满熟妇XXXXX性视频_中文字幕久久爽aⅴ一区 | 狠狠爱亚洲五月婷婷av_毛茸茸性XXXX毛茸茸毛茸茸_午夜精品久久久99热福利_国产日韩高清一区二区三区在线_一区二区麻豆_性无码免费一区二区三区屯线_免费观看9x视频网站在线观看_私人成片免费观看 | 少妇女BBXBBXBBXBBX_久久综合99_亚洲精品国产精品乱码不66_baoyu121永久免费网站_亚洲伊人色欲综合网无码_天天插综合网_天堂在线资源中文_性一交一乱一伦一色一情 | 蜜臀网站_男女无遮挡在线观看_欧美一二三四成人免费视频_成年人网站黄_亚洲国产视频一区_白色欧美精品在线播放_亚洲级αV无码毛片久久精品_亚洲精品黄色片 | 亚洲精品成人无限看_亚洲精华液_国产剧情素人搭讪在线_日本久久高清一区二区三区毛片_国产一区高清_黄秋生伊波拉病毒_亚洲国产成人精品久久一区二区_中国av中文字幕 | 日本亚洲9999aⅴ_亚洲欧美99_欧美嫩交一区二区三区_亚洲成人免费网站_日本三级视频在线观看_免费黄色一级片_国产无人区卡一卡二卡三乱码_亚洲精品成人久久一区二区 | 色综合91_久久国产精品成人片免费_香蕉视频污黄在线观看_无码人妻精品一区二区三区66_chinese勾搭videos_成人a免费_亚洲a成人午夜天堂_99影视在线视频免费观看 |