Giúp làm ứng dụng Quay số Vietlot (1 người xem)

[minhtuan55]

Nhà mình có quán café. Sắp tới nhà mình tổ chức chơi trò giống như Vietlot vào cuối thử 7 ( trong 1 lồng cầu gồm 45 quả bóng được đánh số từ 01 đến 45 )
Do mua cái lồng cầu này gần 40 triệu mắc quá. Nên mình muốn làm 1 ứng dụng cho tiện
Mình muốn nhấn vào nút quay thì 5 cặp số ở trên chạy ngẩu nhiên ( số chạy chạy tốc độ 1/5 giây ) sau 30 giây sẽ dừng. Kính mong các cao thủ giúp mình. Em xin chân thành cảm ơn.
Em có gửi File mọi người giúp mình nhé

 

[ChanhTQ@]

Bạn thử với cái này ra răng!

Bạn có thể điều chỉnh tốc độ hiện tùy theo tính năng máy của bạn; nếu biết chút ít VBA

 

[be_09]

Bạn thử với cái này ra răng!

Bạn có thể điều chỉnh tốc độ hiện tùy theo tính năng máy của bạn; nếu biết chút ít VBA

Sao anh không chơi luôn trên UserForm luôn cho nó bắt mắt.

Từ nay trở đi chỉ giao lưu thôi, thời gian còn lại là ngâm cứu.

Vì bỏ công sức nhiều (có lúc 1 buổi hoặc 1 ngày) để giúp đỡ mà anh em nó không 1 lời cám ơn, ai cũng làm vậy thì đến 1 ngày nào đó có người hỏi mà sẽ không có người trả lời.

 

[VetMini]

Bốc số bằng máy tính rồi ai bảo đảm số trung thực, không bị nhà cái bóp méo?
Bạn là người tạo phần mềm, bạn biết. Tôi là ngừoi chơi, tôi dám tin chăng?

Chú: các phần mềm chuyên về sổ số có kiểm định của cơ quan chức năng hẳn hoi.

 

[ChanhTQ@]

Sao anh không chơi luôn trên UserForm luôn cho nó bắt mắt.

Còn tùy thuộc vô khổ chủ;
Nhưng mình xin nói trước: Cả đời mình rất ít dùng cà fê!

(Thêm Code mới bổ sung, không lại mang tiếng SPAM:

Option Explicit
Sub QuaySo()
 Dim J As Long, Tmp As Integer, W As Double, Tmr As Double
 Dim StrC As String
    
 For J = 1 To 45
    StrC = StrC & Right("0" & CStr(J), 2)
 Next J
 
 Randomize:                         [d6:l6].Select
 For J = 1 To 9999
    Tmp = 9 + (Rnd() * 9) \ 1
    If Tmp Mod 2 = 0 Then Tmp = Tmp + 1
    If Tmp > 14 Then
        StrC = Mid(StrC, Tmp, 10) & Left(StrC, Tmp - 1) & Mid(StrC, Tmp + 10, Len(StrC))
    Else
        StrC = Mid(StrC, Tmp + 10, Len(StrC)) & Left(StrC, Tmp - 1) & Mid(StrC, Tmp, 10)
    End If
    If Len(StrC) <> 90 Then Exit For
 Next J
 [d9:n9].ClearContents:             Tmr = Timer()
 [D13:N13].ClearContents
 For J = 1 To 5
    Tmp = (9 + 9 * Rnd()) \ 1
    If Tmp Mod 2 = 0 Then Tmp = Tmp + 1
    For W = 1 To Tmp * 10 ^ 7
    Next W
    With Cells(9, 2 * J + 2)
        .Select:                    .Value = Mid(StrC, Tmp, 2)
        .Offset(, 2).Value = "<=|"
        .Offset(4).Value = Timer - Tmr: Tmr = Timer()
        .Interior.ColorIndex = 34 + Tmp Mod 9
    End With
    StrC = Left(StrC, Tmp - 1) & Mid(StrC, Tmp + 2, Len(StrC))
 Next J
End Sub

)

 

[minhtuan55]

Anh nói cảm ơn là sao. em đã cảm ơn khi Bình luận mà. còn nút cảm ơn nằm cho nào thì em không thấy, chứ thấy là em Click vào rồi. hiểu sai rồi a

Sao anh không chơi luôn trên UserForm luôn cho nó bắt mắt.

