📄 101.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form 串口
Caption = "读卡"
ClientHeight = 5610
ClientLeft = 45
ClientTop = 420
ClientWidth = 7350
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 5610
ScaleWidth = 7350
Begin VB.TextBox Text17
Height = 270
Left = 3600
TabIndex = 35
Text = "Text17"
Top = 240
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text16
Height = 270
Left = 2640
TabIndex = 34
Text = "Text16"
Top = 240
Visible = 0 'False
Width = 615
End
Begin VB.TextBox Text15
Height = 270
Left = 4440
TabIndex = 32
Text = "Text15"
Top = 240
Visible = 0 'False
Width = 855
End
Begin VB.Frame Frame1
Height = 5535
Left = 0
TabIndex = 27
Top = 0
Visible = 0 'False
Width = 7335
Begin VB.TextBox Text14
Height = 2775
Left = 360
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 30
Top = 360
Width = 5415
End
Begin VB.CommandButton Command10
Caption = "停止读"
Height = 375
Left = 3960
TabIndex = 29
Top = 3480
Width = 1455
End
Begin VB.CommandButton Command6
Caption = "连续读"
Height = 375
Left = 360
TabIndex = 28
Top = 3480
Width = 1455
End
Begin VB.Label Label4
ForeColor = &H0000FFFF&
Height = 255
Left = 600
TabIndex = 33
Top = 4440
Width = 3255
End
Begin VB.Label lbldisplay
Height = 255
Left = 600
TabIndex = 31
Top = 4080
Width = 3375
End
End
Begin VB.CommandButton Command12
Caption = "连续读"
Height = 375
Left = 4320
TabIndex = 26
Top = 3720
Width = 1455
End
Begin VB.TextBox Text1
Height = 1215
Left = 480
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Top = 600
Width = 5775
End
Begin VB.TextBox Text13
Height = 270
Left = 5520
MaxLength = 2
TabIndex = 23
Text = "30"
Top = 3120
Width = 375
End
Begin VB.TextBox Text8
Height = 270
Left = 5160
MaxLength = 2
TabIndex = 22
Text = "06"
Top = 3120
Width = 375
End
Begin VB.TextBox Text7
Height = 270
Left = 4800
MaxLength = 2
TabIndex = 21
Text = "01"
Top = 3120
Width = 375
End
Begin VB.TextBox Text6
Height = 270
Left = 4440
MaxLength = 2
TabIndex = 20
Text = "12"
Top = 3120
Width = 375
End
Begin VB.TextBox Text5
Height = 270
Left = 4080
MaxLength = 2
TabIndex = 19
Text = "08"
Top = 3120
Width = 375
End
Begin VB.TextBox Text4
Height = 270
Left = 3720
MaxLength = 2
TabIndex = 18
Text = "03"
Top = 3120
Width = 375
End
Begin VB.CommandButton Command9
Caption = "下载密码"
Height = 375
Left = 3960
TabIndex = 17
Top = 2520
Visible = 0 'False
Width = 1215
End
Begin VB.TextBox Text9
Height = 270
Left = 4080
MaxLength = 2
TabIndex = 15
Text = "b6"
Top = 2040
Width = 375
End
Begin VB.TextBox Text10
Height = 270
Left = 4440
MaxLength = 2
TabIndex = 14
Text = "31"
Top = 2040
Width = 375
End
Begin VB.TextBox Text11
Height = 270
Left = 4800
MaxLength = 2
TabIndex = 13
Text = "08"
Top = 2040
Width = 375
End
Begin VB.TextBox Text12
Height = 270
Left = 5160
MaxLength = 2
TabIndex = 12
Text = "60"
Top = 2040
Width = 375
End
Begin VB.TextBox Text3
Height = 270
Left = 2760
MaxLength = 2
TabIndex = 10
Text = "6"
Top = 2040
Width = 495
End
Begin VB.CommandButton Command4
Caption = "计算机时钟下载到读卡器"
Height = 615
Left = 2280
TabIndex = 9
Top = 3120
Width = 1215
End
Begin VB.CommandButton Command8
Caption = "清显示"
Height = 375
Left = 2280
TabIndex = 8
Top = 2520
Width = 1215
End
Begin VB.CommandButton Command7
Caption = "清空记录"
Height = 375
Left = 480
TabIndex = 7
Top = 4320
Width = 1575
End
Begin VB.CommandButton Command5
Caption = "通讯测试"
Height = 375
Left = 2280
TabIndex = 6
Top = 3960
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "读指针下移一条"
Height = 375
Left = 480
TabIndex = 5
Top = 3720
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "读记录"
Height = 375
Left = 480
TabIndex = 4
Top = 3120
Width = 1575
End
Begin VB.TextBox Text2
Height = 270
Left = 1440
MaxLength = 2
TabIndex = 2
Text = "1"
Top = 2040
Width = 495
End
Begin VB.CommandButton Command1
Caption = "设置机号"
Height = 375
Left = 480
TabIndex = 1
Top = 2520
Width = 1575
End
Begin MSCommLib.MSComm MSComm1
Left = 6480
Top = 480
_ExtentX = 794
_ExtentY = 794
_Version = 393216
DTREnable = -1 'True
OutBufferSize = 1024
RThreshold = 1
InputMode = 1
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "使用说明：通讯测试送回年月对应的内容。"
Height = 375
Left = 480
TabIndex = 24
Top = 4800
Width = 6015
End
Begin VB.Label Label6
Caption = "卡号："
Height = 195
Left = 3480
TabIndex = 16
Top = 2055
Width = 540
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "柜号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2160
TabIndex = 11
Top = 2040
Width = 735
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "机号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 3
Top = 2040
Width = 735
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "接收到的返回命令："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 0
Top = 240
Width = 2295
End
End
Attribute VB_Name = "串口"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'北京完美研究所版权 www.iccard.cn
Dim head_data As Byte
Dim all_data As Byte
Dim aa(0) As Byte
Dim jiaoyan(0) As Byte
Dim strOperateType As String '操作类别
Dim strReadOver As String
Dim intPort As Byte '串口号
Dim blstop As Boolean '停止实时读取
Dim intCount As Integer '读数据计数器
Dim int1 As Integer '机号
Dim intempty As Integer '清空显示计数器
Dim strall As String
Private rebuf() As Byte
Function Beep_(i As Long)
Dim j As Long
For j = 0 To i
Beep
DoEvents
Next j
End Function
Function Str_Int(a As String) As Integer '字符转换成hex码
Select Case a
Case "0" To "9"
Str_Int = Asc(a) - 48
Case "A" To "F"
Str_Int = Asc(a) - 55
Case "a" To "f"
Str_Int = Asc(a) - 87
Case Else
Str_Int = 0
End Select
End Function
Function delay(t As Long) As Integer
Dim i As Long
Dim j As Long
For i = 0 To t
DoEvents
For j = 0 To 10000
DoEvents
If ExitFlag Then
End
End If
Next j
Next i
End Function
Private Sub Command1_Click()
'设置机号
If (MSComm1.PortOpen) Then
MSComm1.PortOpen = False
End If
initchk1 MSComm1, intPort
MSComm1.OutBufferCount = 0
aa(0) = 170
MSComm1.Output = aa()
jiaoyan(0) = aa(0)
aa(0) = 255
MSComm1.Output = aa()
MSComm1.Output = aa()
aa(0) = 2
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 165
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = Val(Text2.Text)
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
MSComm1.Output = jiaoyan()
End Sub
Private Sub Command10_Click()
blstop = True
串口.Visible = False
出勤记录1.Show
End Sub
Private Sub Command12_Click()
Frame1.Visible = True
End Sub
'读记录
Private Sub Command2_Click()
If (MSComm1.PortOpen) Then
MSComm1.PortOpen = False
End If
initchk1 MSComm1, intPort
MSComm1.OutBufferCount = 0
aa(0) = 170
MSComm1.Output = aa()
jiaoyan(0) = aa(0)
aa(0) = 255
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = Val(Text2.Text)
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 1
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 161
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
MSComm1.Output = jiaoyan()
End Sub
Private Sub Command3_Click()
If (MSComm1.PortOpen) Then
MSComm1.PortOpen = False
End If
initchk1 MSComm1, intPort
MSComm1.OutBufferCount = 0
aa(0) = 170
MSComm1.Output = aa()
jiaoyan(0) = aa(0)
aa(0) = 255
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = Val(Text2.Text)
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 1
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 162
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
MSComm1.Output = jiaoyan()
End Sub
Private Sub Command4_Click()
'时间设置
If (MSComm1.PortOpen) Then
MSComm1.PortOpen = False
End If
initchk1 MSComm1, intPort
MSComm1.OutBufferCount = 0
aa(0) = 170
MSComm1.Output = aa()
jiaoyan(0) = aa(0)
aa(0) = 255
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = Val(Text2.Text)
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 8
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = 164
jiaoyan(0) = jiaoyan(0) Xor aa(0)
MSComm1.Output = aa()
aa(0) = CToHex(Mid(Format(Now, "yy mm dd w hh:mm:ss"), 1, 2))
jiaoyan(0) = jiaoyan(0) Xor aa(0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -