• Home
 · 
• Windows System Services
 · 
• A Timer Control System Which Gives You How many times you have used your computer today (Its very U

A Timer Control System Which Gives You How many times you have used your computer today (Its very U

A Timer Control System Which Gives You How many times you have used your computer today (Its very Useful)

API Declarations


'##You have need a database whose name "TDBA" a table "Ttable" 'Field "Ddate","Ttime"
a timer , three textbox ,a ADODC control





Rate A Timer Control System Which Gives You How many times you have used your computer today (Its very U

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim hou As Integer
    Dim mi As Long
    Dim see As Integer
    Dim db As Connection
    Dim rs As Recordset
    Set db = New Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=TDBA.mdb"
    Set rs = New Recordset
    rs.Open ("DELETE * FROM Ttable WHERE Ddate <> #" & Date & "#"), db
    rs.Open ("SELECT * FROM Ttable"), db
    Do Until rs.EOF
        hou = hou + Hour(rs.Fields("Ttime"))
        mi = mi + Minute(rs.Fields("Ttime"))
        see = see + Second(rs.Fields("Ttime"))
    rs.MoveNext
    Loop
        totsee = (hou * 60 * 60) + (mi * 60) + see
        mmin = Int(totsee / 60)
        fmin = mmin Mod 60
        fhou = Int(mmin / 60)
        fsee = see Mod 60
        Text3.Text = fhou
        Text2.Text = fmin
        Text1.Text = fsee
   If Len(Text1.Text) < 2 Then
        Text1.Text = 0 & Text1.Text
   End If
   If Text1.Text = 60 Then
        Text1.Text = 0 & 0
   End If
   If Len(Text2.Text) < 2 Then
        Text2.Text = 0 & Text2.Text
   End If
   If Text2.Text = 60 Then
        Text2.Text = 0 & 0
   End If
   If Len(Text3.Text) < 2 Then
        Text3.Text = 0 & Text3.Text
   End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        frmtimer.BackColor = RGB(12, 24, 120)
        Label1.ForeColor = QBColor(Rnd * 15)
    End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'If BorderStyle = 1 Then
'    Dim aa
'    aa = MsgBox("Are You Sure ?", vbYesNo, "Polash Timer")
'    If aa = vbNo Then
'        Cancel = 1: Exit Sub
'    Else
'        Unload Me
'    End If
'
'End If
'If vbunloadmode = vbFormControlMenu Then Cancel = 1
If vbunloadmode = vbAppWindows Then Cancel = 6
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim db As Connection
    Dim rs As Recordset
    Set db = New Connection
    db.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=TDBA.mdb"
    Set rs = New Recordset
    Set rs1 = New Recordset
    tim = Text3.Text & ":" & Text2.Text & ":" & Text1.Text
    rs.Open ("DELETE * FROM Ttable"), db
    rs1.Open ("INSERT INTO Ttable(Ddate,Ttime) VALUES(#" & Date & "#,#" & tim & "#)"), db
End Sub
Private Sub Timer1_Timer()
        Text1.Text = Val(Text1.Text) + 1
   If Len(Text1.Text) < 2 Then
        Text1.Text = 0 & Text1.Text
   End If
   If Text1.Text = 60 Then
        Text1.Text = 0 & 0
        Text2.Text = Val(Text2.Text) + 1
        If Len(Text2.Text) < 2 Then
            Text2.Text = 0 & Text2.Text
        End If
   End If
   If Text2.Text = 60 Then
        Text2.Text = 0 & 0
        Text3.Text = Val(Text3.Text) + 1
        If Len(Text3.Text) < 2 Then
            Text3.Text = 0 & Text3.Text
        End If
   End If
   total = Text3.Text & ":" & Text2.Text & ":" & Text1.Text
   Label1.Caption = total
End Sub