Ho trovato e modella secondo le mie richieste questo cronometro per vb6
Ho un po di problemi cioè:codice:Dim Myore, Mymin, Mysec Dim MyStrTmp Dim Pausa As Boolean 'Bottone start Private Sub Command1_Click() Timer1.Enabled = True End Sub 'Bottone stop Private Sub Command2_Click() Timer1.Enabled = False End Sub 'Bottone pause Private Sub Command3_Click() Pausa = Not Pausa End Sub 'Bottone reset Private Sub Command4_Click() Timer1.Enabled = False MyStrTmp = Time End Sub Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = False MyStrTmp = Time End Sub Public Sub Timer1_Timer() If Not Pausa Then tmptrascorso = Time - MyStrTmp Myore = Format(tmptrascorso, "hh") Mymin = Format(tmptrascorso, "nn") Mysec = Format(tmptrascorso, "ss") End If End Sub
1)Appena faccio partire il mio programma il timer parte (inizia a contare) e se schiaccio il tasto start non parte da 0 ma dal numero di secondi uguale a quelli in cui ho fatto partire il mio progetto (se il progetto è partito da 20 secondo il timer sarà a 20 se clicco start e non a 0), a me serve invece che il timer inizi a contare effettivamente da 0
2)Stesso problema se schiaccio pause, il cronometro è apparentemente fermo in realta sta continuando a contare...
3)E' possibile implementare dei tasti che mi permettano di far andare più veloce il cronometro? esempio un tasto per " x2 " mi permette di far contare 2 secondi nel tempo di 1
Fatemi sapere ringrazio tutti anticipatamente

Rispondi quotando