Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] [Share Code] Demo Quay số trúng thưởng theo danh sách trong table
#1
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

[Hình: hinhquaysotrungthuong.jpg]


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 sAs Integer
0
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 
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.


File đính kèm
.zip   Demo_Quaysotrungthuong(maidinhdan).zip (Kích cỡ: 36.25 KB / Tải về: 64)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tieu_ngao , Noname , tronghieu9792 , Che_Guevara , Minh Tiên
#2
tuyệt vời, cảm ơn maidinhdan
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#3
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
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#4
(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ã PHP:
Me.Refresh 


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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Vừa xử lý xong code xổ số post ngay lên để Dân và các bạn kiểm tra.

[Hình: KVEq0F0.png]

[Hình: Jwfcu4O.png]

[Hình: w6dsSvt.png]

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
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Noname , phamlong24 , Minh Tiên
#6
Đã 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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , tranthanhan1962 , tronghieu9792 , phamlong24
#7
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
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Che_Guevara
#8
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.
Chữ ký của phamlong24 Xin chào, mình là phamlong24, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn
#9
(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.

[Hình: KVEq0F0.png]



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
Chữ ký của phamlong24 Xin chào, mình là phamlong24, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn
#10
(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?
Chữ ký của phamlong24 Xin chào, mình là phamlong24, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Tìm số thứ tự bị thiếu trong dãy toanle 8 185 8 Giờ trước
Bài mới nhất: toanle
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 2 57 05-12-16, 04:34 PM
Bài mới nhất: Phung Duc
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 150 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,690 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Hỏi] Kết nối nhiều lần hay kết nối 1 lần trong ADO ưu điểm hơn Minh Tiên 1 122 10-11-16, 10:41 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