Visual Basic Díl 7. - Datum, Čas a Časovač

Zdroj: SOOM.cz [ISSN 1804-7270]
Autor: S0meB0dy
Datum: 5.9.2004
Hodnocení/Hlasovalo: 2.23/13

V sedmém díle seriálu si ukážeme jak ve Visual Basicu pracovat s datem, časem a komponentou Timer.

Datum a Čas
Práce z datem a časem je ve Visual Basicu velmi jednoduchá, existují tři základní příkazy a těmi jsou Date pro datum, Time pro čas a Now pro zakódovaný datum a čas. Ty se chvovají jako proměnné které reprezentují aktuální datum a čas. Z těchto hodnot si však můžete vytáhnout např. rok z data nebo vteřiny z času a to podle následující tabulky:

Funkce	Význam
Hour(čas)	Udává z času pouze hodiny
Minute(čas)	Udává z času pouze minuty
Second(čas)	Udává z času pouze vteřiny
Year(datum)	Udává z data pouze rok
Month(datum)	Udává z data pouze měsíc
Weekday(datum)	Udává z data pouze den v týdnu
Day(datum)	Udává z data pouze den

Vytvoření hodin
Nyní vytvoříme jednoduché hodiny.

1.Na formulář umístěte Label(lblCas), poklepejte na formulář a pište:

lblCas.Caption = Time

2. Nyní program spusťte a na komponentě lblCas by se měl zobrazit aktuální čas.

Rozbor kódu
Jednoduše jsme dosadili do vlastnosti caption komponenty lblCas příkaz Time

Časovač
Časovač, neboli komponenta Timer, slouží k opakování určité procedury v zadaném intervalu, pro časovač jsou nejdůležitější tyto vlastnosti:

Enabled - Určuje jestli bude časovač zappnutý(True) nebo vypnutý(False)
Interval - Určuje jak často se bude daná procedura opakovat. Interval zadejte v milisekundách neboli 1/1000 sekundy.

Vytvoření aktivních hodin
Jistě jste si všimly že v předchozím příkladě se hodiny neaktualizují pouze po spuštění ukáží aktuální čas. To se dá odbourat pomocí časovače.

1.Do předchozího příkladu doplňte komponentu Timer(tmrHodiny) a její vlastnost Interval nastavte na 1000
2. Poklepejte časovač a pište:

lblCas.Caption = Time

3.Teď program spusťte a hodiny by se měli aktualizovat každou vteřinu

Rozbor kódu
Nastavením vlastnosti Interval na 1000 jsme zajistli že procedura kterou napíšeme se bude opakovaně provádět každou vteřinu, a jako proceduru jsme tedy napsali že se má na lblCas zobrazit aktualní čas.

Pozn. Proč jsme proceduru nechali provádět i po spuštění programu(Form_Load)? Časovač totiž neprovede příkaz hned, ale až po uběhnutí času nastaveném v hodnotě Interval, v našem případě by se tedy čas na komponentě lblCas zobrazil až za vteřinu.

Úloha
Vyzkoušejte si i ostatní příkazy a nezapomeňte ani na funkce.