Saturs

• Instrukcijas

Visual Basic .NET laikā taimeris ļauj kontrolēt periodiskus notikumus programmas darbības laikā. Šim laikam ir dažas unikālas īpašības un metodes. Vissvarīgākais īpašums ir "Intervāls", kas nosaka, cik bieži laikam vajadzētu darboties ar kodu. Jūs sniedzat diapazona vērtību milisekundēs; tūkst. milisekundes ir viena sekunde. Daži piemēri par to, ko jūs varat izdarīt ar kontrolieri, ietver atpakaļskaitīšanas, dinamisku mainīgo īpašību vērtību mainīšanu citām kontrolēm, kā arī pastāvīgu acu par dažām citām programmas daļām.

Instrukcijas

Taimera intervāla vērtība ir norādīta milisekundēs (Pulksteņa attēls ar Peter Hires Images no Fotolia.com)

1. Atveriet projektu Visual Basic. Veiciet dubultklikšķi uz taimera un pievienojiet "Timer1" un veiciet dubultklikšķi uz "Label", lai pievienotu "Label1". Mainiet "Enabled" vadības funkciju uz "True" un mainiet diapazonu uz 1000.

2. Nospiediet "F7", lai atvērtu kodu logu, un ievadiet šādu kodu:

   Dim laiks Kā Integer = 10

   Tas rada mainīgo un to inicializē.

3. Atveriet programmu Timer1_Tick un ievadiet šādu kodu:

   Ja laiks> 0 Tad laiks = laiks - 1 Label1.Text = laiks Else Timer1.Enabled = False End If

   Kad programma darbojas, taimeris samazina mainīgo katru sekundi, parādot vērtību, kas atrodas laukumā, līdz skaits sasniedz nulli, izraisot taimera izslēgšanu.

   
   

4. Nospiediet "Shift" un "F7", lai atvērtu projekta logu. Veiciet dubultklikšķi uz taimera un pievienojiet projektam "Timer2". Mainiet rekvizītu "Iespējots" uz "True" un tā diapazonu līdz 100, pēc tam veiciet dubultklikšķi uz tā, lai atvērtu apakšprogrammu Timer2_Tick. Pēc tam ierakstiet šādu kodu:

   Ja (Label1.Left + Label1.Width)> Me.Width Tad Label1.Left = Me.Left - 100 Beigas Ja Label1.Left = Label1.Left + 5

   Šis kods liek panelim horizontāli pārvietoties pa ekrānu, pārvietojot piecus pikseļus katru sekundes daļu. Kad telts sasniedz veidlapas labo galu, tas atgriežas pa kreisi un sāk atkal pārvietoties.

5. Nospiediet "Shift" un "F7", lai atvērtu projekta logu. Veiciet dubultklikšķi uz kontrollera un pievienojiet projektam "Timer3". Mainiet "Enabled" īpašumu "True" un tā diapazonu līdz 500. Pēc tam veiciet dubultklikšķi uz "TextBox", lai pievienotu "TextBox1". Veiciet dubultklikšķi uz Timer3 projekta, lai atvērtu programmu Timer3_Tick. Pēc tam ierakstiet šādu kodu:

   
   

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

   Ik pēc 30 sekundēm taimeris maina visu tekstu no "TextBox1" uz augšējo lodziņu. Pēc noklusējuma, kad taimeris veic izmaiņas, kursors atgriežas teksta lodziņa sākumā. Otrā koda rinda to neļauj.