mcomm 问题在线等解答了~~~~~

shen_wei 2009-09-11 10:53:24

用mscomm控件做的往磁卡里写数据。该磁卡内存容量是1k 分成62块每一块里面有16位，现在往里面保存数据
要选择不同的块号，来保存数据，发送代码如下：



        Dim sBuf(19) As Byte  //定义一个byte（）20位

        sBuf(0) = &H13

        sBuf(1) = &H41

        If ComboBox7.Text = "A" Then

            sBuf(2) = &H1

        Else

            sBuf(2) = &H2

        End If

        Dim j As Integer

        Dim k As Integer

        Dim nConut As Integer = 0

        Dim fpvalue As String

        fpvalue = mydate.Replace("-", "")

        fpvalue = fpvalue + "0000000000000000000000000000"  //现在有数据 400位

        For j = 4 To 39

            If (j - 3) Mod 4 = 0 Then

                j = j + 1

                sBuf(3) = CLng("&H" + CStr(Hex(j)))// 选择块号来保存数据

            Else

                sBuf(3) = CLng("&H" + CStr(Hex(j)))

            End If

            Dim i As Integer = 4

            For k = 1 To 32  // 把数据分配到byte（）

                If nConut = 25 Then

                    Exit Sub

                End If

                sBuf(i) = CLng("&H" + Mid(fpvalue, k + (nConut * 32), 2))

                i = i + 1

                k = k + 1

            Next

            nConut = nConut + 1            

            If SendByte(sBuf) = False Then  //向串口发送数据，发送数据完全正确

                MessageBox.Show("写指纹失败！")

            End If

        Next j

现在的问题是：



'收到数据产生MSComm事件

    Private Sub AxMSComm1_OnComm(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm

    

       {  Dim rBuf() As Byte

 System.Threading.Thread.Sleep(600)

                rBuf = AxMSComm1.Input        //产生mscomm事件后的处理  rbuf（）没有返回任何数据

                If rBuf(3) = 164 Then  //对返回的信息判断

}

现在磁卡能写入数据块号是 4—9 号的块里有数据，10号以上的块里都没有写入数据，请问这个是怎么回事？
希望高人能解决下。不胜感激！！！！

...全文