如何：時間在和超時狀態上vb.net

Question

'公用Sub updateTextBox（）

s = s + SerialPort1.ReadExisting() 

    If Len(s) > 12 Then 
     Try 

      txtReceived.Text = Microsoft.VisualBasic.Mid(s, 1, 12) 

      strSql = "SELECT * FROM stud WHERE tag = '" & txtReceived.Text & "';" 
      command.CommandText = strSql 
      command.Connection = SQLConnection 
      datapter.SelectCommand = command 
      datardr = command.ExecuteReader 
      Dim img() As Byte 
      If datardr.HasRows Then 
       datardr.Read() 
       img = datardr("picture") 
       Dim ms As New MemoryStream(img) 
       txtFname.Text = datardr("fname").ToString 
       txtLname.Text = datardr("lname").ToString 
       PictureBox1.Image = Image.FromStream(ms) 
       SQLConnection.Close() 
      End If 

      SQLConnection.Open() 
     Catch ex As Exception 
     End Try 
     Try 

      Dim i As Integer 
      Dim newtag As Boolean = True 
      Dim stringfix As String 
      Dim string1 As String 
      Dim string2 As String 

      For i = 0 To (grid.Rows.Count - 1) 
       stringfix = grid.Rows.Item(i).Cells(0).Value 
       string1 = Microsoft.VisualBasic.Mid(stringfix, 1, 10) 
       string2 = Microsoft.VisualBasic.Mid(stringfix, 2, 10) 
       If string1 = string2 Then 
        newtag = False 
        Exit For 
       Else 
        newtag = True 
       End If 
      Next 
      If newtag = True Then 
       Dim dr As Integer 
       dr = grid.Rows.Add() 
       grid.Rows.Item(dr).Cells.Item(0).Value = Microsoft.VisualBasic.Mid(s, 1, 12) 
       grid.Rows.Item(dr).Cells(1).Value = txtFname.Text 
       grid.Rows.Item(dr).Cells(2).Value = txtLname.Text 
       grid.Rows.Item(dr).Cells.Item(3).Value = txtDate.Text + " " + txtTime.Text 
       grid.Rows.Item(dr).Cells.Item(4).Value = "TIME IN" 
      ElseIf newtag = False Then 
       grid.Rows.Item(i).Cells.Item(3).Value = txtDate.Text + " " + txtTime.Text 
       grid.Rows.Item(i).Selected = True 

      End If 


     Catch ex As Exception 
     End Try 
     Dim timeOut As DateTimeOffset = Now.AddMilliseconds(1500) 

     Do 
      Application.DoEvents() 

     Loop Until Now > timeOut 

     s = SerialPort1.ReadExisting() 
     SerialPort1.DiscardOutBuffer() 
     s = String.Empty 
     SerialPort1.DtrEnable = True 
     txtReceived.Text = "" 
     txtFname.Text = "" 
     txtLname.Text = "" 
     PictureBox1.Image = Nothing 

    End If 
End Sub` 

美好的一天！我一直在爲我們的論文研究一所學校的基於RFID的日常時間記錄。我的問題是如何設置學生的「狀態」，當他/她第一次點擊RFID卡時，它應該是status = Time-In，當他/她第二次點擊它時，狀態應該是超時。每個學生每天有一次Time-In和一次Time-out限制。任何想法如何做到這一點？希望你們能得到我指出的內容。

Answer 1

有很多方法可以做到這一點，它幾乎太寬泛。一種簡單的方法是將兩列添加到您的數據庫中，並分別在RFID掃描或掃描時遞增。然後，當你從你的數據庫中選擇你可以引用這些列，如果兩者都> 1，那麼這樣的事情。

另一種方法是使用所有學生TAG的數組。你可以在本地跟蹤計數器，而不是在數據庫中。掃描標籤後，所以，正確的...

If inCounter(tag) > 1 or outCounter(tag) > 1 Then 
    msgbox("User has reached the quota.") 
Else 
    inCounter(tag) += 1 
    outCounter(tag) += 1 
End If 

那麼你就需要實現每天重置這些計數器一個DateTime類。