714 lines
23 KiB
Plaintext
714 lines
23 KiB
Plaintext
VERSION 5.00
|
|
Begin VB.Form DIO
|
|
BorderStyle = 1 'Fixed Single
|
|
Caption = "PCI2312_DIO"
|
|
ClientHeight = 6240
|
|
ClientLeft = 45
|
|
ClientTop = 435
|
|
ClientWidth = 11805
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MinButton = 0 'False
|
|
ScaleHeight = 6240
|
|
ScaleWidth = 11805
|
|
StartUpPosition = 3 '窗口缺省
|
|
Begin VB.CommandButton Command_ReadDI
|
|
Caption = "读取DI"
|
|
Height = 375
|
|
Left = 5400
|
|
TabIndex = 18
|
|
Top = 5280
|
|
Width = 1335
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关7"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 7
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 17
|
|
Top = 4320
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关6"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 6
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 16
|
|
Top = 3840
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关5"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 5
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 15
|
|
Top = 3360
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关4"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 4
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 14
|
|
Top = 2880
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关3"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 3
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 13
|
|
Top = 2400
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关2"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 2
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 12
|
|
Top = 1920
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关1"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 1
|
|
Left = 6960
|
|
Style = 1 'Graphical
|
|
TabIndex = 11
|
|
Top = 1440
|
|
Width = 1095
|
|
End
|
|
Begin VB.Frame Frame2
|
|
Caption = "开关量输入状态"
|
|
Height = 4335
|
|
Left = 6480
|
|
TabIndex = 9
|
|
Top = 600
|
|
Width = 4455
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关8"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 8
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 34
|
|
Top = 360
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关9"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 9
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 33
|
|
Top = 840
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关10"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 10
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 32
|
|
Top = 1320
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关11"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 11
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 31
|
|
Top = 1800
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关12"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 12
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 30
|
|
Top = 2280
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关13"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 13
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 29
|
|
Top = 2760
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关14"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 14
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 28
|
|
Top = 3240
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关15"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 15
|
|
Left = 2520
|
|
Style = 1 'Graphical
|
|
TabIndex = 27
|
|
Top = 3720
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DI
|
|
Caption = "开关0"
|
|
Enabled = 0 'False
|
|
Height = 375
|
|
Index = 0
|
|
Left = 480
|
|
Style = 1 'Graphical
|
|
TabIndex = 10
|
|
Top = 360
|
|
Width = 1095
|
|
End
|
|
End
|
|
Begin VB.Frame Frame1
|
|
Caption = "开关量输出控制"
|
|
Height = 4335
|
|
Left = 840
|
|
TabIndex = 0
|
|
Top = 600
|
|
Width = 4215
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关8[关]"
|
|
Height = 375
|
|
Index = 8
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 26
|
|
Top = 360
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关9[关]"
|
|
Height = 375
|
|
Index = 9
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 25
|
|
Top = 840
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关10[关]"
|
|
Height = 375
|
|
Index = 10
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 24
|
|
Top = 1320
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关11[关]"
|
|
Height = 375
|
|
Index = 11
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 23
|
|
Top = 1800
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关12[关]"
|
|
Height = 375
|
|
Index = 12
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 22
|
|
Top = 2280
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关13[关]"
|
|
Height = 375
|
|
Index = 13
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 21
|
|
Top = 2760
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关14[关]"
|
|
Height = 375
|
|
Index = 14
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 20
|
|
Top = 3240
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关15[关]"
|
|
Height = 375
|
|
Index = 15
|
|
Left = 2400
|
|
Style = 1 'Graphical
|
|
TabIndex = 19
|
|
Top = 3720
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关7[关]"
|
|
Height = 375
|
|
Index = 7
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 8
|
|
Top = 3720
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关6[关]"
|
|
Height = 375
|
|
Index = 6
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 7
|
|
Top = 3240
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关5[关]"
|
|
Height = 375
|
|
Index = 5
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 6
|
|
Top = 2760
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关4[关]"
|
|
Height = 375
|
|
Index = 4
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 5
|
|
Top = 2280
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关3[关]"
|
|
Height = 375
|
|
Index = 3
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 4
|
|
Top = 1800
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关2[关]"
|
|
Height = 375
|
|
Index = 2
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 3
|
|
Top = 1320
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关1[关]"
|
|
Height = 375
|
|
Index = 1
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 2
|
|
Top = 840
|
|
Width = 1095
|
|
End
|
|
Begin VB.CommandButton Command_DO
|
|
Caption = "开关0[关]"
|
|
Height = 375
|
|
Index = 0
|
|
Left = 360
|
|
Style = 1 'Graphical
|
|
TabIndex = 1
|
|
Top = 360
|
|
Width = 1095
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "DIO"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Dim bDISts(0 To 15) As Byte
|
|
Dim bDOSts(0 To 15) As Byte
|
|
Dim hDevice As Long
|
|
Dim DeviceLgcID As Integer
|
|
|
|
Private Sub Command_DO_Click(Index As Integer)
|
|
Select Case Index
|
|
Case 0:
|
|
If bDOSts(0) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(0) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(0) = 1
|
|
End If
|
|
|
|
Case 1:
|
|
If bDOSts(1) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(1) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(1) = 1
|
|
End If
|
|
|
|
Case 2:
|
|
If bDOSts(2) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(2) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(2) = 1
|
|
End If
|
|
|
|
Case 3:
|
|
If bDOSts(3) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(3) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(3) = 1
|
|
End If
|
|
|
|
Case 4:
|
|
If bDOSts(4) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(4) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(4) = 1
|
|
End If
|
|
|
|
Case 5:
|
|
If bDOSts(5) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(5) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(5) = 1
|
|
End If
|
|
|
|
Case 6:
|
|
If bDOSts(6) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(6) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(6) = 1
|
|
End If
|
|
|
|
Case 7:
|
|
If bDOSts(7) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(7) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(7) = 1
|
|
End If
|
|
Case 8:
|
|
If bDOSts(8) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(8) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(8) = 1
|
|
End If
|
|
Case 9:
|
|
If bDOSts(9) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(9) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(9) = 1
|
|
End If
|
|
Case 10:
|
|
If bDOSts(10) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(10) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(10) = 1
|
|
End If
|
|
Case 11:
|
|
If bDOSts(11) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(11) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(11) = 1
|
|
End If
|
|
Case 12:
|
|
If bDOSts(12) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(12) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(12) = 1
|
|
End If
|
|
Case 13:
|
|
If bDOSts(13) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(13) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(13) = 1
|
|
End If
|
|
Case 14:
|
|
If bDOSts(14) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(14) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(14) = 1
|
|
End If
|
|
Case 15:
|
|
If bDOSts(15) = 1 Then
|
|
Me.Command_DO(Index).BackColor = RGB(192, 192, 192)
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[关]"
|
|
bDOSts(15) = 0
|
|
Else
|
|
Me.Command_DO(Index).Caption = "开关" + CStr(Index) + "[开]"
|
|
Me.Command_DO(Index).BackColor = RGB(0, 255, 255)
|
|
bDOSts(15) = 1
|
|
End If
|
|
End Select
|
|
|
|
If PCI2312_SetDeviceDO(hDevice, bDOSts(0)) = False Then ' 开关量输出
|
|
MsgBox "PCI2312_SetDeviceDO Error..."
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Command_ReadDI_Click()
|
|
If PCI2312_GetDeviceDI(hDevice, bDISts(0)) = False Then ' 开关量输入
|
|
MsgBox "PCI2312_GetDeviceDI Error..."
|
|
End If
|
|
|
|
If bDISts(0) = 1 Then
|
|
Me.Command_DI(0).Caption = "开关0[开]"
|
|
Me.Command_DI(0).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(0).Caption = "开关0[关]"
|
|
Me.Command_DI(0).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(1) = 1 Then
|
|
Me.Command_DI(1).Caption = "开关1[开]"
|
|
Me.Command_DI(1).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(1).Caption = "开关1[关]"
|
|
Me.Command_DI(1).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(2) = 1 Then
|
|
Me.Command_DI(2).Caption = "开关2[开]"
|
|
Me.Command_DI(2).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(2).Caption = "开关2[关]"
|
|
Me.Command_DI(2).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(3) = 1 Then
|
|
Me.Command_DI(3).Caption = "开关3[开]"
|
|
Me.Command_DI(3).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(3).Caption = "开关3[关]"
|
|
Me.Command_DI(3).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(4) = 1 Then
|
|
Me.Command_DI(4).Caption = "开关4[开]"
|
|
Me.Command_DI(4).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(4).Caption = "开关4[关]"
|
|
Me.Command_DI(4).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(5) = 1 Then
|
|
Me.Command_DI(5).Caption = "开关5[开]"
|
|
Me.Command_DI(5).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(5).Caption = "开关5[关]"
|
|
Me.Command_DI(5).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(6) = 1 Then
|
|
Me.Command_DI(6).Caption = "开关6[开]"
|
|
Me.Command_DI(6).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(6).Caption = "开关6[关]"
|
|
Me.Command_DI(6).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
If bDISts(7) = 1 Then
|
|
Me.Command_DI(7).Caption = "开关7[开]"
|
|
Me.Command_DI(7).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(7).Caption = "开关7[关]"
|
|
Me.Command_DI(7).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(8) = 1 Then
|
|
Me.Command_DI(8).Caption = "开关8[开]"
|
|
Me.Command_DI(8).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(8).Caption = "开关8[关]"
|
|
Me.Command_DI(8).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(9) = 1 Then
|
|
Me.Command_DI(9).Caption = "开关9[开]"
|
|
Me.Command_DI(9).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(9).Caption = "开关9[关]"
|
|
Me.Command_DI(9).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(10) = 1 Then
|
|
Me.Command_DI(10).Caption = "开关10[开]"
|
|
Me.Command_DI(10).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(10).Caption = "开关10[关]"
|
|
Me.Command_DI(10).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(11) = 1 Then
|
|
Me.Command_DI(11).Caption = "开关11[开]"
|
|
Me.Command_DI(11).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(11).Caption = "开关11[关]"
|
|
Me.Command_DI(11).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(12) = 1 Then
|
|
Me.Command_DI(12).Caption = "开关12[开]"
|
|
Me.Command_DI(12).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(12).Caption = "开关12[关]"
|
|
Me.Command_DI(12).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(13) = 1 Then
|
|
Me.Command_DI(13).Caption = "开关13[开]"
|
|
Me.Command_DI(13).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(13).Caption = "开关13[关]"
|
|
Me.Command_DI(13).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(14) = 1 Then
|
|
Me.Command_DI(14).Caption = "开关14[开]"
|
|
Me.Command_DI(14).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(14).Caption = "开关14[关]"
|
|
Me.Command_DI(14).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
If bDISts(15) = 1 Then
|
|
Me.Command_DI(15).Caption = "开关15[开]"
|
|
Me.Command_DI(15).BackColor = RGB(0, 255, 255)
|
|
Else
|
|
Me.Command_DI(15).Caption = "开关15[关]"
|
|
Me.Command_DI(15).BackColor = RGB(192, 192, 192)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Form_Load()
|
|
|
|
DeviceLgcID = 0
|
|
hDevice = PCI2312_CreateDevice(DeviceLgcID)
|
|
If hDevice = INVALID_HANDLE_VALUE Then
|
|
MsgBox "PCI2312_CreateDevice Error..."
|
|
Exit Sub
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
If PCI2312_ReleaseDevice(hDevice) = False Then
|
|
MsgBox "PCI2312_ReleaseDevice Error..."
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|