Turinys

• Instrukcijos

Visual Basic .NET laikmatis leidžia jums reguliariai kontroliuoti įvykius programos taikymo metu. Laikmatis turi tam tikrų unikalių savybių ir metodų. Svarbiausia savybė yra „Interval“, kuris nurodo, kaip dažnai laikmatis turi paleisti kodą. Pateikiate intervalo vertę milisekundėmis; tūkst. milisekundžių yra viena sekundė. Keletas pavyzdžių, ką galite padaryti su valdikliu, apima skaičiavimų vykdymą, dinamiškai keičiant kitų valdiklių savybes ir nuolat stebėti kai kurias kitas programos dalis.

Instrukcijos

Laikmačio intervalo reikšmė pateikiama milisekundėmis (Laikrodžio vaizdas, kurį įkėlė Peter Hires Images from Fotolia.com)

1. Atidarykite projektą „Visual Basic“. Dukart spustelėkite laikmatį ir pridėkite „Timer1“ ir du kartus spustelėkite „Label“, kad pridėtumėte „Label1“. Pakeiskite „Įjungta“ valdymo savybę į „Tiesa“ ir pakeiskite diapazoną iki 1000.

2. Paspauskite „F7“, kad atidarytumėte kodo langą ir įveskite šį kodą:

   Trumpas laikas kaip Integer = 10

   Tai sukuria kintamąjį ir inicijuoja jį.

3. Atidarykite „Timer1_Tick“ programėlę ir įveskite šį kodą:

   Jei laikas> 0 Tada laikas = laikas - 1 Label1.Text = time Else Timer1.Enabled = False End If

   Kai programa veikia, laikmatis kas sekundę sumažins kintamąjį, rodydamas rodiklį rodyklėje, kol skaičius pasiekia nulį, todėl laikmatis išsijungs.

   
   

4. Paspauskite „Shift“ ir „F7“, kad atidarytumėte projekto langą. Dukart spustelėkite laikmatį ir pridėkite „Timer2“ į projektą. Pakeiskite „Įgalinta“ nuosavybę į „Tiesa“ ir jos diapazoną iki 100, tada dukart spustelėkite jį, kad atidarytumėte „Timer2_Tick“ antrinę programą. Tada įveskite šį kodą:

   Jei (Label1.Left + Label1.Width)> Me.Width Tada Label1.Left = Me.Left - 100 End Jei Label1.Left = Label1.Left + 5

   Šis kodas sukelia skydelį horizontaliai slinkti per ekraną, kas penktą pikselį per sekundę. Kai lankytojas pasiekia dešinę formos formą, jis grįžta į kairę ir vėl pradeda judėti.

5. Paspauskite „Shift“ ir „F7“, kad atidarytumėte projekto langą. Dukart spustelėkite valdiklį ir pridėkite projektą „Timer3“. Pakeiskite „Įgalinta“ nuosavybę į „True“ ir jos diapazoną iki 500. Tada dukart spustelėkite „TextBox“, kad pridėtumėte „TextBox1“. Dukart spustelėkite Timer3 projektą, kad atidarytumėte „Timer3_Tick“ programėlę. Tada įveskite šį kodą:

   
   

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

   Kas 30 sekundžių laikmatis pakeičia visą tekstą iš „TextBox1“ į viršutinį langelį. Pagal numatytuosius nustatymus, kai laikmatis atlieka pakeitimus, žymeklis grįžta į teksto lauko pradžią. Antroji kodo eilutė neleidžia tai įvykti.