培訓(xùn)教程合集版與通信源碼

1、范B 系離爍 的能 系離爍 儎 系爍 網(wǎng)股始必情必商噪 系離爍 范B 展從 系離爍 環(huán)B始系離爍倉(cāng)商W隨高prol跳采采量r噪 網(wǎng)股始始必情必環(huán)B始系離爍 環(huán)B始系離爍 網(wǎng)股始必情必 系離爍 商噪 商清股爍的的0必留噪商清股爍的的0情留噪環(huán)B始系離爍 度抗 商清股爍的的 意0留意狀留噪 系離爍 系離爍 系離爍 芳算噪窗跳st量r 系離爍展 網(wǎng)0網(wǎng)意 網(wǎng)度網(wǎng)必 網(wǎng)情 哺藊0藊度藊必 哺1股能藉商0必留噪0商情0留噪度商情度留噪意商情意留噪度商情度留噪度商情度留噪環(huán)商意控留噪普商情普留噪狀能藉商0情留噪股能藉商0必留噪0商情0留噪度商情度留噪意商情意留噪度商情度留噪0商情0留噪環(huán)商意控留噪方商情方

2、留噪狀能藉商0情留噪 速長(zhǎng)量速額sum 0抗00 清股爍的的 系離爍 商股l跳v量噪系爍商窗跳st量r 噪藊情藊意藊抗 哺 藉必 系離爍 網(wǎng)0網(wǎng)意 系離爍 藉度 2 范B 系爍 網(wǎng)股必情必 系離爍 00過(guò)ps 范B 環(huán)orm象離o跳采商噪poll隨高鈕 系離爍 范B 股量高采環(huán)r跳m量商然跳t跳如 算o噪系離爍 范B 股量高采象網(wǎng)量fl隨速額商噪 系離爍 亯 范B 股量高采爍m采l隨速額商噪3 藊0 哺 藊度 藊情 哺 藊意 4 五、從 系爍 環(huán)B始系離爍 范B 的高t量r高量t 網(wǎng)股意 方0儎 普0 從環(huán)B始網(wǎng)股始必情必七、VB 程序代碼Form1 程序代碼如下：Dim Status1(15

3、) Dim Status2(12) Dim bx(15) Dim by(12) Dim RegDim flag Dim flag1 Dim flag2 Dim page_no和的高put 藉 和Output 藊 和藉和藊和和 系離爍 和 系離爍 和享便意清便 便意B便Public Sub SendFrame(Data, No) Select Case NoCase 0:Check = Calculate_LRC(Data, 0)和商噪和 離網(wǎng)爍 sendtxt = Chr$(&H2) & Trim(ClientNo) & Trim(CmdNo) & Trim(D

4、ata) & Trim(Check) & Chr$(&H3)和增增增增增Case 1:Check = Calculate_LRC(Data, 1)和 離網(wǎng)爍 sendtxt = Chr$(&H2) & Trim(ClientNo) & Trim(Data) & Trim(Check) & Chr$(&H3)和增增增增Case 2: sendtxt = Chr$(&H2) & Trim(ClientNo) & Trim(Data) & Trim(Check_RegText) & Chr

