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

Pomocí ovládacího prvku Visual Basic .NET Timer můžete ovládat opakující se události.

Krok 1

Otevřete projekt jazyka. Poklepáním na ovládací prvek "Timer" přidejte do projektu projekt Timer1. Poklepáním na ovládací prvek "Label" přidáte do formuláře štítek1. Změní vlastnost "Povoleno" ovládacího prvku Timer1 na hodnotu "True" (true) a vlastnost "Rozsah" na hodnotu 1000.

Krok 2

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

Hodnota času jako celé číslo = 10

Tím vytvoříte proměnnou a spustíte ji hodnotou.

Krok 3

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

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

Při spuštění programu časovač snižuje časovou proměnnou o jednu sekundu každou sekundu a zobrazuje hodnotu na štítku, dokud počet nedosáhne 0. V tomto okamžiku bude časovač deaktivován.

Krok 4

Stisknutím klávesy "Shift" a "F7" otevřete okno návrhu. Poklepáním na ovládací prvek časovače přidáte do projektu projekt Timer2. Změňte jeho vlastnost z hodnoty "Enabled" na hodnotu "True" a její vlastnost "Interval" na hodnotu 100. Potom dvojklikem na ni otevřete podprogram Timer2_Tick. Napište následující kód:

Pokud (Label1.Left + Label1.Width)> Me.Width Potom Label1.Left = Me.Left - 100 End Pokud Label1.Left = Label1.Left + 5

Tímto kódem se štítek posouvá vodorovně po obrazovce a pohybuje se pět pixelů každou desetinu sekundy. Když se štítek dostane na pravý konec formuláře, převede se zpět na levý konec a začne znovu posouvat vodorovně.

Krok 5

Stisknutím klávesy "Shift" a "F7" otevřete okno návrhu. Poklepáním na časovač přidáte časovač 3 k projektu. Změnit vlastnost "Povoleno" na hodnotu "True" a její vlastnost "Interval" na hodnotu 500. Poklepáním na ovládací prvek "TextBox" (textové pole) přidáte do projektu textBox1. Poklepáním na časovač 3 projektu 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 sekundy změní časovač celý text v textovém seznamu1 na velká písmena. Ve výchozím nastavení při změně časovače se kurzor vrátí na začátek textového pole. Druhý řádek kódu zabrání tomu, aby se to stalo.