Avatar billede pejsen Nybegynder
06. august 2009 - 21:00 Der er 1 løsning

Nedtællingsur i UserForm

Hej

Jeg har brug for noget hjælp til noget kode.

Jeg skal lave et nedtællingsur i en Userform.
Den skal bruges til Intervaltræning.

Den skal bestå af 6 TextBoxe og 4 Cmd-knapper.


Textbox1 : Her skal bruger indtaste antal INTERVALLER eks: (8)

Textbox2 : Her skal brugeren indtaste INTERVALLÆNGDE eks: (2 min)
Format: HH:MM:SS "00:02:00"

Textbox3 : Her skal brugeren indtaste antal PAUSELÆNGDE eks: (30 sek)
Format: HH:MM:SS "00:00:30"

Textbox4 : Skal udregne den totale tid for træningspasset
8 x 2 min + 8 x 30 sek. = 20 min
Format: HH:MM:SS "00:20:00"

Textbox5 : Skal vise nedtællingen af de aktuelle INTERVALLER
eks:  8 -> 0
Format: ##

Textbox6 : Skal vise nedtællingen af INTERVALLÆNGDE(2 min)
FontColor: Green
Format: HH:MM:SS "00:02:00"
------Herefter----- 
nedtællingen af PAUSELÆNGDE(39 min)
FontColor: Red 
Format: HH:MM:SS "00:00:30"

CmdButton1: = Start
CmdButton2: = Pause
CmdButton3: = Stop
CmdButton4: = Reset/Clear


Ved udløb af tiden på hver INTERVALLÆNGDE(2 min) ønskes afspilling af en lydfil, ligeledes ved udløb af tiden på hver PAUSELÆNGDE(30 sek.)

Er småt begyndt med den stump kode:
____________________________________________________
Dim SchedRecalc As Date
Dim s As Integer

Sub startx()
s = UserForm1.TextBox2.Value
End Sub
_______________________________________________________
Sub SetTime()
    SchedRecalc = Now + TimeValue("00:00:01")
    Application.OnTime SchedRecalc, "Recalc"
End Sub
________________________________________________________
Sub Recalc()
's = UserForm1.TextBox2.Value
s = s - 1
If s > 0 Then
    UserForm1.TextBox1 = Format(SchedRecalc, "hh:mm:ss")
    Call SetTime
Else
    UserForm1.Label1.Caption = "Tiden er udløbet!"
    Call Disable
End If

End Sub
__________________________________________________________

Sub Disable()
On Error Resume Next
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
___________________________________________________________

Håber I kan hjælpe

/Pejsen
Avatar billede pejsen Nybegynder
15. maj 2011 - 18:38 #1
Lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester