Jak naprogramovat řízení časovače ve VB.NET

Krok 1

Otevřete projekt jazyka. Poklepáním na ovládací prvek „Timer“ přidáte Timer1 do projektu. Poklepáním na ovládací prvek „Popisek“ přidáte do formuláře Label1. Změňte vlastnost „Enabled“ ovládacího prvku Timer1 na „True“ (true) a vlastnost „Interval“ (interval) na 1000.

Krok 2

Stisknutím klávesy „F7“ otevřete okno s kódem a zadejte následující příkaz:

Dim time As Integer = 10

Tím se vytvoří proměnná a spustí se s hodnotou.

Krok 3

Otevřete podprogram Timer1_Tick a zadejte následující kód:

Pokud čas> 0 Pak čas = čas - 1 Label1.Text = čas Else Timer1.Enabled = False End If

Když je program spuštěn, časovač sníží časovou proměnnou jednu po druhé každou sekundu a zobrazí hodnotu na štítku, dokud počet nedosáhne 0. V té době se časovač deaktivuje.

Krok 4

Stisknutím kláves „Shift“ a „F7“ otevřete okno návrhu. Poklepáním na ovládací prvek Časovač přidejte do projektu Timer2. Změňte jeho vlastnost z „Enabled“ na „True“ a jeho „Interval“ na 100. Poté dvojitým kliknutím na ni otevřete podprogram Timer2_Tick. Napište následující kód:

If (Label1.Left + Label1.Width)> Me.Width Then Label1.Left = Me.Left - 100 End If Label1.Left = Label1.Left + 5

S tímto kódem se štítek posouvá vodorovně po obrazovce a pohybuje se o pět pixelů každou desetinu sekundy. Když štítek dosáhne zcela vpravo od formuláře, skočí doleva zcela zleva a začne znovu vodorovně posouvat.

Krok 5

Stisknutím kláves „Shift“ a „F7“ otevřete okno návrhu. Poklepáním na časovač přidáte časovač3 do projektu. Změnit jeho vlastnost "Povoleno" na "True" a jeho "Interval" vlastnost na 500. Poklepáním na ovládací prvek "TextBox" (textové pole) přidat TextBox1 do projektu. Poklepáním na projekt Timer3 otevřete podprogram Timer3_Tick. Napište následující kód:

TextBox1.Text = TextBox1.Text.ToUpper TextBox1.Select (TextBox1.TextLength, 0)

Každou půl sekundu změní časovač celý text TextBox1 na velká písmena. Ve výchozím nastavení, když časovač provede tuto změnu, kurzor se vrátí na začátek textového pole. Druhý řádek kódu tomu brání.

Zajímavé Články