新建 文本文档 (2).txt

SIM读卡器的源码

Option Explicit
    Dim strData As String
Private Sub MSComm1_OnComm()
    On Error Resume Next
    Dim strBuff As String
    Dim BytReceived() As Byte
    Dim i As Integer
        Select Case MSComm1.CommEvent
        Case 2
            MSComm1.InputLen = 0
            strBuff = MSComm1.Input
            BytReceived() = strBuff
            For i = 0 To UBound(BytReceived) '转16进制
                If Len(Hex(BytReceived(i))) = 1 Then
                    strData = strData & "0" & Hex(BytReceived(i))
                Else
                    strData = strData & Hex(BytReceived(i))
                End If
            Next
            Text1 = strData '显示接收数据
    End Select
End Sub
Private Sub Form_Load()
    MSComm1.CommPort = 1                'COM端口
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.InputMode = comInputModeBinary      '采用二进制传输
    MSComm1.InBufferCount = 0   '清空接受缓冲区
    MSComm1.OutBufferCount = 0  '清空传输缓冲区
    MSComm1.RThreshold = 1     '产生MSComm事件
    MSComm1.InBufferSize = 1024
    MSComm1.PortOpen = True
    Text1 = ""
End Sub