📄 counter_form.frm
字号:
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
ItemData = "Counter_Form.frx":0EA3
Left = 1560
List = "Counter_Form.frx":0EB3
Style = 2 'Dropdown List
TabIndex = 16
Top = 420
Width = 3015
End
Begin VB.Label Label4
Caption = "计数器值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 240
TabIndex = 13
Top = 2160
Width = 1215
End
Begin VB.Label Label3
Caption = "计数类型："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 240
TabIndex = 10
Top = 1605
Width = 1215
End
Begin VB.Label Label2
Caption = "计数方式："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 240
TabIndex = 7
Top = 1035
Width = 1215
End
Begin VB.Label Label1
Caption = "操作类型："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 240
TabIndex = 4
Top = 480
Width = 1215
End
End
Begin VB.Frame CLK0
Caption = "设定CLK0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2655
Left = 7800
TabIndex = 0
Top = 240
Width = 4815
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1560
TabIndex = 24
Text = "10"
Top = 2100
Width = 3015
End
Begin VB.ComboBox BCD
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
ItemData = "Counter_Form.frx":0F02
Left = 1560
List = "Counter_Form.frx":0F0C
Style = 2 'Dropdown List
TabIndex = 21
Top = 1530
Width = 3015
End
Begin VB.ComboBox CountMode
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
ItemData = "Counter_Form.frx":0F29
Left = 1560
List = "Counter_Form.frx":0F3F
Style = 2 'Dropdown List
TabIndex = 18
Top = 960
Width = 3015
End
Begin VB.ComboBox OperateType
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
ItemData = "Counter_Form.frx":0FBF
Left = 1560
List = "Counter_Form.frx":0FCF
Style = 2 'Dropdown List
TabIndex = 15
Top = 420
Width = 3015
End
Begin VB.Label Label4
Caption = "计数器值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 240
TabIndex = 12
Top = 2160
Width = 1215
End
Begin VB.Label Label3
Caption = "计数类型："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 9
Top = 1600
Width = 1215
End
Begin VB.Label Label2
Caption = "计数方式："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 6
Top = 1040
Width = 1215
End
Begin VB.Label Label1
Caption = "操作类型："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 3
Top = 480
Width = 1335
End
End
Begin VB.Menu sadfsadf
Caption = "窗口列表"
WindowList = -1 'True
End
End
Attribute VB_Name = "Counter_Form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hDevice As Long
Dim CounterValue As USB2013_PARA_COUNTER_VAL
Dim pCounter As USB2013_PARA_COUNTER_CTRL
Dim timerNum As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
CounterTimer.Enabled = True
Command_HandRead.Enabled = False
End If
If Check1.Value = 0 Then
CounterTimer.Enabled = False
Command_HandRead.Enabled = True
End If
End Sub
Private Sub Comman_Clear_Click()
ListView1.ListItems.Clear
End Sub
Private Sub Command_HandRead_Click()
USB2013_GetDevCounterVal hDevice, CounterValue
timerNum = ListView1.ListItems.Count + 1
ListView1.ListItems.Add timerNum, , CounterValue.CounterValue0
ListView1.ListItems.Item(timerNum).SubItems(1) = CounterValue.CounterValue1
ListView1.ListItems.Item(timerNum).SubItems(2) = CounterValue.CounterValue2
End Sub
Private Sub Command_InitDevice_Click()
Dim i As Integer, num As Long, pAdderss As Long, a1 As Long, a2 As Long
Dim s As Long
hDevice = USB2013_CreateDevice(0) '初始化设备
If (hDevice = INVALID_HANDLE_VALUE) Then
s = MessageBox(DIO_Form.hwnd, " Create Device Object Failed.", "Error", 0)
Exit Sub
End If
For i = 0 To 2
pCounter.BCD = BCD(i).ListIndex
pCounter.CountMode = CountMode(i).ListIndex
pCounter.OperateType = OperateType(i).ListIndex
num = Format((Text1(i).Text))
USB2013_InitDevCounter hDevice, pCounter, num, i
Next
Check1.Enabled = True
Command_HandRead.Enabled = True
End Sub
Private Sub CounterTimer_Timer()
Dim a As Integer
USB2013_GetDevCounterVal hDevice, CounterValue
timerNum = ListView1.ListItems.Count + 1
ListView1.ListItems.Add timerNum, , CounterValue.CounterValue0
ListView1.ListItems.Item(timerNum).SubItems(1) = CounterValue.CounterValue1
ListView1.ListItems.Item(timerNum).SubItems(2) = CounterValue.CounterValue2
SendMessage ListView1.hwnd, WM_VSCROLL, SB_RIGHT, a
End Sub
Private Sub Form_Load()
Dim s As Long
Dim i As Integer
ListView1.ColumnHeaders.Add.Text = "计数器0"
ListView1.ColumnHeaders.Add.Text = "计数器1"
ListView1.ColumnHeaders.Add.Text = "计数器2"
For i = 0 To 2
OperateType(i).ListIndex = 3
CountMode(i).ListIndex = 2
BCD(i).ListIndex = 0
Next
Check1.Enabled = False
Command_HandRead.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -