Nghe có vẽ giống QUAY SỐ TRÚNG THƯỞNG quá nhỉ?Trong file em có 1 cột 5 dòng có dữ liệu là A, B ,C ,D ,E. Em tạo 1 Form gồm có 1 Listbox và 1 nút bấm. Em muốn khi bấm vào nút lần 1, thì listbox sẽ thêm A vào listbox, khi bấm nút lần 2 thì Listbox sẽ thêm B vào, tương tự cho các lần còn lại 3,4,5 là C,D,E.
Àh, còn em muốn 1 Label hiện ngẫu nhiên từ 0 -> 9 mỗi khi em bấm nút thì làm thế nào ???
Các Thầy giúp em với nha.
Điều đầu tiên bạn cần làm là đưa file có dữ liệu lên đây, kể cả Form mà bạn đã thiết kế sẳn, mất công làm xong không đúng ý phải sửa đi sửa lại mệt lắm
Câu 1: Thay UserForm1.Repaint thành DoEvents thử xem@ HideBoy : Mục đích là em muốn hiểu rõ code từng phần nên mới hỏi từng phần mà
@ NDU96081631 : Thầy ơi, em làm Form rồi, Thầy tải về xem giúp em với :
1 : Nếu như em đổi giá trị i (For i = 1 To 100) thì sau khi số Hàng Đơn Vị chạy xong, Form sẽ bị đơ 1 hồi sau thì nó cho ra kết quả luôn, không thấy Hàng Chục và Hàng Trăm chạy.
2 : Ví dụ em chỉ có 350 Mã số trúng thưởng, em muốn Hàng Trăm chỉ chạy trong phạm vi 0->3, Hàng Chục chỉ chạy trong phạm vi 0->5 thôi thì làm sao ?
3 : cái này thì không biết được không, ví dụ như lần chạy 1, số 215 đã ra rồi, thì các lần sau, nếu ra số 215 nữa thì nó tự động quay số khác (nếu như làm cho nó không ra 215 luôn thì càng tốt).
Thầy hướng dẫn giúp em với nha, cám ơn Thầy nhiều
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Dic as ObjectPrivate Sub UserForm_Initialize()
Set Dic = CreateObject("Scripting.Dictionary")
End SubPrivate Sub CommandButton1_Click()
Dim i As Long, Dg As Long, Tmp As String
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Dg = Me.ListBox1.ListCount
If Sheet1.Cells(Dg + 2, 1) = "" Then Exit Sub
Do
For i = 1 To 100
Randomize
Label3.Caption = Int(10 * Rnd)
Sleep i
DoEvents
Next
For i = 1 To 100
Randomize
Label2.Caption = Int(10 * Rnd)
Sleep i
DoEvents
Next
For i = 1 To 50
Randomize
Label1.Caption = Int(4 * Rnd)
Sleep i
DoEvents
Next
Tmp = Label1.Caption & Label2.Caption & Label3.Caption
Loop Until Not Dic.Exists(Tmp)
Dic.Add Tmp, ""
If Sheet1.Cells(Dg + 2, 1) <> "" Then
Me.ListBox1.AddItem Sheet1.Cells(Dg + 2, 1)
ListBox1.List(ListBox1.ListCount - 1, 1) = Label1.Caption
ListBox1.List(ListBox1.ListCount - 1, 2) = Label2.Caption
ListBox1.List(ListBox1.ListCount - 1, 3) = Label3.Caption
End If
End Sub
Tách 3 số chạy riêng mới mệt chứ gộp chung có khó khăn gì chứ ---> Gộp 3 vòng lập lại thành 1
)
.
Em cám ơn Thầy NDU nhiều, cái DoEvents đúng là khắc phục tình trạng bị đơ.
_ Còn 1 vấn đề nữa, nhưng ăn gian 1 chút cho vui, ví dụ em muốn 3 số đó quay cho đã nhưng kết quả cuối cùng hiện ra là theo ý em, ví dụ em muốn lần 1 ra số 213, lần 2 ra số 132 v.v... Thì mình phải viết code sao vậy thầy
Cái này bạn... tự nghiên cứu đi cho nó lên tay nghề
Để hiện giá trị ngẫu nhiên thì khó chứ hiện đúng ý mình thì quá dễ ---> Vòng lập quét thế nào mặc kệ, ta cứ xuất kết quả định trước. Ví dụ:
Do
For i = 1 To 100
Randomize
Label3.Caption = Int(10 * Rnd)
Sleep i
DoEvents
Next
If Dic.Count = 2 And Not Dic.Exists("213") Then Label3.Caption = 3
For i = 1 To 100
Randomize
Label2.Caption = Int(10 * Rnd)
Sleep i
DoEvents
Next
If Dic.Count = 2 And Not Dic.Exists("213") Then Label2.Caption = 1
For i = 1 To 50
Randomize
Label1.Caption = Int(4 * Rnd)
Sleep i
DoEvents
Next
If Dic.Count = 2 And Not Dic.Exists("213") Then Label1.Caption = 2
Tmp = Label1.Caption & Label2.Caption & Label3.Caption
Loop Until Not Dic.Exists(Tmp)
, không biết bao giờ mới viết được 1 File hoàn chỉnh đây....
