Kandungan

• Arahan

Dalam Visual Basic .NET, pemasa membolehkan anda mengawal acara berkala semasa runtime aplikasi anda. Pemasa mempunyai beberapa sifat dan kaedah unik untuk ini. Harta yang paling penting ialah "Selang", yang menentukan berapa kali pemasa harus menjalankan kod tersebut. Anda memberikan nilai julat dalam milisaat; ribu milisaat bersamaan satu saat. Beberapa contoh tentang apa yang boleh anda lakukan dengan pengawal termasuk menjalankan undur, mengubah nilai harta secara dinamik untuk kawalan lain, dan untuk menjaga mata tetap pada beberapa bahagian aplikasi yang lain.

Arahan

Nilai interval pemasa diberikan dalam milisaat (gambar jam oleh Peter Hires Imej dari Fotolia.com)

1. Buka projek dalam Visual Basic. Klik dua kali pemasa dan tambah "Timer1" dan klik dua kali "Label" untuk menambah "Label1". Tukar harta kawalan "Diaktifkan" ke "Benar" dan tukar julat hingga 1000.

2. Tekan "F7" untuk membuka tetingkap kod dan masukkan kod berikut:

   Dim waktu Sebagai Integer = 10

   Ini mewujudkan pembolehubah dan memulakannya.

3. Buka applet Timer1_Tick dan masukkan kod berikut:

   Jika masa> 0 Kemudian masa = masa - 1 Label1.Teks = masa Lain Timer1.Enabled = Akhir Palsu Jika

   Apabila program berjalan, pemasa akan mengurangkan pemboleh ubah setiap saat dengan memaparkan nilai pada tenda sehingga kiraan mencapai sifar, menyebabkan pemasa untuk mematikan.

   
   

4. Tekan "Shift" dan "F7" untuk membuka tetingkap projek. Klik dua kali pemasa dan tambah "Timer2" kepada projek. Tukar harta "Diaktifkan" kepada "Benar" dan jajarannya hingga 100, kemudian klik dua kali untuk membuka program sub Timer2_Tick. Kemudian ketik kod berikut:

   Jika (Label1.Left + Label1.Width)> Me.Width Kemudian Label1.Left = Me.Left - 100 Akhir Jika Label1.Left = Label1.Left + 5

   Kod ini menyebabkan panel untuk menatal secara mendatar merentasi skrin, bergerak lima piksel setiap sepersepuluh detik. Ketika tenda itu sampai ke ujung kanan borang itu, ia akan kembali ke kiri dan mula bergerak lagi.

5. Tekan "Shift" dan "F7" untuk membuka tetingkap projek. Klik dua kali pengawal dan tambah "Timer3" untuk projek itu. Tukar harta "Diaktifkan" kepada "Benar" dan rentangnya menjadi 500. Kemudian klik dua kali pada "TextBox" untuk menambah "TextBox1". Klik dua kali projek Timer3 untuk membuka applet Timer3_Tick. Kemudian ketik kod berikut:

   
   

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

   Setiap 30 saat, Pemasa mengubah semua teks dari "TextBox1" ke kotak atas. Secara lalai, apabila pemasa membuat perubahan, kursor kembali ke permulaan kotak teks. Baris kedua kod ini menghalangnya daripada berlaku.