Từ nay trở đi chỉ giao lưu thôi, thời gian còn lại là ngâm cứu.

Vì bỏ công sức nhiều (có lúc 1 buổi hoặc 1 ngày) để giúp đỡ mà anh em nó không 1 lời cám ơn, ai cũng làm vậy thì đến 1 ngày nào đó có người hỏi mà sẽ không có người trả lời.

 

[minhtuan55]

Em cảm ơn anh nhiều quá. Anh ơi thật sự muốn cảm ơn anh. mà nút cảm ơn nó nằm chổ nào em không thấy

Còn tùy thuộc vô khổ chủ;
Nhưng mình xin nói trước: Cả đời mình rất ít dùng cà fê!

(Thêm Code mới bổ sung, không lại mang tiếng SPAM:

Option Explicit
Sub QuaySo()
 Dim J As Long, Tmp As Integer, W As Double, Tmr As Double
 Dim StrC As String
    
 For J = 1 To 45
    StrC = StrC & Right("0" & CStr(J), 2)
 Next J
 
 Randomize:                         [d6:l6].Select
 For J = 1 To 9999
    Tmp = 9 + (Rnd() * 9) \ 1
    If Tmp Mod 2 = 0 Then Tmp = Tmp + 1
    If Tmp > 14 Then
        StrC = Mid(StrC, Tmp, 10) & Left(StrC, Tmp - 1) & Mid(StrC, Tmp + 10, Len(StrC))
    Else
        StrC = Mid(StrC, Tmp + 10, Len(StrC)) & Left(StrC, Tmp - 1) & Mid(StrC, Tmp, 10)
    End If
    If Len(StrC) <> 90 Then Exit For
 Next J
 [d9:n9].ClearContents:             Tmr = Timer()
 [D13:N13].ClearContents
 For J = 1 To 5
    Tmp = (9 + 9 * Rnd()) \ 1
    If Tmp Mod 2 = 0 Then Tmp = Tmp + 1
    For W = 1 To Tmp * 10 ^ 7
    Next W
    With Cells(9, 2 * J + 2)
        .Select:                    .Value = Mid(StrC, Tmp, 2)
        .Offset(, 2).Value = "<=|"
        .Offset(4).Value = Timer - Tmr: Tmr = Timer()
        .Interior.ColorIndex = 34 + Tmp Mod 9
    End With
    StrC = Left(StrC, Tmp - 1) & Mid(StrC, Tmp + 2, Len(StrC))
 Next J
End Sub

)

 

[be_09]

Anh nói cảm ơn là sao. em đã cảm ơn khi Bình luận mà. còn nút cảm ơn nằm cho nào thì em không thấy, chứ thấy là em Click vào rồi. hiểu sai rồi a

Anh nói là nói chung cho các thành viên khác hiểu để nói 1 lời cám ơn (cho công sức người giúp bỏ ra).

Chứ không phải nói về em đâu,

 

[ChanhTQ@]

Em cảm ơn anh nhiều quá. Mà nút cảm ơn nó nằm chổ nào em không thấy

Nút đó nằm ở tâm khảm của bạn í chứ đâu!

Nhưng bạn xài nó trong việc rút thăm trúng thưởng, nha; Đừng cờ bạc gian lận, buồn lắm!

(BS: Nhớ định dạng ô [N9] giống với các ô số liệu trước nó)

 

[be_09]

Còn tùy thuộc vô khổ chủ;
Nhưng mình xin nói trước: Cả đời mình rất ít dùng cà fê![/php] )

Nếu muốn dùng rượu, bia thì hẹn anh 1 ngày gần đây, anh đi xe Buýt ghé lên Biên Hòa, thành viên Biên Hòa sẳn sàng tiếp anh cả ngày sau đó cho xe chở anh về đến nhà an toàn luôn.

 

[minhtuan55]

Em cảm ơn anh nhiều quá. Anh ơi thật sự muốn cảm ơn anh. mà nút cảm ơn nó nằm chổ nào em không thấy

Bạn thử với cái này ra răng!

Bạn có thể điều chỉnh tốc độ hiện tùy theo tính năng máy của bạn; nếu biết chút ít VBA

 

[minhtuan55]

