Hej!

Sitter och försöker få till ett enkelt tidtagarur.

Skall börja från 00:00 (minuter och sekunder) och ska kunna pausa och forsätta vid pausadtid.

Verkar knepigt har letat dels här på pellesoft och övrigt på internet men hittare inget om detta

tips om detta!!!



Tobbe

Använd en timmer med intervall 1000.
använd två lablar.

deklarera en int i sec
deklarera en int i minut

i timern:
om i är <9 så lägg dit en noll först. Annars visa siffrorna.
om label1 >59 så öka minut med ett.
Om minut <9 så lägg dit en nolla. Annars skriv siffrorna.

Sätt ut en knapp (Command1), en timer (Timer1) och en label (Label1) och testa den här koden:

<code>
Dim Seconds As Integer

Private Sub Command1_Click()
Timer1.Enabled = Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Seconds = Seconds + 1
Label1.Caption = Mid(DateAdd("s", Seconds, 0), 4)
End Sub
</code>


Thomas

<b>Använd en timmer med intervall 1000. </b>
Du skall använda Timer intervall 448 för att få säker träff varje sekund.
Du kan kolla in mitt uppskick

Programarkivet:Två StopUr växelvis

Hej!

Thomas förslag funkade bra tackar.

Men nu vill jag räkna ner från t,ex 2 min 02:00 hur gör man då.



Tobbe

<code>
Dim Seconds As Integer

Private Sub Form_Load()
Seconds = 120
End Sub
Private Sub Command1_Click()
Timer1.Enabled = Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Seconds > 0 Then
Seconds = Seconds - 1
Label1.Caption = Mid(DateAdd("s", Seconds, 0), 4)
End If
End Sub
</code>


Thomas