Apostador

[BeneditoCarneiro]

Apostador é um programa que sorteia palpites para as loterias Mega-sena, Lotofácil, Quina, +Milionária, Dia de Sorte, Jogo do Bicho e Loteria Federal.

Code: Select all

/*
Apostador
Copyright 2023 Benedito Carneiro
Save the script as UTF-8 with BOM
*/
#SingleInstance Force
SendMode Input
SetWorkingDir %A_ScriptDir%

bc := Chr(0169) " 2023 Benedito Carneiro"
Gui, Default
Gui, Font, s13 cWhite, Segoe UI
Gui, Color, 003366
Gui, Add, Text,, Clique nos botões brancos para ver os palpites
Gui, Add, Text,, Mega-sena:
Gui, Add, Button, h30 w330 vms gC
Gui, Add, Text,, Lotofácil:
Gui, Add, Button, h30 w330 vlf gA
Gui, Add, Text,, Quina:
Gui, Add, Button, h30 w330 vqu gE
Gui, Add, Text,, +Milionária:
Gui, Add, Button, h30 w330 vmi gD
Gui, Add, Text,, Dia de Sorte:
Gui, Add, Button, h30 w330 vds gB
Gui, Add, Text,, Jogo do Bicho:
Gui, Add, Button, h30 w330 vbi gF
Gui, Add, Text,, Loteria Federal:
Gui, Add, Button, h30 w330 vnu gG
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Add, Text,, %bc%
Gui, Show
return

; Mega-sena
C:
Random, p1, 1, 10
Random, p2, 11, 20
Random, p3, 21, 30
Random, p4, 31, 40
Random, p5, 41, 50
Random, p6, 51, 60
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5 . " " . p6
GuiControl,,ms,%palpite%
return

; Dia de Sorte
B:
Random, p1, 1, 5
Random, p2, 6, 9
Random, p3, 10, 13
Random, p4, 14, 18
Random, p5, 19, 23
Random, p6, 24, 27
Random, p7, 28, 31
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5 . " " . p6 . " " . p7 . " - Mês: "
Random, p1, 1, 12
Switch p1{
    Case 1: palpite := palpite . "janeiro"
    Case 2: palpite := palpite . "fevereiro"
    Case 3: palpite := palpite . "março"
    Case 4: palpite := palpite . "abril"
    Case 5: palpite := palpite . "maio"
    Case 6: palpite := palpite . "junho"
    Case 7: palpite := palpite . "julho"
    Case 8: palpite := palpite . "agosto"
    Case 9: palpite := palpite . "setembro"
    Case 10: palpite := palpite . "outubro"
    Case 11: palpite := palpite . "novembro"
    Case 12: palpite := palpite . "dezembro"
}
GuiControl,,ds,%palpite%
return

; Quina
E:
Random, p1, 1, 16
Random, p2, 17, 32
Random, p3, 33, 48
Random, p4, 49, 64
Random, p5, 65, 80
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5
GuiControl,,qu,%palpite%
return

; Lotofácil
A:
Random, p1, 1, 5
Random, p2, 1, 5
Random, p3, 1, 5
while (p2 = p1){
    Random, p2, 1, 5
}
while (p3 = p1 || p3 = p2){
    Random, p3, 1, 5
}
Random, p4, 6, 10
Random, p5, 6, 10
Random, p6, 6, 10
while (p5 = p4){
    Random, p5, 6, 10
}
while (p6 = p4 || p6 = p5){
    Random, p6, 6, 10
}
Random, p7, 11, 15
Random, p8, 11, 15
Random, p9, 11, 15
while (p8 = p7){
    Random, p8, 11, 15
}
while (p9 = p7 || p9 = p8){
    Random, p9, 11, 15
}
Random, p10, 16, 20
Random, p11, 16, 20
Random, p12, 16, 20
while (p11 = p10){
    Random, p11, 16, 20
}
while (p12 = p10 || p12 = p11){
    Random, p12, 16, 20
}
Random, p13, 21, 25
Random, p14, 21, 25
Random, p15, 21, 25
while (p14 = p13){
    Random, p14, 21, 25
}
while (p15 = p13 || p15 = p14){
    Random, p15, 21, 25
}
cinco := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5
Sort, cinco, "N D "
palpite := cinco . " "
cinco := p6 . " " . p7 . " " . p8 . " " . p9 . " " . p10
Sort, cinco, "N D "
palpite := palpite . cinco . " "
cinco := p11 . " " . p12 . " " . p13 . " " . p14 . " " . p15
Sort, cinco, "N D "
palpite := palpite . cinco
GuiControl,,lf,%palpite%
return

; +Milionária
D:
Random, p1, 1, 8
Random, p2, 9, 16
Random, p3, 17, 24
Random, p4, 25, 32
Random, p5, 33, 40
Random, p6, 41, 50
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5 . " " . p6
Random, p1, 1, 3
Random, p2, 4, 6
palpite := palpite . " - Trevos: " . p1 . " e " . p2
GuiControl,,mi,%palpite%
return

; Jogo do Bicho
F:
Random, p, 1, 25
Switch p{
    Case 1: palpite := "Avestruz (01, 02, 03 e 04)"
    Case 2: palpite := "Águia (05, 06, 07 e 08)"
    Case 3: palpite := "Burro (09, 10, 11 e 12)"
    Case 4: palpite := "Borboleta (13, 14, 15 e 16)"
    Case 5: palpite := "Cachorro (17, 18, 19 e 20)"
    Case 6: palpite := "Cabra (21, 22, 23 e 24)"
    Case 7: palpite := "Carneiro (25, 26, 27 e 28)"
    Case 8: palpite := "Camelo (29, 30, 31 e 32)"
    Case 9: palpite := "Cobra (33, 34, 35 e 36)"
    Case 10: palpite := "Coelho (37, 38, 39 e 40)"
    Case 11: palpite := "Cavalo (41, 42, 43 e 44)"
    Case 12: palpite := "Elefante (45, 46, 47 e 48)"
    Case 13: palpite := "Galo (49, 50, 51 e 52)"
    Case 14: palpite := "Gato (53, 54, 55 e 56)"
    Case 15: palpite := "Jacaré 57, 58, 59 e 60)"
    Case 16: palpite := "Leão (61, 62, 63 e 64)"
    Case 17: palpite := "Macaco (65, 66, 67 e 68)"
    Case 18: palpite := "Porco (69, 70, 71 e 72)"
    Case 19: palpite := "Pavão (73, 74, 75 e 76)"
    Case 20: palpite := "Peru (77, 78, 79 e 80)"
    Case 21: palpite := "Touro (81, 82, 83 e 84)"
    Case 22: palpite := "Tigre (85, 86, 87 e 88)"
    Case 23: palpite := "Urso (89, 90, 91 e 92)"
    Case 24: palpite := "Veado (93, 94, 95 e 96)"
    Case 25: palpite := "Vaca (97, 98, 99 e 00)"
}
GuiControl,,bi,%palpite%
Return

; Loteria Federal
G:
Random, p1, 0, 19999
Random, p2, 20000, 39999
Random, p3, 40000, 59999
Random, p4, 60000, 79999
Random, p5, 80000, 99999
palpite := p1 . " " . p2 . " " . p3 . " " . p4 . " " . p5
GuiControl,,nu,%palpite%
Return

GuiEscape:
GuiClose:
Sair:
Gui, Destroy
ExitApp