Avatar billede phpn00b Nybegynder
01. juli 2006 - 22:29 Der er 5 kommentarer

ur som tæller ned og en load bar

Jeg skal bruge et ur som tæller ned fra 3:00:00 og når det når 0, starter det forfra, når det så har nået 0 første gang, skal det skrive 1 i Label3 og 2 anden gang, osv.

Loadbaren skal starte når man klikker start og så skal den tage 5 sek til at komme fra 0% til 100%.

Det er ffiint nok hvis i bare kan lave en af dem..
Avatar billede myst1098 Nybegynder
02. juli 2006 - 20:21 #1
Private Sub Command1_Click()
Label2 = 0
Label1 = "03:00:00"
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1 = DateAdd("s", -1, Label1)

If Label1 = "00:00:00" Then
a = a + 1
Label2 = a
Label1 = "03:00:00"
End If
End Sub
Avatar billede myst1098 Nybegynder
02. juli 2006 - 20:23 #2
fejl:

sådan her...

Private Sub Timer1_Timer()
Label1 = DateAdd("s", -1, Label1)
If Label1 = "00:00:00" Then
Label2 = Label2 + 1
Label1 = "00:00:02"
End If
End Sub
Avatar billede myst1098 Nybegynder
02. juli 2006 - 20:23 #3
går ud fra at du selv retter 00:00:02 til 03:00:00 ;o))
Avatar billede myst1098 Nybegynder
02. juli 2006 - 20:28 #4
Progressbaren der tæller til 5 kunne se sådan her ud:

Private Sub Command2_Click()
Pbar.Max = 5
Pbar.Value = 0
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Pbar.Value = Pbar.Value + 1
If Pbar.Value = 5 Then
MsgBox ("Færdig")
Timer2.Enabled = False
End If
End Sub
Avatar billede myst1098 Nybegynder
03. juli 2006 - 22:15 #5
lukketid ?
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