hs.bas

三菱PLC上位机程序详细例子

Attribute VB_Name = "hs"
Public P_值_OutPut, P_值_InPut As Double

Public B_发送指令 As Boolean

Private Sub SetOnOff(ByVal P_第几路开或关 As Integer, ByVal P_第几路 As Integer)

    
    If P_第几路开或关 = 1 Then
        P_值_OutPut = P_值_OutPut Or 2 ^ (P_第几路)
    Else
        P_值_OutPut = P_值_OutPut And &HFFFFFFFF - (2 ^ (P_第几路))
    End If
    
    B_发送指令 = True
    
End Sub


Public Sub SetH(ByVal N As Integer)

    Select Case N
    
        Case 1
            Call SetOnOff(1, 0)
        Case 2
            Call SetOnOff(1, 1)
        Case 3
            Call SetOnOff(1, 2)
        Case 4
            Call SetOnOff(1, 3)
        Case 5
            Call SetOnOff(1, 4)
        Case 6
            Call SetOnOff(1, 5)
        Case 7
            Call SetOnOff(1, 6)
        Case 8
            Call SetOnOff(1, 7)
        Case 9
            Call SetOnOff(1, 8)
        Case 10
            Call SetOnOff(1, 9)
        Case 11
            Call SetOnOff(1, 10)
        Case 12
            Call SetOnOff(1, 11)
        Case 13
            Call SetOnOff(1, 12)
        Case 14
            Call SetOnOff(1, 13)
        Case 15
            Call SetOnOff(1, 14)
        Case 16
            Call SetOnOff(1, 15)
        Case 17
            Call SetOnOff(1, 16)
        Case 18
            Call SetOnOff(1, 17)
        Case 19
            Call SetOnOff(1, 18)
        Case 20
            Call SetOnOff(1, 19)
        Case 21
            Call SetOnOff(1, 20)
        Case 22
            Call SetOnOff(1, 21)
        Case 23
            Call SetOnOff(1, 22)
        Case 24
            Call SetOnOff(1, 23)
        Case 25
            Call SetOnOff(1, 24)
        Case 26
            Call SetOnOff(1, 25)
        Case 27
            Call SetOnOff(1, 26)
    End Select
    
End Sub


Public Sub SetL(ByVal N As Integer)

    Select Case N
    
        Case 1
            Call SetOnOff(0, 0)
        Case 2
            Call SetOnOff(0, 1)
        Case 3
            Call SetOnOff(0, 2)
        Case 4
            Call SetOnOff(0, 3)
        Case 5
            Call SetOnOff(0, 4)
        Case 6
            Call SetOnOff(0, 5)
        Case 7
            Call SetOnOff(0, 6)
        Case 8
            Call SetOnOff(0, 7)
        Case 9
            Call SetOnOff(0, 8)
        Case 10
            Call SetOnOff(0, 9)
        Case 11
            Call SetOnOff(0, 10)
        Case 12
            Call SetOnOff(0, 11)
        Case 13
            Call SetOnOff(0, 12)
        Case 14
            Call SetOnOff(0, 13)
        Case 15
            Call SetOnOff(0, 14)
        Case 16
            Call SetOnOff(0, 15)
        Case 17
            Call SetOnOff(0, 16)
        Case 18
            Call SetOnOff(0, 17)
        Case 19
            Call SetOnOff(0, 18)
        Case 20
            Call SetOnOff(0, 19)
        Case 21
            Call SetOnOff(0, 20)
        Case 22
            Call SetOnOff(0, 21)
        Case 23
            Call SetOnOff(0, 22)
        Case 24
            Call SetOnOff(0, 23)
        Case 25
            Call SetOnOff(0, 24)
        Case 26
            Call SetOnOff(0, 25)
        Case 27
            Call SetOnOff(0, 26)
    End Select

End Sub




Public Function GetXH(ByVal N As Integer) As Boolean

    If (((P_值_InPut) And (2 ^ N)) = (2 ^ N)) Then
        GetXH = True
    Else
        GetXH = False
    End If

End Function