Cara memprogram kontrol Timer di VB.NET

Dengan kontrol Timer Visual Basic .NET Anda dapat mengontrol acara rutin.

Langkah 1

Buka proyek Visual Basic. Klik dua kali pada kontrol "Timer" untuk menambahkan Timer1 ke proyek. Klik dua kali pada kontrol "Label" untuk menambahkan Label1 ke formulir. Mengubah properti "Diaktifkan" dari kontrol Timer1 menjadi properti "True" (true) dan "Interval" (rentang) hingga 1000.

Langkah 2

Tekan "F7" untuk membuka jendela kode dan ketik yang berikut:

Waktu redup As Integer = 10

Ini akan membuat variabel dan memulainya dengan nilai.

Langkah 3

Buka subrutin Timer1_Tick dan masukkan kode berikut:

Jika waktu> 0 Kemudian waktu = waktu - 1 Label1.Text = waktu Lain Timer1.Enabled = Ujung Palsu Jika

Ketika program dijalankan, Timer akan mengurangi variabel waktu satu per satu setiap detik dan menampilkan nilai pada label hingga hitungannya mencapai 0. Pada saat itu, Timer akan dinonaktifkan.

Langkah 4

Tekan "Shift" dan "F7" untuk membuka jendela desain. Klik dua kali pada kontrol Timer untuk menambahkan Timer2 ke proyek. Ubah propertinya dari "Diaktifkan" menjadi "True" dan properti "Interval" menjadi 100. Kemudian klik ganda untuk membuka subrutin Timer2_Tick. Tulis kode berikut:

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

Dengan kode ini label akan bergerak secara horizontal di layar, memindahkan lima piksel setiap sepersepuluh detik. Ketika label mencapai ujung kanan dari bentuk itu akan melompat kembali ke ujung kiri dan mulai menggulir secara horizontal lagi.

Langkah 5

Tekan "Shift" dan "F7" untuk membuka jendela desain. Klik dua kali pada Timer untuk menambahkan Timer3 ke proyek. Ubah properti "Diaktifkan" menjadi "True" dan properti "Interval" menjadi 500. Klik dua kali pada kontrol "TextBox" (kotak teks) untuk menambahkan TextBox1 ke proyek. Klik dua kali pada Timer3 dari proyek untuk membuka subrutin Timer3_Tick. Tulis kode berikut:

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

Setiap setengah detik, Timer akan mengubah semua teks di TextBox1 menjadi huruf besar. Secara default, ketika Timer membuat ini mengubah kursor kembali ke awal kotak teks. Baris kode kedua mencegah hal ini terjadi.