Aftellen

[GDay]

Hoi ,

Ik ben iets aan het maken
Maar ik wil dat hij van 10 aftelt tot 1 in een label
Als hij op 1 staat komt de messagebox met actie wordt gestart

Ik heb al een timer en een command en het label met 10
Maar uit de code kom ik niet

Iemand die me kan helpen?

Gday:thumb:

 

[That Guy]

wat dacht je van

Private sub Timet1_Timer()
label1.caption = label1.caption -1
end sub

(ofzoiets)

 

[GDay]

in de code van de commant button?

En dan op t einde if label1.text = "1" then
actie hier

trouwens ik werk in vb 2005

 

[GDay]

Btw hij onderstreept private sub als fout

 

[RonaldGJ]

Welke VB gebruik je?

 

[djpommes]

Btw hij onderstreept private sub als fout

der staat timet niet timer

hier de correcte code (getest en werkt in vb 6.0)
command button

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

timer1

Private Sub Timer1_Timer()
if label1.Caption =  0 then
'actie hier
Else
Label1.Caption = Label1.Caption - 1
End If
End Sub

timer settings:
enabled false
intervel = 1000 (1 sec)

greetz ted

 

[RonaldGJ]

Timer, Label en Button aanmaken!

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

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = "1000"
Label1.Caption = "10"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
If Val(Label1.Caption) = "0" Then
MsgBox "Tijd is om!"
Timer1.Enabled = False
End If
End Sub

En klaar.

Gr. Ronald!

 

[djpommes]

Timer, Label en Button aanmaken!

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

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = "1000"
Label1.Caption = "10"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) - 1
If Val(Label1.Caption) = "0" Then
MsgBox "Tijd is om!"
Timer1.Enabled = False
End If
End Sub

En klaar.

Gr. Ronald!

dat komt op het zelfde neer als wat ik eerder zei ^^

 

[RonaldGJ]

Had niet gezien dat je die aangepast had

Gr. Ronald!

 

[WILLIAMXXX]

Hoe snel wil je het laten aftrekken?
Hier een voorbeeld met elke seconde -1

Je hebt nodig:

• Button
• Label
• Timer (interval is afhankelijk voor de snelheid...)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text -= 1
        If Label1.Text = 0 Then
            Timer1.Stop()
            MsgBox("Er is afgeteld van 10 tot 0")
        End If
    End Sub
End Class

 

[djpommes]

deze vraag is nu al 3x beandwoord..
en er zit een foutje in je code..
achter label1.text er zit een - tussen.. en het is zoiezo:
label1.caption
.text is alleen bij textboxes

-T

 

[WILLIAMXXX]

Als jij het helemaal hebt gelezen zie je dat andere de vb 6 code zeggen.
Hij geeft duidelijk aan dat die met VB 2005 werkt, dus post ik hier de code voor VB 2005. En ja die is inderdaad iets anders dan die bij vb 6

 

[djpommes]

ok sorr dan..
probeer ook alleen maar te helpen

 

[GDay]

Hoe snel wil je het laten aftrekken?
Hier een voorbeeld met elke seconde -1

Je hebt nodig:

• Button
• Label
• Timer (interval is afhankelijk voor de snelheid...)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text -= 1
        If Label1.Text = 0 Then
            Timer1.Stop()
            MsgBox("Er is afgeteld van 10 tot 0")
        End If
    End Sub
End Class

Hij onderstreept iets als fout een private sub ; zal zo een printscreen posten.

Opgelost

Heel erg bedankt jongens !

 

[WILLIAMXXX]

Oké, fijn dat die het doet...