frmpattern.frm

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

      Top             =   600
      Width           =   255
   End
   Begin VB.CheckBox chkPatternBit 
      Caption         =   "Check1"
      Height          =   255
      Index           =   2
      Left            =   3360
      TabIndex        =   4
      Top             =   600
      Width           =   255
   End
   Begin VB.CheckBox chkPatternBit 
      Caption         =   "Check1"
      Height          =   255
      Index           =   1
      Left            =   3840
      TabIndex        =   1
      Top             =   600
      Width           =   255
   End
   Begin VB.CheckBox chkPatternBit 
      Caption         =   "Check1"
      Height          =   255
      Index           =   0
      Left            =   4320
      TabIndex        =   0
      Top             =   600
      Width           =   255
   End
   Begin VB.Frame framBit 
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   1095
      Index           =   0
      Left            =   4200
      TabIndex        =   22
      Top             =   840
      Width           =   495
      Begin VB.OptionButton optPatternBitHi 
         Enabled         =   0   'False
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   24
         Top             =   240
         Value           =   -1  'True
         Width           =   255
      End
      Begin VB.OptionButton optPatternBitLo 
         Enabled         =   0   'False
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   23
         Top             =   720
         Width           =   255
      End
   End
   Begin VB.Label Label12 
      Alignment       =   1  'Right Justify
      Caption         =   "Low :"
      Height          =   255
      Left            =   360
      TabIndex        =   19
      Top             =   1560
      Width           =   495
   End
   Begin VB.Label Label11 
      Alignment       =   1  'Right Justify
      Caption         =   "High :"
      Height          =   255
      Left            =   360
      TabIndex        =   18
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label10 
      Alignment       =   1  'Right Justify
      Caption         =   "Enable :"
      Height          =   255
      Left            =   240
      TabIndex        =   17
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label9 
      Alignment       =   1  'Right Justify
      Caption         =   "Bit :"
      Height          =   255
      Left            =   480
      TabIndex        =   16
      Top             =   240
      Width           =   375
   End
   Begin VB.Label Label8 
      Caption         =   "7"
      Height          =   255
      Left            =   960
      TabIndex        =   15
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label7 
      Caption         =   "6"
      Height          =   255
      Left            =   1440
      TabIndex        =   14
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label6 
      Caption         =   "5"
      Height          =   255
      Left            =   1920
      TabIndex        =   11
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label5 
      Caption         =   "4"
      Height          =   255
      Left            =   2400
      TabIndex        =   10
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label4 
      Caption         =   "3"
      Height          =   255
      Left            =   2880
      TabIndex        =   7
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label3 
      Caption         =   "2"
      Height          =   255
      Left            =   3360
      TabIndex        =   6
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label2 
      Caption         =   "1"
      Height          =   255
      Left            =   3840
      TabIndex        =   3
      Top             =   240
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "0"
      Height          =   255
      Left            =   4320
      TabIndex        =   2
      Top             =   240
      Width           =   255
   End
End
Attribute VB_Name = "frmPattern"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public EnableMask As Integer
Public PatternValue As Integer
Public bCancel As Boolean

Private Sub chkPatternBit_Click(Index As Integer)
   If chkPatternBit(Index).Value = 1 Then
      framBit(Index).Enabled = True
      optPatternBitHi(Index).Enabled = True
      optPatternBitLo(Index).Enabled = True
      Select Case Index
      Case 0
         EnableMask = EnableMask Or &H1
      Case 1
         EnableMask = EnableMask Or &H2
      Case 2
         EnableMask = EnableMask Or &H4
      Case 3
         EnableMask = EnableMask Or &H8
      Case 4
         EnableMask = EnableMask Or &H10
      Case 5
         EnableMask = EnableMask Or &H20
      Case 6
         EnableMask = EnableMask Or &H40
      Case 7
         EnableMask = EnableMask Or &H80
      End Select
   Else
      framBit(Index).Enabled = False
      optPatternBitHi(Index).Enabled = False
      optPatternBitLo(Index).Enabled = False
      Select Case Index
      Case 0
         EnableMask = EnableMask And &HFE
      Case 1
         EnableMask = EnableMask And &HFD
      Case 2
         EnableMask = EnableMask And &HFB
      Case 3
         EnableMask = EnableMask And &HF7
      Case 4
         EnableMask = EnableMask And &HEF
      Case 5
         EnableMask = EnableMask And &HDF
      Case 6
         EnableMask = EnableMask And &HBF
      Case 7
         EnableMask = EnableMask And &H7F
      End Select
   End If
End Sub

Private Sub cmdCancel_Click()
   bCancel = True
   Me.Hide
End Sub

Private Sub cmdPatternOK_Click()
   bCancel = False
   Me.Hide
End Sub

Private Sub Form_Load()
   EnableMask = 0
   PatternValue = &HFF
End Sub

Private Sub optPatternBitHi_Click(Index As Integer)
   Select Case Index
   Case 0
      PatternValue = PatternValue Or &H1
   Case 1
      PatternValue = PatternValue Or &H2
   Case 2
      PatternValue = PatternValue Or &H4
   Case 3
      PatternValue = PatternValue Or &H8
   Case 4
      PatternValue = PatternValue Or &H10
   Case 5
      PatternValue = PatternValue Or &H20
   Case 6
      PatternValue = PatternValue Or &H40
   Case 7
      PatternValue = PatternValue Or &H80
   End Select
End Sub

Private Sub optPatternBitLo_Click(Index As Integer)
   Select Case Index
   Case 0
      PatternValue = PatternValue And &HFE
   Case 1
      PatternValue = PatternValue And &HFD
   Case 2
      PatternValue = PatternValue And &HFB
   Case 3
      PatternValue = PatternValue And &HF7
   Case 4
      PatternValue = PatternValue And &HEF
   Case 5
      PatternValue = PatternValue And &HDF
   Case 6
      PatternValue = PatternValue And &HBF
   Case 7
      PatternValue = PatternValue And &H7F
   End Select
End Sub