Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Enabled = False (ton code) (ton code) (ton code) Timer1.Enabled = True End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Timer1_Timer() Dim vMachineNumber As Long Dim TMachineNumber(0) As Long Dim vEnrollNumber(0) As Long dim vEMachineNumber(0) As Long Dim vVerifyMode(0) As Long Dim vInOutMode(0) As Long Dim vYear(0) As Long Dim vMonth(0) As Long Dim vDay(0) As Long Dim vHour(0) As Long Dim vMinute(0) As Long Dim bRet As Boolean CZKEM1.Connect_Net("10.101.10.214", 4370) vMachineNumber = 1 bRet = CZKEM1.ReadGeneralLogData(1) If bRet = False Then Exit Sub Else IF(CZKEM1.GetGeneralLogData(1,vTMachineNumber(0),vEnrollNumber(0),_vEMachineNumber(0),vVerifyMode(0),vInOutMode(0),vYear(0),vMonth(0),_vDay(0), vHour(0), vMinute(0))) then ListBox1.Items.Add(i & ") " & Str(vYear(0)) & " - " & Format(vMonth(0), "00") & " - " & Format(vDay(0), "00") _ '& " " & Format(vHour(0), "00") & ":" & Format(vMinute(0), "00") & "Pass Machine Number " & CStr(vTMachineNumber(0)) & ("Enroll Number " & CStr(vEnrollNumber(0))) & "E-Machine Number = " & CStr(vEMachineNumber(0)) & "Verify Mode = " & CStr(vVerifyMode(0))) End if