Viết phần mềm đánh lô bằng Visual Basic

Liên hệ QC

longg75

Thành viên mới
Tham gia
16/8/06
Bài viết
2
Được thích
28
HI BROS.,
Help me built a soft with visual basic
I have a following results :
A B C D E ...AA AB
1 9 25 35 25 5 1
2 78 5 4 52 3
3 58 52 95 25 64 1
4 4 88 4 65 32​
...
Đây là bảng kết quả xổ số tương ứng với mỗi dòng là kết quả 1 ngày (A1:AA1), gồm 27 cột là kết quả lô tương ứng. Các Bro hảy giúp tôi viết 1 đoạn Code VBA với thuật toán như sau:
Nếu hôm nay có lô 25 thì nhặt ra kết quả của ngày hôm sau -> = IF(countif(A1:AA1;25)>=1;1;"").
Vậy ta sẽ có kết quả của dòng 1 và 3
- Nếu AB1 = 1 thì nhặt ra kết quả của ngày kế tiếp tức là dòng 2 và 4
Dùm hàm Mode để có phương án của ngày hôm sau:
=Mode (A2:AA2) =4
Bảng kết quả cụ thể ở đây:
 
Chỉnh sửa lần cuối bởi điều hành viên:
Mình đã viết được chương trình tìm số thường có:

