แจกฟรีโค้ดโปรแกรม VB6 การสุ่มตัวเลขจำนวนเต็มเพื่อจับฉลากรางวัล

Option Explicit

Private Sub Form_Load()
    Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

    ' การตั้งค่าคุณสมบัติแบบ Run Time
    ' ตั้งค่าระยะเวลาในการสุ่มทุกๆ 10 Millisecond
    Timer1.Interval = 10
    ' สั่งให้ Timer1 ยังไม่ทำงาน จนกว่าจะกดปุ่ม cmdStart
    Timer1.Enabled = False
    
    cmdStart.Enabled = True
    cmdStop.Enabled = False
    
End Sub

Private Sub cmdStart_Click()
    
    ' เริ่มต้นในการสุ่มตัวเลขก่อน
    Randomize
    
    ' สั่งให้ Timer1 ทำงานได้
    Timer1.Enabled = True
    
    cmdStart.Enabled = False
    cmdStop.Enabled = True
    
    ' ทำไปจนกว่าจะกดปุ่ม cmdStop เพื่อสั่งให้หยุดการสุ่มตัวเลข
    Do While Timer1.Enabled
        DoEvents
        Timer1_Timer
    Loop
    
End Sub

Private Sub cmdStop_Click()
    ' เมื่อสั่งให้ Timer1.Enabled = False ดังนั้นโปรแกรมก็จะหยุดทำงาน เพื่อให้แสดงผลตัวเลขที่สุ่มออกมาได้
    Timer1.Enabled = False
    
    cmdStart.Enabled = True
    cmdStop.Enabled = False
        
End Sub

Private Sub Timer1_Timer()
    
    ' หากกดปุ่มหยุดการสุ่ม (cmdStop) กำหนดให้ Timer1.Enabled = False
    ' ดังนั้น Timer1 จะหยุดทำงาน และแสดงผลตัวเลขที่ได้ออกมา
    
    ' ค่าที่ได้ = Int((High - Low + 1) * Rnd) + Low
    ' สูตรการสุ่มตัวเลข เมื่อ High = ค่าสูงสุด และ Low = ค่าต่ำสุด
    ' นั่นคือค่าต่ำสุด คือ 1 และ ค่าสูงสุดคือ 999
    ' คำสั่ง Right จะจัดรูปแบบการแสดงผล เช่น หากสุ่มได้ 9 ก็จะทำให้เกิดรูปแบบข้อมูล "0009"
    ' เมื่อเลือก Right โดยให้นับจากทางขวามาทางซ้าย 3 หลัก ก็จะแสดงผลเป็น 009
    lblNumber.Caption = Right("000" & Int((999 * Rnd) + 1), 3)

End Sub

Private Sub cmdExit_Click()
    Set frmRandomNumberSimple = Nothing
    End
End Sub