Lotere Tanpa Robot Hanya Disini!

Lotere Tanpa Robot Hanya Disini!

Karena undian lotre adalah acak, Anda dapat membuat serangkaian tes dan ide Anda sendiri. Anda dapat menggunakan data untuk mengidentifikasi dan kombinasi yang tidak biasa.

Apa Yang Harus Menjadi Data Anda?

Setiap baris angka harus berisi angka acak unik antara 1 dan 40; Anda dapat dengan mudah mengubah kode untuk jenis lotre yang berbeda. Juga, ide yang baik untuk mengurutkan setiap baris secara numerik, sehingga ketika Anda memindai angka secara visual, mudah untuk mengambil pola dan kombinasi seperti banyak bilangan prima atau bahkan angka Taruhan Bola Resmi.

Mari kita mulai dengan kodenya

Menghasilkan Enam Angka Acak

Kode untuk angka acak sangat mudah:

x = CLng (39 * Rnd (+ 1)
Fungsi rnd () memberikan desimal antara 0 dan 1 dan sisa kode mengubah hasilnya menjadi angka lengkap antara 1 dan 40

Masalahnya adalah kita membutuhkan 6 angka untuk satu baris dan angka tidak boleh diulang Ada beberapa cara untuk melakukan ini, tetapi saya telah memilih kamus juga.

‘buat kamus

Set dictTemp = CreateObject (“Scripting.Dictionary”)
‘temukan 6 angka unik

untuk i = 1 hingga 6

lakukan

x = CLng (39 * Rnd (+ 1)

‘Jika nomor itu sudah ditambahkan maka cari nomor lain

‘lain tambahkan nomor dan keluar dari loop

Jika tidak dictTemp.exists (x) maka

dictTemp.Addx, x

Keluar dari Do

Akhiri Jika

lingkaran

selanjutnya

‘ouput

Untuk y = 1 Ke dictTemp.Count

Debug.Print dictTemp (y);

Selanjutnya

Outputnya harus daftar 6 angka acak unik. Untuk menghasilkan lebih banyak garis angka, Anda bisa menambahkan lingkaran luar, seperti ini:

untuk y = 1 hingga 100

‘kode

selanjutnya
Masalah lainnya adalah mengurutkan angka, yang berguna untuk memeriksa apakah kode berfungsi dan untuk mengidentifikasi tren secara visual.

Menyortir Nomor Lotto Acak

Mengurutkan apa pun di VBA sedikit rumit, tetapi kabar baiknya adalah Anda tidak membutuhkannya, cukup kode untuk modul Anda sendiri. Satu-satunya hal yang perlu diperhatikan adalah

Kami menambahkan item ke sintaks ini:

kunci dictTemp.add, item

‘contohnya

dictTemp.add 23, 23
Kami hanya dapat mencari dengan nomor unik untuk kunci sehingga kami membuat kunci dan item yang sama. Untuk mengurutkan, kita perlu mengulang-ulang kamus secara berurutan dan kemudian membuat perubahan yang tidak akan berfungsi dalam format saat ini.

Saya telah memilih untuk membuat kamus sementara dan kemudian mengurutkannya. Seperti ini:

x = 1

Untuk Setiap e Di dictTemp.keys

dictLine.Tambahkan x, e

x = x + 1

Selanjutnya

Sekarang kita memiliki garis angka dalam format yang dapat kita urutkan

dictLine 1,24

dictLine 2,5

dictLine 3,14

dll.
Sekarang kami menerapkan algoritma pengurutan ke kamus.

Untuk i = 1 Ke dictLine.Count

ambil setiap tidak di dictLine

‘dan membandingkannya dengan anggota lain
Untuk j = i + 1 Ke dictLine.Count

Jika dictLine (i)> dictLine (j) Kemudian

‘Jika besar maka simpan saya saat ini dalam variabel

‘dan bertukar tempat

temp = dictLine (i)

dictLine (i) = dictLine (j)

dictLine (j) = temp

Akhiri Jika

Selanjutnya j

Selanjutnya saya

Ketika saya menjalankan kode dan meminta 5 baris dari 6 angka acak saya mendapat hasil sebagai berikut:

5 9 23 27 30 33

8 11 13 19 32 34

7 12 17 25 26 28

1 4 6 19 28 29

5 13 14 26 32 38

Leave a Reply

Your email address will not be published. Required fields are marked *