/(/(ình đã viết được chương (chw) trình xài trong chơi số đề! /(/ếu thích thì dơ tay để mình gới cho!
Chw trình như sau: CSDL gồm bộ sưu tập các KQ số số từ trước;
Nếu muốn biết sẽ là ~ số gì sau khi đợt sổ vừa qua có số 45 thì nó sẽ liệt kê tất tần tật các số sẽ có khả năng cao nhất trong kì tới;
(ần không, để loại trừ mấy ổ đề?! Hãy gởi email cho mình, nếu cần!

-----------------
Ghi chú từ BQT Giải Pháp Excel: Những file đính kèm trong topic này chỉ mang ý nghĩa tham khảo về mặt thuật toán và phương pháp. chúng tôi không chịu trách nhiệm về sự đúng đắn của nó.
 

File đính kèm

  • So_De.zip
    31.3 KB · Đọc: 11,859
Chỉnh sửa lần cuối bởi điều hành viên:
Để chơi đề chỉ cần 2 số đuôi!

Để biết mật khẩu trong ngày khi mở file kết hợp ấn fim SHIFT
Tại ô A1 của Sh(i) có 3 kí số/ kí tự
Đóng file lại sau đó mở ra = 3 kí số/ kí tự nêu trên để Auto_Open cài mới RecordCount(*)

S1 là Sheets chính gồm 2 nút: Nhập mới
Nút này để bạn chép dữ liệu vô CSDL tại 'SSo' (tất nhiên ~ gì hiện có trong 'SSo' là ~ record giả định!)
Nút Thống kê gồm 2 fương án để kiểm 1 số đuôi nào đó (như mình VD là 35 nha)
/(hi nhập 35 vô hộp thoại thì sẽ thống kê toàn bộ ~ số trong dữ liệu mà lần sau của lần sổ số xuất hiện số 35 trong chính lô giải đó;
/(hi nhập 135 thì sẽ thống kê toàn bộ các số của lần sổ kế tiếp đã có trong tất cả các giải (32 giải)
Muốn sử dụng bạn phải bỏ đi CSDL làm VD & chuyển CSDL bạn thu thập được vô 'SSo'
 
Theo mình chỉ có thể đoán mò thôi :
1. Tạo 1 sheet liệt kê 5 kết quả sổ số của 1 đài ở những ngày gần nhất.
2. Tạo 1 công thức đếm xem xác xuất xuất hiện của các số là bao nhiêu ( từ 0-9).
3. Dựa vào đó mà đón mò.

Ví dụ : số 5 là 12 lần; số 1 là 10 lần; thì cơ hội ra : 15, 51 sẽ cao nhất.
 
Nhờ bạn hyen viết dùm cách tìm kqxs này

Tôi muốn có một bảng điều khiển có một nút bấm, khi bấm sẻ lượt ra như sau.
- nếu G1 = 09 thì mở một sheet mới đặt tên là 09. còn chép thì chép Row kế phía dưới những hàng có G1=09 (tức là ngày xổ 09 thì không chép mà chép số liệu xổ của ngày kế nếu ngày kế có 2 đài mà viết lấy hết 2 đài thì quá tốt ).
- Nút đó sẻ làm 100 sheet giống như trên (từ 00 đến 99) xin xem minh họa ý tưởng ở sheet 2. tức là sau khi bấm ta có 100 sheet mới từ 00-100 giống như sheet 2
- và khi có số liệu cập nhật hằng ngày. tôi lại bấm nút này nó tự động thấy số liệu mới ở G1 là số mấy thì nó về sheet có số đó chép thêm hàng mới vào.
Được sự quan tâm giúp đỡ của các bạn, tôi làm sơ sơ tới đây. còn công việc trên coi bộ quá cao siêu, xin bấm nút "sử dụng quyền trợ giúp".
ý tưởng lọc như vậy để tìm cái gì xin khất lại đến khi hoàn thành ta bàn sau.
- ở Sheet 2 tôi lấy con 09 để minh họa.
- Còn lại cách làm trong bảng tính của tôi theo kiểu nhà quê xin đừng cười tội nghiệp
mong các sư huynh đệ ra tay cứu giá !!!
 

File đính kèm

  • TONG HOP1.rar
    77.6 KB · Đọc: 3,779
Chưa hiểu nhau mấy!

Tôi muốn có một bảng điều khiển có một nút bấm, khi bấm sẻ lượt ra như sau.
- nếu G1 = 09 thì mở một sheet mới đặt tên là 09. còn chép thì chép Row kế phía dưới những hàng có G1=09 (tức là ngày xổ 09 thì không chép mà chép số liệu xổ của ngày kế nếu ngày kế có 2 đài mà viết lấy hết 2 đài thì quá tốt ).
Mong các sư huynh đệ ra tay cứu giá !!!

nếu G1 = 09 thì mở một sheet mới đặt tên là 09 Trang tính này chưa có dữ liệu gì sất, phải không? & Sau mỗi lần bấm 'O9' thì trang tính '09' cũ sẽ bị xóa đi, thay vô đó là trang trắng?

còn chép thì chép Row kế phía dưới những hàng có G1=09 (tức là ngày xổ 09 thì không chép mà chép số liệu xổ của ngày kế
+ Kế đó là kế tiếp phải không? (10, 11 , 12. . . 16)
+ Ngày 09 của bất kỳ tháng nào hay sao?
+ Chép từ trang tính nào đến trang tính '09' này?
. . .

Làm rõ những điều này, có khi chúng ta chỉ cần thêm 1 chứ không phải 100 trang như bạn cần đâu.
 
OK bạn chưa hiểu tôi trình bày lại CT dự đoán KQXS

File DudoanKQ đính kèm là workook có 6 sheet như sau :

- Sheet KQXS : Là nơi cập nhật số liệu mỗi ngày
- Sheet CSDL :
+ từ cột A đến T là Paste link để tiện bề quậy phá không ảnh hưởng tới Sheet KQXS
+ từ cột W đến BG là số liệu đã lọc thành số 2Con và 3Con cũng để cho cái "Nút"
- 4 Sheet 09,41,72,73 : là 4 trong 100 sheet mà Nút bấm đó tạo ra.
Cái nút đó nó hỏi khi bấm vô em phải làm gì ?
- tạo ra 100 sheet từ 00 đến 99 xong rồi để đó
- qua cột W bên sheet CSDL chép số liệu về các sheet mới tạo ra. với cách chép như sau :
VD trong bài này là ngày 1/1/2007 xổ con 09, 41 thì qua ngày 2/1/07 có 2 đài xổ con gì thì chép chép hết 2 dãy số đó vào cho mỗi sheet 09 và sheet 41.

02/01/07 BT 72 51 36 76 72 86 26 76 10 12 63 40 89 99 37 79 44 59
0 2/01/07 VT 73 90 65 03 91 63 35 56 70 35 75 81 91 98 08 03 38 28
tương tự ngày kế tiếp xổ con 72, 73 thì lấy kq ngày 3/1/07
03/01/07 DN 88 56 91 89 12 47 59 82 07 61 65 67 88 21 57 38 35 86
03/01/07 CT 15 26 74 45 30 80 33 45 19 82 84 93 92 39 52 43 59 08
chép vào cho mỗi sheet 72,73
Tới đây thì bạn và tôi hiểu nhau rồi phải không.
Theo bạn thì chỉ tạo ra 1 sheet như file So de.xls hôm trước bạn share
riêng tôi lại muốn bày ra đủ để khỏi phải mất công gõ con số mỗi lần tham khảo. không những thế mà bày ra đủ có liên quan đến sự xuyên suốt của toàn bộ ý tửong của file đang nghiên cứu xây dựng từng bước. có thể vẽ đồ thị ???
với bạn tôi biết chắc chắn là chuyện nhỏ.
với tôi không có "quyền trợ giup này" thì....... "chết còn sướng hơn, đó là câu trả lời cuối cùng" "em xin dừng cuộc chơi " và nghe nhạc rồng vàng nổi lên
é e è e .................. é è eeeeeeeeeeeeeeeeeeeeeeee
 

File đính kèm

  • du doan KQ.rar
    55.7 KB · Đọc: 4,135
Lần chỉnh sửa cuối:
(1) cái "Nút" Là CSDL![A1]; Nhưng bạn phải nhấp Double, chịu khó vậy nha!

Nút bấm đó tạo ra các sheet chưa có.

Vấn đề chép số liệu chưa viết; Chờ ý kiến bạn để tiếp


Bạn xem trong file đính kèm & cho í kiến của bạn!
 

File đính kèm

  • GPE.rar
    56.6 KB · Đọc: 2,486
Nhờ dịch giúp Bước 1 sang font unicode, xin cảm ơn!

Böôùc 1 khi ngöôøi söû duïng laø vaøo Sheet naøy
Baám vaøo cell Ngaøy (A1) ñeå laáy keát quaû



Ñaõ coù macro downloadtofrom ñeå laáy keát quaû. Baïn maëc nhieân khoâng baän taâm thieát keá macro vaø toâi duøng noù ñeå caäp nhaät keát quaû
Khi download xong thì qua böôùc 2 (ôû beân CSDL)




=- Sheet KQXS vaø Sheet CSDL nhö vaïy ñaõ hoaøn chænh. theâm nuùt baám cuûa baïn vaøo laø toát laém
- Coù phaûi baïn caên daën caùi Nuùt laøm coâng vieäc laø : taïo ra Sheet môùi. khoâng truøng laëp vôùi sheet soá ñaõ coù phaûi khoâng ? neáu ñuùng vaïy thì oån roài. Nhöng caùch saép xeáp thöù töï thì khoâng coù.
- vaäy thì baïn daën noù laø cöù taïo ra cho mình 100 sheet môùi tinh (00-99). Trong ruoät moãi sheet coù töïa ñeà coät nhö sau:
Ngay Dai G1 G2 G3 G4 G5 G6 G7 G8 G9 G10 G11 G12 G13 G14 G15 G16 G17 G18
- con soá to to treân ñaàu caùc coät (vd : 09 hay 41) khoûi laøm vì Teân Sheet cuûa noù laø ñuû bieát roài



- Taât nhieân tröôùc khi baám" Nuùt" phaûi xoùa heát caùc sheet minh hoïa 09,41,72,73



- Vaäy laø baïn cho xin theâm moät "Nuùt" nöõa ñeå cheùp soá lieäu vaøo caùc sheet coù teân soá
=- caùch cheùp thì kyø tröôc baïn bieát roài.



Bước 2


-Bên này là phần paste link. Tôi cũng chịu khó mỗi ngày download xong là paste link kết quả bổ sung từ KQXS sang.

-xử lý bên này có chép, hay xóa để nghiên cứu hay theo dõi độ nhạy các con số dễ chịu hơn không đụng chạm đến
kho KQXS.

- Tiếp đến vào Macro để chạy macro cho nó lọc 2con, 3con qua các cột kế bên.

Bước 3 : là chờ Nút bấm. chưa có "xe" chở về đây. hihihihihi
"xe ": Share
Bước 4 : là bàn về kết quả nó tạo ra. có thể làm việc vơi bác tư thầu đề chút chút rồi đấy

Qua quá trình "tám" với mấy hay tay lật sổ KQXS nghiên cứu mỗi chiều, tôi hiểu ra đây là một chiêu mà họ rất muốn luyện thành. nhưng họ mù vi tính nhiều hơn tui.
 
Böôùc 1 khi ngöôøi söû duïng laø vaøo Sheet naøy
Baám vaøo cell Ngaøy (A1) ñeå laáy keát quaû



Ñaõ coù macro downloadtofrom ñeå laáy keát quaû. Baïn maëc nhieân khoâng baän taâm thieát keá macro vaø toâi duøng noù ñeå caäp nhaät keát quaû
Khi download xong thì qua böôùc 2 (ôû beân CSDL)




=- Sheet KQXS vaø Sheet CSDL nhö vaïy ñaõ hoaøn chænh. theâm nuùt baám cuûa baïn vaøo laø toát laém
- Coù phaûi baïn caên daën caùi Nuùt laøm coâng vieäc laø : taïo ra Sheet môùi. khoâng truøng laëp vôùi sheet soá ñaõ coù phaûi khoâng ? neáu ñuùng vaïy thì oån roài. Nhöng caùch saép xeáp thöù töï thì khoâng coù.
- vaäy thì baïn daën noù laø cöù taïo ra cho mình 100 sheet môùi tinh (00-99). Trong ruoät moãi sheet coù töïa ñeà coät nhö sau:
Ngay Dai G1 G2 G3 G4 G5 G6 G7 G8 G9 G10 G11 G12 G13 G14 G15 G16 G17 G18
- con soá to to treân ñaàu caùc coät (vd : 09 hay 41) khoûi laøm vì Teân Sheet cuûa noù laø ñuû bieát roài



- Taât nhieân tröôùc khi baám" Nuùt" phaûi xoùa heát caùc sheet minh hoïa 09,41,72,73



- Vaäy laø baïn cho xin theâm moät "Nuùt" nöõa ñeå cheùp soá lieäu vaøo caùc sheet coù teân soá
=- caùch cheùp thì kyø tröôc baïn bieát roài.
Nó đây:
Bước 1 khi người sử dụng là vào Sheet này
Bấm vào cell Ngày (A1) để lấy kết quả

Đã có macro downloadtofrom để lấy kết quả. Bạn mặc nhiên không bận tâm thiết kế macro và tôi dùng nó để cập nhật kết quả
Khi download xong thì qua bước 2 (ở bên CSDL)

=- Sheet KQXS và Sheet CSDL như vạy đã hoàn chỉnh. thêm nút bấm của bạn vào là tốt lắm
- Có phải bạn căn dặn cái Nút làm công việc là : tạo ra Sheet mới. không trùng lặp với sheet số đã có phải không ? nếu đúng vạy thì ổn rồi. Nhưng cách sắp xếp thứ tự thì không có.
- vậy thì bạn dặn nó là cứ tạo ra cho mình 100 sheet mới tinh (00-99). Trong ruột mỗi sheet có tựa đề cột như sau:
Ngay Dai G1 G2 G3 G4 G5 G6 G7 G8 G9 G10 G11 G12 G13 G14 G15 G16 G17 G18
- con số to to trên đầu các cột (vd : 09 hay 41) khỏi làm vì Tên Sheet của nó là đủ biết rồi

- Tât nhiên trước khi bấm" Nút" phải xóa hết các sheet minh họa 09,41,72,73

- Vậy là bạn cho xin thêm một "Nút" nữa để chép số liệu vào các sheet có tên số
=- cách chép thì kỳ trươc bạn biết rồi.
 
Chào các bạn, thực sự mình kém khoản excel này quá, bác nào ra tay giúp đỡ với, em hay chơi LÔ đề mà, nói chung cũng vui thôi chú ko máu me, em hay chơi dàn đề, ngày loại các quân số, trước có phần mềm kích vào ông vuông mà anh bạn cho, ví dụ như đầu 1 đuôi 2 tổng 3 chẳng hạn. kích cái là ra dàn luôn, hay là trong 100 quân đề em loại đi đầu 13, đuôi 56, Tổng 29 chẳng hạn. kích cái là ra dàn ngay. có bác nào làm hộ em cái này ko? file em để ở dưới rồi, thanks nhiều lắm ạ.

P/s: Tổng tức là 2 con đề cộng lại ra tổng, ví dụ ngày 4-4 đề ra con 93 tức là tổng (9+3=12) gọi là tổng 2, có tổng từ 0 đến 9 ạ.
 
cac bac co file lọc ra 2 số đặc biệt vho mình xin với cám ơn các bác trước nha
 
bác Hyen ơi cho mình xin file bạn vừa nêu ở trên đi.cám ơn bác
 
Giả định đài miền bắc có 107 vị trí( Bắt đầu tính vị trí từ số đầu tiên giải bặc biệt đến số cuối cùng hết giải 7. Trang kết qủa: http://ketqua.net/xo-so/so-ket-qua.php
Ví dụ ngày 24/9/2014, vị trí 31 ( số 1 ) và vị trí 49 ( số 8 ) tạo thành cặp 81 - 18. Đến ngày 25/9/2014 sổ ra con 81.
Vậy em muốn thiết lập 1 file excel soi vị trí cầu ra liên tục trong các ngày như trên, thì hướng đi của e sẻ như thế nào. có bác nào giúp em tham khảo với. Em cảm ơn nhiều
 
Bạn nào có thể viết được phần mêm bằng excel liệt kế được tất cả các vị trị trên bảng kết quả xố số miền bắc. Tiêu chí là; tại vị trí này số ngày chưa về là.,,,, Cho mình báo giá phần mềm luôn. VD Tại gải1 87655 vị trí g12 là con 87 và ngày 2 gải 1 88766 vị trí g1.12 là con 88, nếu kết quả hôm đó có lô 88 thi là tại vị trí đó là 2 ngày về.
 
Ko ngờ bây giờ còn dùng cả Excel để chơi lô đề.
 
Web KT
Back
Top Bottom