VB与三菱40点PLC的通讯程序

喜欢ヅ旅行 2021-11-29 11:38 345阅读 0赞

Dim rec\_bv As Variant  
Dim rec\_flag As Integer  
Dim timer1\_count As Integer  
  
**Private Sub Form\_Load()**  
  
    MSComm1.CommPort = 1  
    MSComm1.Settings = "9600,n,8,1"  
    MSComm1.PortOpen = True  
    MSComm1.RThreshold = 10  
    MSComm1.InputMode = comInputModeBinary  
    Timer1.Enabled = True  
  
MSFlexGrid1.Cols = 12  
    MSFlexGrid2.Cols = 12  
    MSFlexGrid3.Cols = 13  
    MSFlexGrid4.Cols = 13  
  
    For i = 0 To 11  
        MSFlexGrid1.ColWidth(i) = MSFlexGrid1.Width / 12  
        MSFlexGrid2.ColWidth(i) = MSFlexGrid2.Width / 12  
        MSFlexGrid3.ColWidth(i) = MSFlexGrid3.Width / 13  
        MSFlexGrid4.ColWidth(i) = MSFlexGrid4.Width / 13  
    Next i  
  
    For i = 0 To 11  
        MSFlexGrid1.Row = 0  
        MSFlexGrid1.Col = i  
        MSFlexGrid1.CellAlignment = 4  
        MSFlexGrid2.Row = 0  
        MSFlexGrid2.Col = i  
        MSFlexGrid2.CellAlignment = 4  
    Next i  
  
    For i = 0 To 12  
        MSFlexGrid3.Row = 0  
        MSFlexGrid3.Col = i  
        MSFlexGrid3.CellAlignment = 4  
        MSFlexGrid4.Row = 0  
        MSFlexGrid4.Col = i  
        MSFlexGrid4.CellAlignment = 4  
Next I  
  
    For i = 0 To 23  
        If i Mod 2 = 0 Then  
            MSFlexGrid1.TextMatrix(0, i / 2) = "X" + CStr(Int(i / 8) \* 10 + i Mod 8)  
        End If  
        If i Mod 2 = 1 Then  
            MSFlexGrid2.TextMatrix(0, Int(i / 2)) = "X" + CStr(Int(i / 8) \* 10 + i Mod 8)  
        End If  
    Next i  
  
    Call Y\_grid\_init  
  
**End Sub**  
  
**Private Sub MSComm1\_OnComm()**  
  
    Dim label\_text As String  
  
    Select Case MSComm1.CommEvent  
        Case comEvReceive  
            Sleep (100)  
            MSComm1.InputLen = 0  
            rec\_bv = MSComm1.Input  
            If rec\_flag = 1 Then  
                Call set\_state\_1  
                rec\_flag = 2  
                Exit Sub  
            End If  
            If rec\_flag = 2 Then  
                Call set\_state\_2  
                rec\_flag = 0  
            End If  
            If rec\_flag = 3 Then  
                For i = 5 To 28  
                    j = j + 1  
                    If j <= 4 Then  
                        label\_text = label\_text & Chr(rec\_bv(i))  
                    Else  
                        Label1(kk).Caption = Format(CDec("&H" & label\_text), "0000")  
                        label\_text = Chr(rec\_bv(i))  
                        j = 1  
                    End If  
                    kk = Int((i - 5) / 4)  
                Next i  
                Label1(kk).Caption = Format(CDec("&H" & label\_text), "0000")  
                rec\_flag = 0  
                err\_string = ""  
                For i = 0 To 7  
                    err\_string = err\_string & Label1(i).Caption  
                Next i  
            End If  
    End Select  
  
**End Sub**  
  