vậy em cảm ơn anh bằng cách nào. Thật sự nhiều khi đọc bình luận của các anh em Buồn quá. Em đã bình luận cảm ơn mấy anh rồi. tại em không biết thì em mới lên đây hỏi. các anh muốn em cảm ơn làm sao

Anh nói là nói chung cho các thành viên khác hiểu để nói 1 lời cám ơn (cho công sức người giúp bỏ ra).

Chứ không phải nói về em đâu,

 

[doveandrose]

quay số bằng phần mềm ai dám tin mà chơi bạn ơi . Làm như kiểu các chú bác ở trên chỉ để nhìn cho vui chứ ai dám chơi .

 

[ChanhTQ@]

quay số bằng phần mềm ai dám tin mà chơi bạn ơi . Làm như kiểu các chú bác ở trên chỉ để nhìn cho vui chứ ai dám chơi .

Có thể công tâm hơn bằng các bước sau:

B1: Người chơi tùy chọn trước 5 số là thứ tự của 45 ô
B2: Máy sẽ trộn chuỗi 45 kí số này cho đến lúc nào người chơi bấm dừng.
B3: Cắt & rãi chuỗi đã trộn vô 45 ô định sẵn
B4: Xem kết quả, nếu trùng thì thắng cuộc

 

[huuthang_bd]

Chơi cho vui thì dùng phần mềm cũng không vấn đề gì. Tuy nhiên, nếu là quy mô quán cà phê mà chơi theo kiểu Mega 6/45 thì 10 năm chưa chắc có người trúng . Tỷ lệ trúng của một bộ số là 1/[Tổ hợp chập 6 của 45] = 1/8,145,060

 

[befaint]

Có thể công tâm hơn bằng các bước sau:

B1: Người chơi tùy chọn trước 5 số là thứ tự của 45 ô
B2: Máy sẽ trộn chuỗi 45 kí số này cho đến lúc nào người chơi bấm dừng.
B3: Cắt & rãi chuỗi đã trộn vô 45 ô định sẵn
B4: Xem kết quả, nếu trùng thì thắng cuộc

Em có ý kiến:
Làm sao họ (người chơi) tin tưởng vào cái máy tính đó? Ai mà lại đi tin trò chơi trên phần mềm máy tính. Có chơi xong thì cũng "phán": Phần mềm nó lập trình sẵn rồi...

 

[Kiều Mạnh]

Thấy trên tivi có mấy ông trúng mấy chục tỷ ham quá ...xem BTV nói tỷ lệ trúng chắc cuối đời gặp quá...

Nhớ lại các đây 3 năm nó đi khảo sát vị trị đặt máy chơi... nó có ký ghi nhớ cửa hàng mình đặt máy ...mà nay có rồi hông thấy mô cả ....
vẫn đang hóng ngày nào đó nó quay lại của hàng đặt máy ta chơi tối ngày xem có trúng hông ta

 

[VetMini]

Chơi cho vui thì dùng phần mềm cũng không vấn đề gì. Tuy nhiên, nếu là quy mô quán cà phê mà chơi theo kiểu Mega 6/45 thì 10 năm chưa chắc có người trúng . Tỷ lệ trúng của một bộ số là 1/[Tổ hợp chập 6 của 45] = 1/8,145,060

5 trên 45 là khoảng 1,2 triệu. Giả sử cho ngừoi ta lấy 1/4 xác suất thì cũng chung khoảng 300.000/1

Nếu ngừoi đặt vé 10.000 thì chủ quán có tiền chung 3 tỷ không?

 

[ChanhTQ@]

Trò chơi fải bao hàm cả luật chơi.
& ở đây, luật chơi tùy theo người tổ chức trò chơi qui định;

Ví dụ nhằm lôi kéo khách hàng (KH) ham cà fê thì miễn fí mua số, mà căn cứ vô 2 số cuối của CMND mà thưởng lon bia chẳng hạn.
Mà bia lon loại nào hay bia chai lại là tùy hỉ của chủ quán nữa.

Còn có dã tâm cờ bạc thì quán không bị đập fá bỡi ma cô thì cũng sẽ bị mấy anh cảnh fục bố ráp ngay tấp lự í mà!

 

[camlkdvk1]

Anh ChanhTQ@ cho em hỏi muốn thêm 1 ô quay số để giống mega 6/45 thì làm ntn, và bớt 1 ô số để giống Max 4D nữa anh.Rất mong anh giúp đỡ!