• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Share Code] Demo Quay số trúng thưởng theo danh sách trong table

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] [Share Code] Demo Quay số trúng thưởng theo danh sách trong table
• [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

• [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  maidinhdan > 09-07-15, 12:24 AM

  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.

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  tronghieu9792 > 09-07-15, 10:42 PM

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

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  tronghieu9792 > 10-07-15, 12:22 PM

  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

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  maidinhdan > 10-07-15, 03:05 PM

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

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  tranthanhan1962 > 12-07-15, 11:36 PM

  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

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  maidinhdan > 13-07-15, 12:58 AM

  Đã 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!

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  tranthanhan1962 > 13-07-15, 06:44 AM

  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

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  phamlong24 > 10-03-16, 11:01 AM

  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.

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  phamlong24 > 10-03-16, 11:05 AM

  (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

• RE: [Share Code] Demo Quay số trúng thưởng theo danh sách trong table

  phamlong24 > 10-03-16, 11:43 AM

  (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?
• Bài trước Bài tiếp