**Private Sub readStatus1()**  
  
    Dim send\_bv() As Byte  
    ReDim send\_bv(0 To 16)  
  
    send\_bv(0) = &H5  
    send\_bv(1) = &H30  
    send\_bv(2) = &H30  
    send\_bv(3) = &H46  
    send\_bv(4) = &H46  
    send\_bv(5) = &H42  
    send\_bv(6) = &H52  
    send\_bv(7) = &H41  
    send\_bv(8) = &H58  
    send\_bv(9) = &H30  
    send\_bv(10) = &H30  
    send\_bv(11) = &H30  
    send\_bv(12) = &H30  
    send\_bv(13) = &H31  
    send\_bv(14) = &H38  
    send\_bv(15) = &H34  
    send\_bv(16) = &H32  
  
    rec\_flag = 1  
    MSComm1.Output = send\_bv  
  
    Do Until rec\_flag = 2  
        DoEvents  
    Loop  
  
    ReDim send\_bv(0 To 16)  
  
    send\_bv(0) = &H5  
    send\_bv(1) = &H30  
    send\_bv(2) = &H30  
    send\_bv(3) = &H46  
    send\_bv(4) = &H46  
    send\_bv(5) = &H42  
    send\_bv(6) = &H52  
    send\_bv(7) = &H41  
    send\_bv(8) = &H59  
    send\_bv(9) = &H30  
    send\_bv(10) = &H30  
    send\_bv(11) = &H30  
    send\_bv(12) = &H30  
    send\_bv(13) = &H31  
    send\_bv(14) = &H30  
    send\_bv(15) = &H33  
    send\_bv(16) = &H42  
  
    rec\_flag = 2  
    MSComm1.Output = send\_bv  
  
**End Sub**  
  
**Private Sub readStatus2()**  
  
    Dim send\_bv() As Byte  
    ReDim send\_bv(0 To 16)  
  
    send\_bv(0) = &H5  
    send\_bv(1) = &H30  
    send\_bv(2) = &H30  
    send\_bv(3) = &H46  
    send\_bv(4) = &H46  
    send\_bv(5) = &H57  
    send\_bv(6) = &H52  
    send\_bv(7) = &H41  
    send\_bv(8) = &H44  
    send\_bv(9) = &H38  
    send\_bv(10) = &H30  
    send\_bv(11) = &H36  
    send\_bv(12) = &H30  
    send\_bv(13) = &H30  
    send\_bv(14) = &H38  
    send\_bv(15) = &H35  
    send\_bv(16) = &H30  
  
    rec\_flag = 3  
    MSComm1.Output = send\_bv  
  
**End Sub**  
  
**Private Sub set\_state\_1()**  
  
    X\_str = ""  
    For i = 5 To 28  
        If (i - 5) Mod 2 = 0 Then  
            MSFlexGrid1.Row = 1  
            MSFlexGrid1.Col = (i - 5) / 2  
            If rec\_bv(i) = &H30 Then  
                Set MSFlexGrid1.CellPicture = red.Picture  
            End If  
            If rec\_bv(i) = &H31 Then  
                Set MSFlexGrid1.CellPicture = green.Picture  
            End If  
        End If  
        If (i - 5) Mod 2 = 1 Then  
            MSFlexGrid2.Row = 1  
            MSFlexGrid2.Col = Int((i - 5) / 2)  
            If rec\_bv(i) = &H30 Then  
                Set MSFlexGrid2.CellPicture = red.Picture  
            End If  
            If rec\_bv(i) = &H31 Then  
                Set MSFlexGrid2.CellPicture = green.Picture  
            End If  
        End If  
        If rec\_bv(i) = &H30 Then  
            X\_str = X\_str & "0"  
        End If  
        If rec\_bv(i) = &H31 Then  
            X\_str = X\_str & "1"  
        End If  
    Next i  
  
**End Sub**  
  
