Vytvoření timeru ve visual studio – Visual Basic – Fórum – Programujte.com

Zdravím Vás, chtěl bych udělat timer ve visual studio. Mam formulář a v tom tlačítko. Chtěl bych, aby když kliknu na tlačítko, tak začal ubíhat nějaký předdefinovaný čas. Jakmile by doběhl, udělalo by to nějakou akci. Tu už bych si vytvořil sám. Abychom to zjednodušil, tak dejme tomu, zobrazí se text.

Bohužel jsem nenašel ani jak udělat samotný timer. Nějaké návody jsem našel, ale moc mi nepomohli.

Děkuji

Timer najdeš v Toolboxu, přetáhneš do formu. Bude se jmenovat třeba timer1, a tak s ním budeš v programu i pracovat.

Zasláno z mobilního telefonu.

Ano to vím, já nevím jak mu nastavit délku, jak ho spustit atd.

tu máš funkcie a samotné používanie - http://msdn.microsoft.com/en-us/library/system.windows.forms.timer#Y2040

ďalej snaď aj - http://msdn.microsoft.com/en-us/library/3tszykws a http://msdn.microsoft.com/en-us/library/beza71x7

Rád by som ti poradil aj sám ale z WinForms nemám žiadne skúsenosti.

 Třeba např:

timer1.Interval = 250; //interval v ms
            
timer1.Tick += (sender, e) => 
{ 
    //tady neco, co se bude volat kazde ticknuti 
};

timer1.Start();

nebo

//nekde, nejlepe v metode Form_load

timer1.Interval = 1250; //interval v ms

timer1.Tick += new EventHandler(timer1_Tick);

timer1.Start();
        
//potom void
        
void timer1_Tick(object sender, EventArgs e)
{
   //kod co se bude volat kazdy tick
}

Je to v C#, ale kdyžtak je na netu plno aplikací na převod C# -> VB

neviem sice v com pises ale tu je VB6

Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = True                       'Spustenie timeru
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000                      'pocitanie v sekundach
Timer1.Enabled = False                      'pri starte programu sa nespusti timer
End Sub

Private Sub Timer1_Timer()
a = a + 1                                   'tu ti bude pocitat sekundy
If a = 10 Then                              'ak sa sekundy rovnaju 10
    Text1.Text = "timer napocital do 10"    'v textboxe sa zobrazi text
    Timer1.Enabled = False                  'po napocitani do 10 vypne timer aby
End If                                              'nepocital dalej
End Sub

Ahoj, chtěl bych se zeptat, jak přimět textbox1.Text , aby když se bude rovnat napr 04:00:00
Udělal něco treba msg box, ale ten uz umim.
Diky

Zasláno z mobilního telefonu.

#7 tom Ahoj,

neví někdo jak udělat aby se začalo odpočítávat třeba do 16:00? Že by byl odpočet do nějakého času (hodiny, minuty a vteřiny) a v 16:00 by se něco stalo ( s tim co se má stát s tím už pomoc nepotřebuju :))

#8 Maty
Jako, že se třeba každou sekundu zobrazí aktuální čas a když dojde na nějakou hodnotu, tak se něco udělá? Hm, tak s tím si neporadíme.

#8 Maty

nazdar,

pre porovnanie dvoch datumov, casov pouzi timespan

https://msdn.microsoft.com/en-us/library/system.timespan(v=vs.110).aspx