Isi

• Instruksi

Dalam Visual Basic .NET, timer memungkinkan Anda untuk mengontrol acara berkala selama runtime aplikasi Anda. Timer memiliki beberapa properti dan metode unik untuk ini. Properti paling penting adalah "Interval", yang menentukan seberapa sering timer menjalankan kode. Anda memberikan nilai rentang dalam milidetik; seribu milidetik sama dengan satu detik. Beberapa contoh yang dapat Anda lakukan dengan pengontrol termasuk menjalankan hitung mundur, secara dinamis mengubah nilai properti untuk kontrol lain, dan untuk tetap mengawasi beberapa bagian lain aplikasi.

Instruksi

Nilai interval timer diberikan dalam milidetik (gambar jam oleh Peter Hires Images dari Fotolia.com)

1. Buka proyek di Visual Basic. Klik dua kali timer dan tambahkan "Timer1" dan klik dua kali "Label" untuk menambahkan "Label1". Ubah properti kontrol "Diaktifkan" menjadi "Benar" dan ubah rentang ke 1000.

2. Tekan "F7" untuk membuka jendela kode dan masukkan kode berikut:

   Dim time As Integer = 10

   Ini menciptakan variabel dan menginisialisasi itu.

3. Buka applet Timer1_Tick dan masukkan kode berikut:

   If time> 0 Kemudian time = time - 1 Label1.Text = time Else Timer1.Enabled = False End If

   Ketika program berjalan, timer akan mengurangi variabel setiap detik dengan menampilkan nilai pada tenda sampai hitungan mencapai nol, menyebabkan timer mati.

   
   

4. Tekan "Shift" dan "F7" untuk membuka jendela proyek. Klik dua kali timer dan tambahkan "Timer2" ke proyek. Ubah properti "Enabled" menjadi "True" dan kisarannya menjadi 100, lalu klik dua kali untuk membuka sub program Timer2_Tick. Kemudian ketikkan kode berikut:

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

   Kode ini menyebabkan panel menggulir secara horizontal di layar, bergerak lima piksel setiap sepuluh detik. Ketika tenda mencapai ujung kanan formulir, ia kembali ke kiri dan mulai bergerak lagi.

5. Tekan "Shift" dan "F7" untuk membuka jendela proyek. Klik dua kali controller dan tambahkan "Timer3" ke proyek. Ubah properti "Enabled" menjadi "True" dan kisarannya menjadi 500. Kemudian klik dua kali pada "TextBox" untuk menambahkan "TextBox1". Klik dua kali proyek Timer3 untuk membuka applet Timer3_Tick. Kemudian ketikkan kode berikut:

   
   

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

   Setiap 30 detik, Timer mengubah semua teks dari "TextBox1" ke kotak atas. Secara default, ketika timer membuat perubahan, kursor kembali ke awal kotak teks. Baris kedua kode mencegah hal ini terjadi.