**Private Sub set\_state\_2()**  
  
    Dim li\_flag As Integer  
    Y\_str = ""  
    For i = 5 To 20  
        li\_flag = 0  
        Select Case (i - 5)  
            Case 0  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 0  
            Case 1  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 1  
            Case 2  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 2  
            Case 4  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 4  
            Case 6  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 5  
            Case 8  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 7  
            Case 10  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 8  
            Case 12  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 10  
            Case 14  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 11  
            Case 16  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 13  
            Case 18  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 14  
            Case 20  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 16  
            Case 22  
                MSFlexGrid3.Row = 1  
                MSFlexGrid3.Col = 17  
            Case Else  
                li\_flag = 1  
        End Select  
  
        If li\_flag = 0 Then  
            If rec\_bv(i) = &H30 Then  
                Set MSFlexGrid3.CellPicture = red.Picture  
            End If  
            If rec\_bv(i) = &H31 Then  
                Set MSFlexGrid3.CellPicture = green.Picture  
            End If  
        End If  
  
        Select Case (i - 5)  
        Case 3  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 3  
        Case 5  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 5  
        Case 7  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 6  
        Case 9  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 8  
        Case 11  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 9  
        Case 13  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 11  
        Case 15  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 12  
        Case 17  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 14  
        Case 19  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 15  
        Case 21  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 17  
        Case 23  
            MSFlexGrid4.Row = 1  
            MSFlexGrid4.Col = 18  
        Case Else  
            li\_flag = 2  
        End Select  
  
        If li\_flag = 1 Then  
            If rec\_bv(i) = &H30 Then  
                Set MSFlexGrid4.CellPicture = red.Picture  
            End If  
            If rec\_bv(i) = &H31 Then  
                Set MSFlexGrid4.CellPicture = green.Picture  
            End If  
        End If  
  
        If rec\_bv(i) = &H30 Then  
            Y\_str = Y\_str & "0"  
        End If  
  
        If rec\_bv(i) = &H31 Then  
            Y\_str = Y\_str & "1"  
        End If  
  
    Next i  
  
**End Sub**  
  
**Private Sub Y\_grid\_init()**  
  
    Dim i As Integer  
  
    For i = 1 To 13  
        MSFlexGrid3.Row = 0  
        MSFlexGrid3.Col = i - 1  
        MSFlexGrid4.Row = 0  
        MSFlexGrid4.Col = i - 1  
        MSFlexGrid3.CellPictureAlignment = 4  
        Select Case i  
        Case 1  
            MSFlexGrid3.Text = "Y0"  
            MSFlexGrid4.Text = "COM0"  
        Case 2  
            MSFlexGrid3.Text = "Y1"  
            MSFlexGrid4.Text = "COM1"  
        Case 3  
            MSFlexGrid3.Text = "Y2"  
            MSFlexGrid4.Text = "COM2"  
        Case 4  
            Set MSFlexGrid3.CellPicture = angel.Picture  
            MSFlexGrid4.Text = "Y3"  
        Case 5  
            MSFlexGrid3.Text = "Y4"  
            MSFlexGrid4.Text = "COM3"  
        Case 6  
            MSFlexGrid3.Text = "Y6"  
            MSFlexGrid4.Text = "Y5"  
        Case 7  
            Set MSFlexGrid3.CellPicture = angel.Picture  
            MSFlexGrid4.Text = "Y7"  
        Case 8  
            MSFlexGrid3.Text = "Y10"  
            MSFlexGrid4.Text = "COM4"  
        Case 9  
            MSFlexGrid3.Text = "Y12"  
            MSFlexGrid4.Text = "Y11"  
        Case 10  
            Set MSFlexGrid3.CellPicture = angel.Picture  
            MSFlexGrid4.Text = "Y13"  
        Case 11  
            MSFlexGrid3.Text = "Y14"  
            MSFlexGrid4.Text = "COM5"  
        Case 12  
            MSFlexGrid3.Text = "Y16"  
            MSFlexGrid4.Text = "Y15"  
        Case 13  
            Set MSFlexGrid3.CellPicture = angel.Picture  
            MSFlexGrid4.Text = "Y17"  
        End Select  
    Next i  
  
**End Sub**  
  
**Private Sub Timer1\_Timer()**  
  
    On Error Resume Next  
  
    timer1\_count = timer1\_count + 1  
    If timer1\_count < 5 Then  
        Call readStatus1  
    Else  
        timer1\_count = 0  
        Call readStatus1  
        Do Until rec\_flag = 0  
            DoEvents  
        Loop  
        Call readStatus2  
    End If  
  
**End Sub**  
  
**Private Sub Label1\_Change(Index As Integer)**  
  
    If Label1(Index).Caption = "" Then  
        Label1(Index).ToolTipText = ""  
        Exit Sub  
    End If  
  
**End Sub**  
  
**Private Sub Form\_QueryUnload(Cancel As Integer, UnloadMode As Integer)**  
  
    If MSComm1.PortOpen = True Then  
        MSComm1.PortOpen = False  
End If  
**End Sub**

转载于:https://www.cnblogs.com/tecsoon/archive/2010/08/27/1810152.html