aftellen

[BAAS015]

kan je in een windowsform 3 seconden laten aftellen? dat je ziet 3, even niks 2, even niks 1, niks
alvast bedankt

 

[Bloodshed]

Gebruik een timer component.

 

[BAAS015]

oke bedankt en dan?

 

[Bloodshed]

Als je een timer component op je form zet vanuit de toolbox kun je in de properties de interval aanpassen (deze is in mili seconds) en registreren op het 'tick' event.

De timer heeft .Start() en .Stop() methods (je kunt starten als het form geladen is, en stoppen als het getal op 0 komt)

Het tick event zal elke seconde (als de interval op 1000ms staat) afgaan en dan kun je dus een label aanpassen.

 

[Pim15]

Voor als het is opgelost, zet de vraag even op opgelost.
Voor als het niet is opgelost, hier is een voorbeeld projectje (Bekijk bijlage aftellen - Helpmij.nl.zip).

Pim

 

[BAAS015]

ik had nu iets als dit bedacht, maar het werkt niet. kan iemand mij helpen?

 

[Pim15]

Heb je dat van mij wel bekeken? Want bij mij werkt het wel...

Pim

 

[BAAS015]

sorry ik was vergeten de code erbij te zetten..
het was

for i 10 to 1
label1.text echo.(i)
next

 

[Pim15]

Wat wil je met deze code. Want ik snap niet wat je hiermee wilt.

Pim

 

[BAAS015]

ik heb een programma gemaakt wat de text uit textbox1 een aantal uit textbox2 zend met sendkeys.send. ik wilde nu een label bij de 2e textbox maken dat het getal uit textbox2 nam en dat in een label zette. nu wil ik dat als in textbox2 20 staat dat het label af gaat tellen naar nul, per keer dat sendkeys zend, dat er dan -1 afging zoals

textbox2.text = label1.text -1

dit werkt niet dus dat was mijn vraag

alvast bedankt!

 

[Pim15]

De uitleg is nogal verwarrend. Ik begrijp er dus niks meer van, maar misschien iemand anders wel. In ieder geval veel succes!

Pim

 

[JoZ1]

ik heb een programma gemaakt wat de text uit textbox1 een aantal uit textbox2 zend met sendkeys.send. ik wilde nu een label bij de 2e textbox maken dat het getal uit textbox2 nam en dat in een label zette. nu wil ik dat als in textbox2 20 staat dat het label af gaat tellen naar nul, per keer dat sendkeys zend, dat er dan -1 afging zoals

textbox2.text = label1.text -1

dit werkt niet dus dat was mijn vraag

Ah, ik snap je

Wordt dat zoiets:

[cpp]Private aftellen As Integer
Private Sub Start_Click() Handles StartBttn.Click
Label1.Text = NumericUpDown1.Value.ToString()
aftellen = CInt(NumericUpDown1.Value)
Timer1.Interval = 1000 ''//1 seconde
Timer1.Start()
End Sub

Private Sub Timer1_Tick() Handles Timer1.Tick
If aftellen > 0 Then
aftellen -= 1
Label1.Text = aftellen.ToString
''//Sendkeys.Send("")
Else
Timer1.Stop()
End If
End Sub[/cpp]

(Heb trouwens NumericUpdown gebruikt i.p.v. TextBox)

 

[BAAS015]

het werkt! Bedankt!!!

 

[JoZ1]

Mooi zo :thumb:
Zet je de vraag op opgelost (rechtsonder eerste post > 'Zet status opgelost') ?