5、(&H3)和增增End SelectMSComm.Output = sendtxt End Sub和 網(wǎng)股始必情必 Public Function Calculate_LRC(Data, No) As String Select Case NoCase 0:和 離網(wǎng)爍 商噪LRC = 2 + Asc(Left(ClientNo, 1) + Asc(Mid(ClientNo, 2, 1) + Asc(Left(CmdNo, 1) + Asc(Mid(CmdNo, 2, 1)和 爍長(zhǎng)r準(zhǔn)商參留必噪Case 1:LRC = 2 + Asc(Left(ClientNo, 1) + Asc(Mi

6、d(ClientNo, 2, 1) End SelectFor i = 1 To Len(Data)LRC = LRC + Asc(Mid(Data, i, 1)Next和 然跳t跳 離網(wǎng)爍 5LRC_Remain = LRC Mod 16 LRC_Quotient = LRC 16 LRC_Quotient = LRC_Quotient Mod 16Calculate_LRC = Hex(LRC_Quotient) & Hex(LRC_Remain) End Function和 離網(wǎng)爍 和和離網(wǎng)爍 和Private Sub B_Y_Click(Index As Integer) If

7、 Index = 0 ThenIf by(Index) = 1 Then sendtxt = "424Y0000" by(Index) = 0Elsesendtxt = "423Y0000" by(Index) = 1End IfElseIf by(Index) = 1 Thensendtxt = "424Y000" & Format(Hex(Index), "#") by(Index) = 0Elsesendtxt = "423Y000" & Format(Hex(Index)

8、, "#") by(Index) = 1End If End If和藊商噪和 0 和 留隨 離ow和 0和 過(guò)y商的x噪 離ow 藊和 離ow如 留隨和 過(guò)y商的x噪 留隨和 度 度度 和如亱 0SendFrame sendtxt, 1 End Sub和 網(wǎng)股始必情必Private Sub CmdList_Click()Select Case CmdList.ListIndex Case 0: CmdNo = "40"Case 1: CmdNo = "41"Case 2: CmdNo = "42"Case 3: C

9、mdNo = "43"Case 4: CmdNo = "44"Case 5: CmdNo = "45"Case 6: CmdNo = "46"Case 7: CmdNo = "47"Case 8: CmdNo = "48"Case 9: CmdNo = "49" Case 10: CmdNo = "4A" Case 11: CmdNo = "4B" Case 12: CmdNo = "4C" Ca

10、se 13: CmdNo = "4D" Case 14: CmdNo = "4E"End Select End Sub和商噪 和Private Sub CmdNo_Change() Select Case CmdNo.TextCase "40": CmdList.ListIndex = 0Case "41": CmdList.ListIndex = 1Case "42": CmdList.ListIndex = 2Case "43": CmdList.ListIndex =

11、3Case "44": CmdList.ListIndex = 4Case "45": CmdList.ListIndex = 5Case "46": CmdList.ListIndex = 6Case "47": CmdList.ListIndex = 7Case "48": CmdList.ListIndex = 8和商噪和6Case "49": CmdList.ListIndex = 9 Case "4A": CmdList.ListIndex =

12、10 Case "4B": CmdList.ListIndex = 11 Case "4C": CmdList.ListIndex = 12 Case "4D": CmdList.ListIndex = 13 Case "4E": CmdList.ListIndex = 14Case Else: MsgBox "!", vbCritical, "!" End SelectEnd SubPrivate Sub Command1_Click() Form1.HideForm2.S

13、how End SubPrivate Sub Connect_Click() flag = 1 Connect.Enabled = False DoDoEventsSendFrame "440CY0000", 1和商噪 和和和 藊0000藊000B 度必 For i = 0 To 10DoEventsNext和SendFrame "4410X0000", 1 Loop While (flag = 1)End Sub和 藉0000藉00度0 度控和 藉 藊 被言Private Sub Form_Activate() CmdList.ListIndex =

14、1End Sub和商噪和人便系離爍 便Private Sub RegText_Change()Check_RegText = Calculate_LRC(RegText, 1) End Sub和網(wǎng)量鈕能量xt 商噪和 離網(wǎng)爍 爍長(zhǎng)量速額象網(wǎng)量鈕能量xt Private Sub SendCmd_Click() If SendData = "" ThenMsgBox "僅僅", vbCritical, 便僅便Else和商噪CheckText = Calculate_LRC(SendData, 0) SendFrame SendData, 0End IfEnd

15、 Sub和 離網(wǎng)爍 和Private Sub ClearData_Click()For i = 0 To 15bx(i) = 0InpX(i).BackColor = RGB(255, 255, 255)NextFor i = 0 To 11by(i) = 0OutY(i).BackColor = RGB(255, 255, 255)Next End Sub和商噪和 O環(huán)環(huán)和 O環(huán)環(huán)7Private Sub EndCmd_Click()If MSComm.PortOpen = True Then MSComm.PortOpen = FalseEnd If EndEnd Sub和商噪和和Priv

16、ate Sub Form_Load() MSComm.CommPort = 1 MSComm.Settings = "9600,e,7,1" MSComm.PortOpen = True MSComm.RThreshold = 1MSComm.InputLen = 0 MSComm.RTSEnable = True和商噪和 爍O窗度 和和和商O(píng)高爍omm噪和0 ' 網(wǎng)量黃u量st 能o 股量高采能股噪 和 網(wǎng)能股 flag = 1flag1 = 0flag2 = 1 End Sub和和 系離爍 和 系離爍 Public Sub MSComm_OnComm()Dobu

17、ffer = buffer & MSComm.InputLoop Until InStr(buffer, Chr(&H3)和網(wǎng)股始必情必 商噪和If InStr(buffer, Chr(&H2) Thenbuffer = Right(buffer, Len(buffer) - 1) End If和If InStr(buffer, Chr(&H3) Thenbuffer = Mid(buffer, 1, InStr(1, buffer, Chr(&H3), 1) - 1) End If和Select Case Mid(buffer, 3, 2) Case

18、"40": ' "系離爍 "Case "41": ' "系離爍 網(wǎng)芳算展股能O系 "Case "42": ' ""Case "43": ' "展" Case "44":' "" XStatus = ""YStatus = ""If Len(buffer) = 23 Then For i = 0 To 15XStatus

19、 = XStatus & Mid(buffer, 6 + i, 1)和和和 藉股t跳tus 和 藊股t跳tus 和 的高put 藉 和0度抗 度控 和 度控 O算展O環(huán)環(huán) 藉股t跳tus If Mid(XStatus, i + 1, 1) = 1 ThenInpX(i).BackColor = RGB(255, 0, 0)bx(i) = 1ElseInpX(i).BackColor = RGB(255, 255, 255)bx(0) = 0End If和 O算和 O環(huán)環(huán)NextElseIf Len(buffer) = 19 Then和 Output 藊 8For i = 0 To 11

20、YStatus = YStatus & Mid(buffer, 6 + i, 1)和0度度 度必和 度必 O算展O環(huán)環(huán) 藊股t跳tus If Mid(YStatus, i + 1, 1) = 1 ThenOutY(i).BackColor = RGB(255, 0, 0)by(i) = 1ElseOutY(i).BackColor = RGB(255, 255, 255)by(i) = 0 End If和 O算和 O環(huán)環(huán)Next End IfCase "45": ' "" Case "46": ' "

21、" Case "47": ' ""Case "48": ' "展展" Case "49": ' "展展" Case "4A":' "" Reg = buffer和 網(wǎng)量鈕flag1 = 1和 網(wǎng)量跳采象系離爍 l隨速額商噪Case "4B":' "" flag2 = 1和 Wr隨t量象系離爍 l隨速額商噪Case "4C":Ca

22、se "4D":Case "4E": Case Else: End Select' "" ' "" ' ""' "" & Mid(buffer, 3, 2) & vbCrLf & bufferEnd SubPrivate Sub Read_PLC_Click() FileDlg.Filter = "*.txt"FileDlg.ShowSavefn = FileDlg.FileName On Error

23、 GoTo errOpen fn For Append As #1和 系離爍商噪 和人塊容txt和 和 f高和如 和For page_no = 0 To 127 RegTxt = ""SendFrame "4A" & Format(Hex(page_no), "#"), 1和 度必方 享和 網(wǎng)量鈕 Do Until flag1 = 1 DoEventsLoop和 系離爍 For i = 3 To Len(Reg) - 2 If i = 4 ThenRegTxt = RegTxt & "B" Else

24、If i = 5 ThenIf page_no < 16 ThenRegTxt = RegTxt & "0" & Hex(page_no)ElseRegTxt = RegTxt & Hex(page_no) End IfElse9和和便意清便便意B便和便0便和亱便0便RegTxt = RegTxt & Mid(Reg, i, 1) End If和 網(wǎng)量鈕能量xt 網(wǎng)量鈕NextRegText = RegTxt Write #1, RegTextflag1 = 0和 網(wǎng)量鈕能量xt 和和Nexterr:和'Close #1 End

25、 SubPrivate Sub RunCmd_Click()If MSComm.PortOpen = False Then MSComm.PortOpen = TrueEnd IfRunCmd.Enabled = False StopCmd.Enabled = True Connect.Enabled = True SendFrame "411", 1flag = 1和商噪和 和和 和和被言End SubPrivate Sub SendData_Change()CheckSum = Calculate_LRC(SendData, 0) End Sub和商噪和 爍長(zhǎng)量速額股u

26、m Private Sub StopCmd_Click() RunCmd.Enabled = True StopCmd.Enabled = False Connect.Enabled = False flag = 0和商噪 和 和和和被言For i = 0 To 4SendFrame "410", 1NextFor i = 0 To 11by(i) = 0OutY(i).BackColor = RGB(255, 255, 255)Next End Sub和和 O環(huán)環(huán)Form2 程序代碼如下：Dim R0, R1, R2, R3, R4Private Sub BackMain

27、_Click() Unload MeForm1.Show End SubPrivate Sub Default_Ref_Click() EW_GreenTime = 25GreenFlashCount = 2GreenFlashTime = 4YellowTime = 20SN_GreenTime = 2510End SubPrivate Sub EW_GreenTime_Change() VScrollGT_EW.Value = EW_GreenTimeEnd SubPrivate Sub Form_Activate() Default_Ref_ClickEnd SubPrivate Sub

28、 Form_Load() VScrollGFT = GreenFlashTime VScrollGFC = GreenFlashCount VScrollYT = YellowTimeVScrollGT_EW = EW_GreenTime VScrollGT_SN = SN_GreenTimeEnd SubPrivate Sub GreenFlashCount_Change() VScrollGFC.Value = GreenFlashCountEnd SubPrivate Sub GreenFlashTime_Change() VScrollGFT.Value = GreenFlashTimeEnd SubPrivate Sub Send_Ref_Click()R0 = Format(Hex(EW_GreenTime), "00