Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
txtNum1.Text = Int((1 * Math.Abs(Rnd())) + 1)
txtNum2.Text = Int((9 * Rnd()) + 1)
txtNum3.Text = Int((9 * Rnd()) + 1)
txtNum4.Text = Int((9 * Rnd()) + 1)
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Timer1.Start()
Dim myFont As System.Drawing.Font
myFont = New System.Drawing.Font("angsana", 30, FontStyle.Bold Or FontStyle.Italic)
txtNum1.Font = myFont
txtNum1.ForeColor = Color.Red
txtNum2.Font = myFont
txtNum2.ForeColor = Color.Pink
txtNum3.Font = myFont
txtNum3.ForeColor = Color.Blue
txtNum4.Font = myFont
txtNum4.ForeColor = Color.Orange
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
Timer1.Stop()
End Sub
ตามรูปด้านบนเมื่อเราคลิ๊กปุ่ม Start ตัวเลขก็จะ Random ไปเรื่อยๆ ถ้าคลิ๊กที่ปุ่่ม Stop ก็จะหยุดทันที
ความต้องการ ดังนี้
1. ถ้าเรากดปุ่ม Stop ให้เลข Random อย่างช้าๆ แล้วก็หยุด
2. ที่ txtNum1.Text ต้องกำหนดอย่างไรเมื่อเราต้องการให้เลข Random เฉพาะ 0 และ 1 เท่านั้น