problem with rfid reader

[varunkrish]

Hello Friends

i am doing a project in RFID

I have purchased an RFID Reader.

They gave me some source code with it.

It has Connect and Read Tag buttons.

I click connect ,Serial connection is started.

i click read tag, the port is opened and the writer turns into active read mode and scans any tag i place nearby.

Now my problem.

After one tag is read ,i have to click the Read Tag again ( 4 times ) really funny to make it come to the active read mode.

I am a student and want to display an automated library .

SO how can i make the reader come back into read mode after reading a tag,

say after 5 seconds.

Private Sub Command1_Click()  ' Connect RFID read write unit
   Call Connect
End Sub
 
Private Sub Connect()
Dim Mystring As String
Dim readdata As String
Dim dummy As Integer
 
'Check if port is open or closed
If (MSComm1.PortOpen = True) Then
    MSComm1.PortOpen = False
    Command1.Caption = "Connect"        ' Change button caption
Else
                                        ' Initialize MSCOMM
    MSComm1.CommPort = CStr(Right(Combo1.Text, 1))
    MSComm1.Settings = "19200,n,8,1"
    MSComm1.DTREnable = False
    MSComm1.EOFEnable = False
    MSComm1.Handshaking = comNone
    MSComm1.InBufferSize = 512
    MSComm1.InputLen = 24
    MSComm1.InputMode = comInputModeText
    MSComm1.NullDiscard = False
    MSComm1.OutBufferSize = 512
    MSComm1.ParityReplace = "?"
    MSComm1.RThreshold = 0
    MSComm1.RTSEnable = False
    MSComm1.SThreshold = 8
    MSComm1.PortOpen = True
    Mystring = CStr(MSComm1.Input)      ' Flush input
    Command1.Caption = "Disconnect"
End If
 
again1:
    Do While Checkport() = True             ' IF RFID reader is still connected
        Do
            dummy = DoEvents()
        Loop Until MSComm1.InBufferCount >= 8  ' Then loop until  a new value is received
        Mystring = CStr(MSComm1.Input)          ' Store value received in 'MyString'
        txtFields(0) = Mystring                 ' Show ID
        txtFields(1) = (Date)                   ' Show current Date
        txtFields(2) = (Time)                   ' Show current Time
        readdata = Mystring & " @ " & Date & "=" & Time
        List1.AddItem readdata
    Loop
End Sub
 
Static Function Checkport() As Boolean
If (MSComm1.PortOpen = True) Then
    Checkport = True
Else
    Checkport = False
End If
End Function

[varunkrish]

added project files also for ur reference

me a student and stuck with this in final stage of my degree..

please help

[ganeshmoorthy]

have you tried after waiting for some time and read it in single attempt?

[ganeshmoorthy]

since, we don not have rfid readers here, we can not check it...you can do the step by step debugging by pressing F8 key and see what happens for the 4 attempts and analyse...

[varunkrish]

ya .. i tried stepping through te code by pressin f8.. no luck...

[namrekka]

Don't open and close the port on every "Command1_Click".
Create a separate button for it or open the port in a form load event and close the port in a form close event.