Visual Basic 6 (VB6)

About too many timers

HI, im on a project right now like a Internet cafe busines.
where there is a Server and a Client.

i have found a way to record the Log In time and the Log Out Time, and the Total timed use.

using the ADODB and some SQL codes via MS access Database

where, when the user Log in, then it is recorded once Loged.

declaring this on a Module------------------

'create a new Connection
public myCon as new ADODB.connection

'create a new Record Set
public rsLoged as new ADODB.recordset

'create an event
Public Sub myEvent()
myCon.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= "C:\...Location.mdb;persist Security Info=False"
myCon.CursorLocation = adUseClient
End Sub

modules ends here----------------------

now on the form------------------

Private Sub Form_Load()
'call the event here
Call myEvent

'declare a variable
dim mySQLcode as string

'now some SQL codes must be added.
' ex: [Variable] = "select [*,Fields] from [table]"
mySQLcode = "Select * from LOGED"

'[recordset].open [variable], myTimeOutCon, adOpenDynamic, adLockOptimistic
'[recordset].movelast

rsLoged.open mySQLcode, myTimeOutCon, adOpenDynamic, adLockOptimistic
rsLoged.MoveLast

cmdLogOut.enable = false
form ends here---------------------

----------------------------------------

now on your Log in Button clicked.

'asuming i have 3 fields in my DBase, and 2 buttons
'field(0) = Log In
'field(1) = Log Out
'field(2) = Total Time.

'On Log In

private sub cmdLogin_clicked()
dim myLogin as string
myLogin = time
SS = 0
MM = 0
HH = 0
timer1.enable = true
timer1.interval = 1000
'the rest you want to add on then button
end sub

'On Log Out

private sub cmdLogOut_clicked()
rsLoged.movelast
rsLoged.addnew
reLoged.fields(0) = myLogin 'this is the variable you declare on the login button
reLoged.fields(1) = time 'this is the system time
reLoged.fields(2) = lblTimer 'this is a label contaning the Time Consumed
rsLoged.Update
end sub

-----------------------------------
'time consumed is the set apart by Hours, Minutes and Seconds
declaring HH, MM, SS as integer will do.
and HO, MO, SO as string

on a timer1

private sub timer1_timer()
SS = SS + 1

With lblTimer

If SS >= 10 Then
SO = "" & SS
End If

If MM >= 10 Then
MO = "" & MM
End If

If HH >= 10 Then
HO = "" & HH
End If

.Caption = HO & ":" & MO '& ":" & SO this is invisible.
End With
end sub

'this is working for me, this will not compute for the interval of the Log in and Log out but
'lets say it does cause it display the time consumed from the time you Log In
'i.e. Login:1:00pm; Logout:2:25; Consumed:1:25;
end sub
-------------------------------
now for viewing the record--------------

on a new form

add a datagrid view on the form 'get it on the components

private sub form2_load()
Dim SQLTimeOut As String
SQLTimeOut = "select * from LOGED"
rsLoged.open SQLTimeOut, myTimeOutCon, adOpenDynamic, adLockOptimistic

Set DataGrid1.DataSource = rsData

end sub

'thats all: HOPE this is HELPUL to you

(^_^),\m/

if you need help with code send it to me and tell me what you want...i will fix it and highlight all changes....happy coding...

Hey guy, try this.
First set timer interval to 1000

Dim i as integer
Private Sub Form_Load()
i = 30
End sub

Private Sub Timer1_timer()
i = i - 1
label1.Caption = i
If i = 0 then Timer1.Enabled = False
End Sub

I think I'll work.

hey guys i have problem i want to make game with shape and i dont know how to put timer in. can u help me??

can you please teach me how to make a timer countdown...!!!
i really dont know how...
countdown timer as it will appear as this "10:00"
hope you'll reply as soon as possible...please!!!!