Kode til en tæller

Det kan vi hurtigt lave...

darth-domino > Det kan vi hurtigt lave... Bliver det idag :D

' ---------------------------------- Form1 ----------------------------------
' Husk 2 CommandButton (Command1, Command2) og en Timer (Timer1)
' ---------------------------------------------------------------------------
Option Explicit

Private intSec As Long

Private Function SecToTime(ByVal Sec As Long) As String
Dim Min As Long
  Min = Format(Fix(Sec / 60), "00")
  SecToTime = Format(Fix(Min / 60), "00") & ":" & _
              Format(Min Mod 60, "00") & ":" & _
              Format(Sec Mod 60, "00")
End Function

Private Sub Command1_Click() ' Start knap
  intSec = 0
  Timer1.Enabled = True
  Timer1.Interval = 1000
End Sub

Private Sub Command2_Click() ' Stop knap
  Timer1.Enabled = False
End Sub

Private Sub Form_Load()
  Command1.Caption = "Start"
  Command2.Caption = "Stop"
End Sub

Private Sub Timer1_Timer() 'Timer
  intSec = (intSec + 1)
  Me.Caption = SecToTime(intSec)
End Sub
' ---------------------------------- Form1 ----------------------------------

Tusind tak sjh, det virker perfekt!
Og så véd du jo, at når man rækker f... en lillefinger..
jeg kunne vel ikke få tælleren vist på en label i stedet for?
Men i hvert fald tak.

Jeg ved godt at jeg skrev "på" en form...
men det var altså ikke lige meningen. Dansk er svært, når man ikke kan sige det man mener.

Så skal den bare se sådan ud.. Husk en Label1 (Label) ;)

Private Sub Timer1_Timer() 'Timer
  intSec = (intSec + 1)
  ' Me.Caption = SecToTime(intSec)
  Label1.Caption = SecToTime(intSec)
End Sub

Du kan så sette.. AutoSize til True

Virker helt perfekt. Du er dygtig og ordentlig! - og nu er livet bare skønt!!! :o))Tusind tak!

Ja jeg køre jo også på 5 år.. :D

100 point var måske lidt meget for det her spm.. men så kan du da få et godt link til alle de eksempler jeg har lavet her på eksperten: http://vbhansen.dk/spm/ rigtig god fornøjelse. :-)

Jotak! Det er ikke så tit jeg har brug for hjælp, for jeg laver ikke så meget. Så det er rart, at jeg ikke behøver at læse i 1000-vis af sider for at få klaret dette eller hint.

Når man kører stopuret, kunne man så ikk lave 3 knapper?
1 knap til at starte, 1 knap til at stoppe(pause) og 1 knap til at nulstille?

Hvis man så trykker pause, og derefter trykker start, skal den fortsætte, på det den stod på da man trykkede pause..?

Har fikset det, sådan her:





Option Explicit

Private intSec As Long

Private Function SecToTime(ByVal Sec As Long) As String
Dim Min As Long
  Min = Format(Fix(Sec / 60), "00")
  SecToTime = Format(Fix(Min / 60), "00") & ":" & _
              Format(Min Mod 60, "00") & ":" & _
              Format(Sec Mod 60, "00")
End Function

Private Sub Command1_Click() ' Start knap
  intSec = (intSec + 0)
  Timer1.Enabled = True
  Timer1.Interval = 1000
End Sub

Private Sub Command2_Click() ' Stop knap
  Timer1.Enabled = False
End Sub

Private Sub Command3_Click()    'reset
  intSec = 0
  Label1.Caption = "00:00:00"
End Sub

Private Sub Form_Load()
  Command1.Caption = "Start"
  Command2.Caption = "Stop"
  Command3.Caption = "Nulstil"
End Sub

Private Sub Timer1_Timer() 'Timer
  intSec = (intSec + 1)
  Me.Caption = SecToTime(intSec)
  Label1.Caption = SecToTime(intSec)
End Sub