附录A 发卡子程序清单 45
附录A 发卡子程序清单
Option Explicit Dim a As Integer
Dim BytReceived(11) As Byte Dim strData As String Dim lenInput As Integer
Dim bytSendByte() As Byte '发送二进制数据 Dim strSendText As String '发送文本数据 Dim blnAutoSendFlag As Boolean Dim openFlag As Boolean Dim SEND(26) As Byte Dim i As Integer Dim j As Integer Dim S As Integer Dim sj(27) As Byte Dim temp As Byte Dim KEYB(6) As Byte Dim DATA(16) As Byte Dim Counter As Integer Dim receiveData As String Dim ReceiveCount As Integer
Private Sub cmdOpen_Click() '打开关闭端口 If openFlag Then
cmdOpen.Caption = \打开串口\ MSComm1.PortOpen = False '打开端口 Shape1.FillColor = vbRed Label2 = \关闭\ Else
46 基于IC卡的考勤管理系统设计
OpenPortNum
cmdOpen.Caption = \关闭串口\ Shape1.FillColor = vbGreen Label2 = \打开\ End If
openFlag = Not openFlag End Sub
Private Sub OpenPortNum() On Error GoTo uerror For a = 1 To 16
MSComm1.CommPort = a MSComm1.PortOpen = True If MSComm1.PortOpen = True Then 'Print \可用Com号= \ Exit Sub Else End If Next Exit Sub uerror:
'Print \出错或占用Com号= \ Resume Next End Sub
Private Sub Command2_Click() Unload Me End Sub
