voila j'aimerais creer un chrono amelioré pour gerer le tps passé sur un PC, qd qqun arrive je rentre le pseudo, le timer se met en marche, qd le gars part j'arrete le timer, je vois le tps qu'il a fait et ce qu'il dois payé...
je vous met la source que j'ai deja fait
il faut faire un feuille (form1) - 4 boutons, cmdGo cmdGo2 cmdStop1 cmdStop2 - 4 label, label1, label2, label3, label4, et 2 timer, timer1, timer2
voila alors le prob est :
------------------- debut du code -----------------
'j'aimerais mettre le tps effectuer par un timer (1 ou 2) en minute
'(la, il est sous la forme 00:00:00)et ensuite le stocker ds une
'variable afin de pouvoir determiner le prix qui equivaut au tps passé
'(avec instruction IF...Else...)
'si vous pouvez m'aider : enderk@orange.fr ou laissez un msg sur le forum
'si vous pensez qu'il y'a meilleur moyen, je veux bien qu'on m'explique
'(mais une bonne explication :-) car je suis un newbie encore en VB...
'merci...
Dim pseudo1 As String 'declaration des varuables...
Dim pseudo2 As String
Dim prix1 As Integer
Dim tps1 As Integer
Private Sub cmdGo_Click()
pseudo1 = InputBox("Votre pseudo M'dam, M'sieur s'viouplait...", pseudo)
Timer1.Interval = (1000) 'Met l'interval des secondes
Timer1.Enabled = True 'le chrono est activé
End Sub
Private Sub cmdGo2_Click()
pseudo2 = InputBox("Votre pseudo M'dam, M'sieur s'viouplait...", pseudo)
Timer2.Interval = (1000) 'Met l'interval des secondes
Timer2.Enabled = True 'le chrono est activé
End Sub
Private Sub CmdStop1_Click()
Label3.Caption = Label1 'transfert d'un label vers un autre afin de "bien" voir cb de tps a été fait...
Timer1.Enabled = False 'le timer est arreté
Label1.Caption = "00:00:00" 'label1 remis a 0
MsgBox " " & pseudo1 & " est resté(e) " & Label3.Caption & ". Il doit donc " & prix1 & " ¤", vbOKOnly, "Temps de connexion" 'ptite msg box pour dire combien de tps a fait qui...
End Sub
Private Sub CmdStop2_Click() 'pareil que cmdStop1
Label4.Caption = Label2
Timer2.Enabled = False
Label2.Caption = "00:00:00"
MsgBox " " & pseudo2 & " est resté(e) " & Label4.Caption & ".", vbOKOnly, "Temps de connexion"
End Sub
Private Sub timer1_timer()
Label1 = DateAdd("s", 1, Label1)
End Sub
Private Sub timer2_timer()
Label2 = DateAdd("s", 1, Label2)
End Sub