(12-07-15, 11:36 PM)tranthanhan1962 Đã viết: Vừa xử lý xong code xổ số post ngay lên để Dân và các bạn kiểm tra.







1/ Quay từ số một, từ trái qua phải (cho thêm phần hấp dẫn hơn là quay đồng loạt tất cả các số)
2/ Các số chưa quay có màu đen,số đang quay màu xanh và số đã quay xong màu đỏ.
3/ Chỉ sử dụng 1 table tbDanhsachduthuong hoặc thêm 1 table tbDanhsachduthuong cho combobox Chongiai
4/ Các table dựa trên cơ sở table của maidinhdan.
5/ Mình chỉ viết code phần quay số và xác định người trúng thưởng để loại bỏ tên những người đã trúng thưởng vào lần quay kế tiếp. Dân và các bạn muốn phát triển thì viết thêm tùy theo ý thích.

Demo

Demo tiếp theo sẽ làm là: Có 1 ngàn người, lấy ngẫu nhiên 20 người để nhận giải khuyến khích.
Có anh chị nào làm được mục này chưa ạ, có thể hướng dẫn giúp em với ạ

(09-07-15, 12:24 AM)maidinhdan Đã viết: Xin phép anh Noname cho phép em tách khỏi chủ đề Demo Xổ số kiến thiết.
[Share Code] Demo Quay số trúng thưởng theo danh sách trong table

Chức năng: Demo này chứa danh sách 1000 người trong table gồm 2 cột: Mã dự thưởng và Tên

Table thứ 2 sẽ được tạo ra khi quay nhằm lưu danh sách ai trúng thưởng giải mấy. Ở đậy không hạn chế số lượng giải thưởng. Mặc định mình điền năm giải, từ 1 đến 5. Bạn nào muốn thêm thì gõ bằng tay vào.

Hình minh họa




Cách sử dụng:
Bước 1: Chọn giải cần quay
Bước 2: Nhấn vào Bắt đầu quay thưởng ( chờ nó quay gần 1 phút, tùy vào số lượng nhiều hay ít người)
Bước 3: Cho vào danh sách trúng thưởng.

...Tiếp tục như thế đến khi nào hết giải

Ghi chú:
+ máy yếu khi chạy có thể treo máy nhe. Khuyến khích máy có cấu hình mạnh.
+ Demo không khóa code, muốn xem sửa thì đè Shift mà vào.

Code triển khai :
1. Code  tạo số ngẫu nhiên (mod_Songaunhien)

Mã PHP:

Public Function Songaunhien(Tentuythich As Variant)
  Randomize
  Songaunhien = Rnd(1)
End Function 


2. Code cho chạy danh sach 1000 người.

Mã PHP:

Private Sub cmdQuaythuong_Click()

Dim s, i As Integer
s = 0
i = 1
Do Until i > (Right(Songaunhien("maidinhdan"), 2) * 60) + ((Me.txtSonguoithamdu.Value) * 3) + (Second(Now()) * 40)
    With Recordset
        .MoveNext
        If .EOF Then .MoveFirst
    End With
    s = s + i
    i = i + 1
Loop
End Sub 


Chúc các bạn vui vẻ.


Demo tiếp theo sẽ làm là: Có 1 ngàn người, lấy ngẫu nhiên 20 người để nhận giải khuyến khích. ( mục này đã có demo chựa ạ)
có thể hướng dẫn giúp em không ạ

bác maidinhdan demo tiếp mục quay 1 lần ra 20 người nhận giải đi ạ. e đang hóng quá

Mình vào link tải thì không thấy link. Tài khoản Gmail này lâu rồi không sử dụng chắc đã bị khóa. Giờ mình đang đi công việc ở ngoài 2 hôm nữa mới về . Bạn  maidinhdan  có rãnh hỗ trợ dùm bạn  vuga3686 bạn ấy đang cần gấp. Mình thì 2 hôm nữa mới về mà chắc cũng phải viết lại vì mấy ổ cứng của mình die hết rồi

Chở bà xã đi thăm thằng cháu giáo viên có con đầu lòng nên cũng không nghĩ là hỗ trợ ngay được bạn vuga3686. Nhưng khi gặp nó nói vụ này. nó nói lúc trước con cũng xin dượng cái này xài cho tới bây giờ nhưng viết lại accdb (hồi trước mình viết mbd). Lúc đầu nó không tìm thấy file accbd, Tôi bảo post accde cũng được cho anh em chữa cháy trước. Nhưng nó không chịu nó bảo post lên là chia sẽ code, mà post accde kỳ lắm. Kiếm một lúc cũng tìm ra được lấy luôn danh sách học sinh của nó ra test thấy cũng oke. 
Nhưng mà lúc trước làm chơi nên quên vụ reset nên xử thêm quay số là ENTER, reset là ESC  vuga3686 lên tải về.
Mẫu

File của thăng cháu chưa kiểm tra kỹ thết đặt ảnh, nhờ Bác ongke0711 hỗ trợ xử lý

(18-07-23, 08:26 PM)tranthanhan1962 Đã viết: File của thăng cháu chưa kiểm tra kỹ thết đặt ảnh, nhờ Bác ongke0711 hỗ trợ xử lý

Đã sửa lại kích thước hình nền ứng dụng "Quay số may mắn" của anh tranthanhan1962.
Link file: https://www.mediafire.com/file/d5riewcxb...accdb/file