[VISUAL BASIC] TIMER CONTROL

Điều khiển hẹn giờ là điều khiển lặp được sử dụng để lặp lại bất kỳ tác vụ nào trong một khoảng thời gian nhất định. Đây là một điều khiển quan trọng được sử dụng trong lập trình phía Máy khách và phía Máy chủ, cũng như trong Dịch vụ Windows.

Hơn nữa, nếu chúng ta muốn thực thi một ứng dụng sau một khoảng thời gian cụ thể, chúng ta có thể sử dụng Điều khiển hẹn giờ . Khi bộ hẹn giờ được bật, nó sẽ tạo một trình xử lý sự kiện đánh dấu để thực hiện bất kỳ tác vụ nào được xác định trong thuộc tính khoảng thời gian của nó. Nó bắt đầu khi phương thức start() của bộ điều khiển hẹn giờ được gọi và nó lặp lại tác vụ đã xác định liên tục cho đến khi bộ hẹn giờ dừng lại.

Hãy tạo một điều khiển Hẹn giờ trong biểu mẫu VB.NET Windows bằng cách thực hiện các bước sau.

Bước 1: Kéo và thả điều khiển Hẹn giờ vào biểu mẫu cửa sổ như hình bên dưới.

Bước 2: Sau khi Bộ hẹn giờ được thêm vào biểu mẫu, chúng ta có thể đặt các thuộc tính khác nhau của Bộ hẹn giờ bằng cách nhấp vào điều khiển Bộ hẹn giờ.

Thuộc tính điều khiển hẹn giờ

Có các thuộc tính sau của điều khiển VB.NET Hẹn giờ.

Sự kiện điều khiển hẹn giờ

Phương pháp điều khiển hẹn giờ

Hãy tạo một chương trình đơn giản để hiểu cách sử dụng Kiểm soát hẹn giờ trong VB.NET Windows Forms.

SOURCE CODE TimerProgram.vb

Public Class TimerProgram  
    Private Sub TimerProgram_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
        Me.Text = "javatpooint.com" 'Set the title for a Windows Form  
        Label1.Text = "WELCOME TO JAVATPOINT.COM"  
        TextBox1.Text = 1  
        Timer1.Enabled = True  
        Button1.Text = "Start"  
        Button1.BackColor = Color.Green  
        Button1.ForeColor = Color.White  
        Button2.Text = "Stop"  
        Button2.BackColor = Color.Red  
        Button2.ForeColor = Color.White  
        Timer1.Start()  
        Timer1.Interval = 600 'set the time interval  
    End Sub  
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick  
        If Label1.ForeColor = Color.Red Then  
            Label1.ForeColor = Color.Blue  
        ElseIf Label1.ForeColor = Color.Blue Then  
            Label1.ForeColor = Color.Red  
        End If  
        TextBox1.Text = TextBox1.Text + 1 'Incremenet the TextBox1 by 1  
    End Sub  
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click  
        Timer1.Stop() ' Stop the timer  
    End Sub  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Timer1.Start() 'Start the timer  
    End Sub  
End Class  

Demo hình ảnh đầu ra (output).

Khi chương trình thực thi, nó bắt đầu nhấp nháy câu lệnh HUNG.PRO.VN và đếm số đến 1.
Chúc mọi người thành công. 

 Theo : Javatpoint.Com