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)

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

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.

tuyệt vời, cảm ơn maidinhdan

Bác Maidinhdan có thể giúp khắc phục chỗ này trên form trên không: Khi danh sách dự thưởng có 5 người, và khi ta chọn lần lượt thứ tự 5 giải từ 1 đến 5 để quay lấy kết quả lần lượt. Kết quả đôi khi không cho ra đúng tên mà hiện chữ "Deltete". Bác Maidinhdan giúp loại bỏ dùm nhé. Thanks

(10-07-15, 12:22 PM)tronghieu9792 Đã viết: Bác Maidinhdan có thể giúp khắc phục chỗ này trên form trên không: Khi danh sách dự thưởng có 5 người, và khi ta chọn lần lượt thứ tự 5 giải từ 1 đến 5 để quay lấy kết quả lần lượt. Kết quả đôi khi không cho ra đúng tên mà hiện chữ "Deltete". Bác Maidinhdan giúp loại bỏ dùm nhé. Thanks

Đó là do bạn quay thưởng có vài người.

Chữ đó là do tôi dùng Query để xóa người đã trúng thưởng ra khỏi danh sách dự thưởng. Bạn vào code xóa bỏ dòng gọi Query xóa là xong.

Hoặc nếu không xóa, bạn chèn thêm một cú pháp của nút Bắt đầu quay trước hàm if dùm tôi

Cú pháp:

Mà khi chạy tiếp cũng đâu ảnh hưởng gì đâu, theo tính toán khả năng 1 người trúng 2 giải là 0,0001%

Nên đừng quan tâm đến nó làm chi.

Thân mến!

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

Đã xem xong code, em rất hài lòng. Demo của em khi quay đã hồi hộp, nhưng khi xem Demo của anh còn hồi hộp hơn.

Chính vì em biết anh thiết kế bắt mắc và tính toán rất kỹ nên em mới nhờ anh trợ giúp.
Rất đẹp, tuyệt vời. cho 1+

Để em rảnh phát triển thêm vài nút nửa là càng Ok.
Ví dụ:
+ Chèn danh sách từ Excel
+ Xem danh sách trúng thưởng...


Em cảm ơn anh nhiều!

Lúc Dân đưa đề tài này lên mình cũng cảm thấy thích thú với nó. Nhưng lúc đó đang bận nhiều việc. Mà mình nghĩ nếu ứng dụng này được sử dụng nó có thể sẽ được trình chiếu cho nhiều người xem chứ không phải chỉ dành sử dụng trong công tác chuyên môn trên PC, nên không đặt nặng về phần code là đơn giản, gọn nhẹ như các ứng dụng quản lý CSDL mà tập trung vào sự hấp dẫn, bắt mắt. Một cái nữa là viết code sao cho sau này dễ phát triển (chứ để cho khán giả nhìn hoài một thứ thì chán lắm). nên mình viết đoạn Sub Xulyquayso tách ra cho dễ nhìn. Những đoạn quản lý thời gian quay số có thể chia ra thêm nhiều case xử lý Me.TimerInterval để khi mới chuyển ô số thì quay nhanh rồi từ từ chậm lại hay mới chuyển thì chậm rồi quay nhanh dần…Thời gian hiện tên người trúng thưởng có thể tạo thêm độ trể cho trân trọng. Thay đổi tên chương trình xổ số bằng cách xử lý ảnh nền cho đẹp… Tối qua làm nhanh nên mình chưa hoàn thiện tập tin psd xử lý nền. Giờ post lên để Dân và các bạn nào thích có thể dựa vào đó dễ dàng tùy biến trong việc thay đổi nền của ứng dụng
NenXoSo.psd

Mình đã tải bản Demo này về. Thấy giao diện đẹp, quay từng vị trí nên tạo nên cũng tạo được không khí hồi hộp nhưng mình có vài điều chưa rõ muốn hỏi các bạn:
1. Bắt đầu mỗi lần quay mới đều chỉ ra số 618 tên Hạnh mà không ra người khác vậy bạn?
2. Với trường hợp bạn đang viết có 6 chữ số. Các số dự thưởng của mình 4 chữ số thì làm thế nào?
Cảm ơn các bạn.

(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.





Demo

mình có vài điều chưa rõ muốn hỏi các bạn:
1. Bắt đầu mỗi lần quay mới đều chỉ ra số 618 tên Hạnh mà không ra người khác vậy bạn?
2. Với trường hợp bạn đang viết có 6 chữ số. Các số dự thưởng của mình 4 chữ số thì làm thế nào?
Cảm ơn các bạn

(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

Cho mình hỏi làm thế nào để có thể khi gần hết thời gian quay, các số chạy từ từ cho đến khi dừng lại để tạo kịch tính cho người chơi?