Novità

Aiuto x script rilevazione previsioni uguali ripetute

irepi

Junior Member
Buonasera.
E' possibile inserire nello script una funzione che in um determinato arco di tempo,20, 50 e oltre estrazioni, che riepiloghi alla fine dello script, quante, in che data e uali estrazioni uguali ci sono state?
Sub Main()
ColoreTesto 2
Scrivi "controllato alla estrazione ..............n. 9985",1
ColoreTesto 2
Scrivi " data creazione domenica 29 marzo 2015, 01:58:19 estraz. n. 8984"
Dim ruote(12)
Dim numeri1(5),numeri2(5),numeri3(5),numeri4(5),numeri5(5),numeri6(5)
Dim numeri7(5),numeri8(5),numeri9(5),numeri10(5),numeri11(5),numeri12(5)
Dim numeri13(5),numeri14(5),numeri15(5),numeri16(5),numeri17(5),numeri18(5)
Dim numeri19(5),numeri20(5),numeri21(5),numeri22(5),numeri23(5),numeri24(5)
Dim numeri25(5),numeri26(5),numeri27(5),numeri28(5),numeri29(5),numeri30(5)
Dim numeri31(5),numeri32(5),numeri33(5),numeri34(5),numeri35(5)
Dim numeri36(5),numeri37(5),numeri38(5),numeri39(5),numeri40(5)
Dim numeri41(5),numeri42(5),numeri43(5),numeri44(5),numeri45(5)
Dim posta(5)
'posta(1) = 1
posta(2) = 1
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(11) = 11
ruote(12) = 12
ini = EstrazioneFin - 27''''''''''''''''''''''''''''
fin = EstrazioneFin
co = 0
For n = ini To fin
'If IndiceMensile(n) = 2 Then
co = co + 1
ColoreTesto 1
casi = casi + 1
Scrivi String(25,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(n) & " " & SiglaRuota(1) & " " & StringaEstratti(n,1) & " BA "
Scrivi String(25,"*"),1
ColoreTesto 0
Scrivi "Bari su ba "
numeri1(1) = Fuori90(Estratto(n,1,1) + 1)
numeri1(2) = Fuori90(Estratto(n,1,2) + 1)
numeri1(3) = Fuori90(Estratto(n,1,5) + 1)
numeri1(4) = Fuori90(Estratto(n,1,1) + 3)
numeri1(5) = Fuori90(Estratto(n,1,5) + 4)
OrdinaMatrice numeri1,False
Call Scrivi("Giocata n° 01: " & StringaNumeri(numeri1," ",True),1)
'EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,9
numeri2(1) = Fuori90(Estratto(n,1,5) + 7)
numeri2(2) = Fuori90(Estratto(n,1,1) + 11)
numeri2(3) = Fuori90(Estratto(n,1,2) + 11)
numeri2(4) = Fuori90(Estratto(n,1,5) + 11)
numeri2(5) = Fuori90(Estratto(n,1,3) + 12)
OrdinaMatrice numeri2,False
Call Scrivi("Giocata n° 02: " & StringaNumeri(numeri2," ",True),1)
'EliminaRipetuti numeri2
ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(n,1,5) + 18)
numeri3(2) = Fuori90(Estratto(n,1,4) + 20)
numeri3(3) = Fuori90(Estratto(n,1,4) + 23)
numeri3(4) = Fuori90(Estratto(n,1,4) + 26)
numeri3(5) = Fuori90(Estratto(n,1,4) + 37)
OrdinaMatrice numeri3,False
Call Scrivi("Giocata n° 03: " & StringaNumeri(numeri3," ",True),1)
'EliminaRipetuti numeri3
ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(n,1,2) + 60)
numeri4(2) = Fuori90(Estratto(n,1,1) + 62)
numeri4(3) = Fuori90(Estratto(n,1,3) + 71)
numeri4(4) = Fuori90(Estratto(n,1,2) + 74)
numeri4(5) = Fuori90(Estratto(n,1,1) + 76)
OrdinaMatrice numeri4,False
Call Scrivi("Giocata n° 04: " & StringaNumeri(numeri4," ",True),1)
'EliminaRipetuti numeri4
ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(n,1,2) + 77)
numeri5(2) = Fuori90(Estratto(n,1,5) + 77)
numeri5(3) = Fuori90(Estratto(n,1,1) + 79)
numeri5(4) = Fuori90(Estratto(n,1,2) + 80)
numeri5(5) = Fuori90(Estratto(n,1,1) + 82)
OrdinaMatrice numeri5,False
Call Scrivi("Giocata n° 05: " & StringaNumeri(numeri5," ",True),1)
'EliminaRipetuti numeri5
ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(n,1,3) + 85)
numeri6(2) = Fuori90(Estratto(n,1,3) + 88)
OrdinaMatrice numeri6,False
Call Scrivi("Giocata n° 06: " & StringaNumeri(numeri6," ",True),1)
'EliminaRipetuti numeri6
ImpostaGiocata 6,numeri6,ruote,posta,9
Scrivi"Cagliari su ba "
numeri7(1) = Fuori90(Estratto(n,2,3) + 8)
numeri7(2) = Fuori90(Estratto(n,2,3) + 9)
numeri7(3) = Fuori90(Estratto(n,2,2) + 12)
numeri7(4) = Fuori90(Estratto(n,2,3) + 12)
numeri7(5) = Fuori90(Estratto(n,2,2) + 13)
OrdinaMatrice numeri7,False
Call Scrivi("Giocata n° 07: " & StringaNumeri(numeri7," ",True),1)
'EliminaRipetuti numeri7
ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(n,2,3) + 14)
numeri8(2) = Fuori90(Estratto(n,2,2) + 16)
numeri8(3) = Fuori90(Estratto(n,2,1) + 17)
numeri8(4) = Fuori90(Estratto(n,2,2) + 18)
numeri8(5) = Fuori90(Estratto(n,2,2) + 19)
OrdinaMatrice numeri8,False
Call Scrivi("Giocata n° 08: " & StringaNumeri(numeri8," ",True),1)
'EliminaRipetuti numeri8
ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(n,2,3) + 23)
numeri9(2) = Fuori90(Estratto(n,2,1) + 23)
numeri9(3) = Fuori90(Estratto(n,2,3) + 25)
numeri9(4) = Fuori90(Estratto(n,2,3) + 26)
numeri9(5) = Fuori90(Estratto(n,2,2) + 27)
OrdinaMatrice numeri9,False
Call Scrivi("Giocata n° 09: " & StringaNumeri(numeri9," ",True),1)
'EliminaRipetuti numeri9
ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(n,2,2) + 29)
numeri10(2) = Fuori90(Estratto(n,2,2) + 30)
numeri10(3) = Fuori90(Estratto(n,2,4) + 35)
numeri10(4) = Fuori90(Estratto(n,2,1) + 36)
numeri10(5) = Fuori90(Estratto(n,2,1) + 37)
OrdinaMatrice numeri10,False
Call Scrivi("Giocata n° 10: " & StringaNumeri(numeri10," ",True),1)
'EliminaRipetuti numeri10
ImpostaGiocata 10,numeri10,ruote,posta,9
numeri11(1) = Fuori90(Estratto(n,2,1) + 40)
numeri11(2) = Fuori90(Estratto(n,2,4) + 41)
numeri11(3) = Fuori90(Estratto(n,2,1) + 42)
numeri11(4) = Fuori90(Estratto(n,2,1) + 43)
numeri11(5) = Fuori90(Estratto(n,2,1) + 51)
OrdinaMatrice numeri11,False
Call Scrivi("Giocata n° 11: " & StringaNumeri(numeri11," ",True),1)
'EliminaRipetuti numeri11
ImpostaGiocata 11,numeri11,ruote,posta,9
numeri12(1) = Fuori90(Estratto(n,2,1) + 53)
numeri12(2) = Fuori90(Estratto(n,2,5) + 53)
numeri12(3) = Fuori90(Estratto(n,2,4) + 54)
numeri12(4) = Fuori90(Estratto(n,2,1) + 54)
numeri12(5) = Fuori90(Estratto(n,2,4) + 55)
OrdinaMatrice numeri12,False
Call Scrivi("Giocata n° 12: " & StringaNumeri(numeri12," ",True),1)
'EliminaRipetuti numeri12
ImpostaGiocata 12,numeri12,ruote,posta,9
numeri13(1) = Fuori90(Estratto(n,2,4) + 58)
numeri13(2) = Fuori90(Estratto(n,2,5) + 59)
numeri13(3) = Fuori90(Estratto(n,2,4) + 60)
numeri13(4) = Fuori90(Estratto(n,2,4) + 61)
numeri13(5) = Fuori90(Estratto(n,2,4) + 69)
OrdinaMatrice numeri13,False
Call Scrivi("Giocata n° 13: " & StringaNumeri(numeri13," ",True),1)
'EliminaRipetuti numeri13
ImpostaGiocata 13,numeri13,ruote,posta,9
numeri14(1) = Fuori90(Estratto(n,2,4) + 71)
numeri14(2) = Fuori90(Estratto(n,2,4) + 72)
numeri14(3) = Fuori90(Estratto(n,2,5) + 72)
numeri14(4) = Fuori90(Estratto(n,2,5) + 73)
numeri14(5) = Fuori90(Estratto(n,2,3) + 15)
OrdinaMatrice numeri14,False
Call Scrivi("Giocata n° 14: " & StringaNumeri(numeri14," ",True),1)
'EliminaRipetuti numeri14
ImpostaGiocata 14,numeri14,ruote,posta,9
numeri15(1) = Fuori90(Estratto(n,2,5) + 76)
numeri15(2) = Fuori90(Estratto(n,2,5) + 78)
numeri15(3) = Fuori90(Estratto(n,2,3) + 79)
numeri15(4) = Fuori90(Estratto(n,2,5) + 79)
numeri15(5) = Fuori90(Estratto(n,2,2) + 83)
OrdinaMatrice numeri15,False
'EliminaRipetuti numeri15
Call Scrivi("Giocata n° 15: " & StringaNumeri(numeri15," ",True),1)
ImpostaGiocata 15,numeri15,ruote,posta,9
numeri16(1) = Fuori90(Estratto(n,2,3) + 85)
numeri16(2) = Fuori90(Estratto(n,2,5) + 87)
numeri16(3) = Fuori90(Estratto(n,2,2) + 89)
numeri16(4) = Fuori90(Estratto(n,2,5) + 89)
OrdinaMatrice numeri16,False
Call Scrivi("Giocata n° 16: " & StringaNumeri(numeri16," ",True),1)
'EliminaRipetuti numeri16
ImpostaGiocata 16,numeri16,ruote,posta,9
Scrivi "Firenze su ba"
numeri17(1) = Fuori90(Estratto(n,3,5) + 2)
numeri17(2) = Fuori90(Estratto(n,3,2) + 3)
numeri17(3) = Fuori90(Estratto(n,3,5) + 13)
numeri17(4) = Fuori90(Estratto(n,3,2) + 14)
numeri17(5) = Fuori90(Estratto(n,3,1) + 25)
OrdinaMatrice numeri17,False
Call Scrivi("Giocata n° 17: " & StringaNumeri(numeri17," ",True),1)
'EliminaRipetuti numeri17
ImpostaGiocata 17,numeri17,ruote,posta,9
numeri18(1) = Fuori90(Estratto(n,3,1) + 39)
numeri18(2) = Fuori90(Estratto(n,3,1) + 42)
numeri18(3) = Fuori90(Estratto(n,3,3) + 43)
numeri18(4) = Fuori90(Estratto(n,3,1) + 45)
numeri18(5) = Fuori90(Estratto(n,3,4) + 53)
OrdinaMatrice numeri18,False
Call Scrivi("Giocata n° 18: " & StringaNumeri(numeri18," ",True),1)
'EliminaRipetuti numeri18
ImpostaGiocata 18,numeri18,ruote,posta,9
numeri19(1) = Fuori90(Estratto(n,3,1) + 56)
numeri19(2) = Fuori90(Estratto(n,3,3) + 57)
numeri19(3) = Fuori90(Estratto(n,3,3) + 60)
numeri19(4) = Fuori90(Estratto(n,3,3) + 63)
numeri19(5) = Fuori90(Estratto(n,3,4) + 67)
OrdinaMatrice numeri19,False
Call Scrivi("Giocata n° 19: " & StringaNumeri(numeri19," ",True),1)
'EliminaRipetuti numeri19
ImpostaGiocata 19,numeri19,ruote,posta,9
numeri20(1) = Fuori90(Estratto(n,3,4) + 70)
numeri20(2) = Fuori90(Estratto(n,3,5) + 72)
numeri20(3) = Fuori90(Estratto(n,3,2) + 73)
numeri20(4) = Fuori90(Estratto(n,3,4) + 73)
numeri20(5) = Fuori90(Estratto(n,3,3) + 74)
OrdinaMatrice numeri20,False
Call Scrivi("Giocata n° 20: " & StringaNumeri(numeri20," ",True),1)
'EliminaRipetuti numeri20
ImpostaGiocata 20,numeri20,ruote,posta,9
numeri21(1) = Fuori90(Estratto(n,3,4) + 84)
numeri21(2) = Fuori90(Estratto(n,3,5) + 86)
numeri21(3) = Fuori90(Estratto(n,3,5) + 87)
numeri21(4) = Fuori90(Estratto(n,3,5) + 89)
OrdinaMatrice numeri21,False
'EliminaRipetuti numeri2
Call Scrivi("Giocata n° 21: " & StringaNumeri(numeri21," ",True),1)
ImpostaGiocata 21,numeri21,ruote,posta,9
Scrivi"Genova su ba"
numeri22(1) = Fuori90(Estratto(n,4,4) + 2)
numeri22(2) = Fuori90(Estratto(n,4,2) + 5)
numeri22(3) = Fuori90(Estratto(n,4,2) + 8)
numeri22(4) = Fuori90(Estratto(n,4,4) + 13)
numeri22(5) = Fuori90(Estratto(n,4,5) + 13)
OrdinaMatrice numeri22,False
'EliminaRipetuti numeri22
Call Scrivi("Giocata n° 22: " & StringaNumeri(numeri22," ",True),1)
ImpostaGiocata 22,numeri22,ruote,posta,9
numeri23(1) = Fuori90(Estratto(n,4,2) + 15)
numeri23(2) = Fuori90(Estratto(n,4,2) + 22)
numeri23(3) = Fuori90(Estratto(n,4,5) + 27)
numeri23(4) = Fuori90(Estratto(n,4,5) + 30)
numeri23(5) = Fuori90(Estratto(n,4,5) + 33)
OrdinaMatrice numeri23,False
'EliminaRipetuti numeri23
Call Scrivi("Giocata n° 23: " & StringaNumeri(numeri23," ",True),1)
ImpostaGiocata 23,numeri23,ruote,posta,9
numeri24(1) = Fuori90(Estratto(n,4,5) + 44)
numeri24(2) = Fuori90(Estratto(n,4,1) + 45)
numeri24(3) = Fuori90(Estratto(n,4,3) + 49)
numeri24(4) = Fuori90(Estratto(n,4,1) + 59)
numeri24(5) = Fuori90(Estratto(n,4,1) + 62)
OrdinaMatrice numeri24,False
'EliminaRipetuti numer24
Call Scrivi("Giocata n° 24: " & StringaNumeri(numeri24," ",True),1)
ImpostaGiocata 24,numeri24,ruote,posta,9
numeri25(1) = Fuori90(Estratto(n,4,3) + 63)
numeri25(2) = Fuori90(Estratto(n,4,1) + 65)
numeri25(3) = Fuori90(Estratto(n,4,3) + 66)
numeri25(4) = Fuori90(Estratto(n,4,3) + 69)
numeri25(5) = Fuori90(Estratto(n,4,4) + 72)
OrdinaMatrice numeri25,False
'EliminaRipetuti numeri25
Call Scrivi("Giocata n° 25: " & StringaNumeri(numeri25," ",True),1)
ImpostaGiocata 25,numeri25,ruote,posta,9
numeri26(1) = Fuori90(Estratto(n,4,1) + 76)
numeri26(2) = Fuori90(Estratto(n,4,3) + 80)
numeri26(3) = Fuori90(Estratto(n,4,4) + 86)
numeri26(4) = Fuori90(Estratto(n,4,4) + 89)
OrdinaMatrice numeri26,False
'EliminaRipetuti numeri26
Call Scrivi("Giocata n° 26: " & StringaNumeri(numeri26," ",True),1)
ImpostaGiocata 26,numeri26,ruote,posta,9
Scrivi"Milano su ba"
numeri27(1) = Fuori90(Estratto(n,5,1) + 3)
numeri27(2) = Fuori90(Estratto(n,5,2) + 7)
numeri27(3) = Fuori90(Estratto(n,5,2) + 10)
numeri27(4) = Fuori90(Estratto(n,5,2) + 13)
numeri27(5) = Fuori90(Estratto(n,5,1) + 17)
OrdinaMatrice numeri27,False
'EliminaRipetuti numeri27
Call Scrivi("Giocata n° 27: " & StringaNumeri(numeri27," ",True),1)
ImpostaGiocata 27,numeri27,ruote,posta,9
numeri28(1) = Fuori90(Estratto(n,5,1) + 20)
numeri28(2) = Fuori90(Estratto(n,5,1) + 23)
numeri28(3) = Fuori90(Estratto(n,5,2) + 24)
numeri28(4) = Fuori90(Estratto(n,5,3) + 32)
numeri28(5) = Fuori90(Estratto(n,5,1) + 34)
OrdinaMatrice numeri28,False
'EliminaRipetuti numeri28
Call Scrivi("Giocata n° 28: " & StringaNumeri(numeri28," ",True),1)
ImpostaGiocata 28,numeri28,ruote,posta,9
numeri29(1) = Fuori90(Estratto(n,5,5) + 39)
numeri29(2) = Fuori90(Estratto(n,5,3) + 46)
numeri29(3) = Fuori90(Estratto(n,5,3) + 49)
numeri29(4) = Fuori90(Estratto(n,5,3) + 52)
numeri29(5) = Fuori90(Estratto(n,5,5) + 53)
OrdinaMatrice numeri29,False
'EliminaRipetuti numeri29
Call Scrivi("Giocata n° 29: " & StringaNumeri(numeri29," ",True),1)
ImpostaGiocata 29,numeri29,ruote,posta,9
numeri30(1) = Fuori90(Estratto(n,5,5) + 56)
numeri30(2) = Fuori90(Estratto(n,5,5) + 59)
numeri30(3) = Fuori90(Estratto(n,5,4) + 61)
numeri30(4) = Fuori90(Estratto(n,5,3) + 63)
numeri30(5) = Fuori90(Estratto(n,5,4) + 64)
OrdinaMatrice numeri30,False
'EliminaRipetuti numeri30
Call Scrivi("Giocata n° 30: " & StringaNumeri(numeri30," ",True),1)
ImpostaGiocata 30,numeri30,ruote,posta,9
numeri31(1) = Fuori90(Estratto(n,5,4) + 67)
numeri31(2) = Fuori90(Estratto(n,5,5) + 70)
numeri31(3) = Fuori90(Estratto(n,5,4) + 78)
numeri31(4) = Fuori90(Estratto(n,5,2) + 83)
OrdinaMatrice numeri31,False
'EliminaRipetuti numeri31
Call Scrivi("Giocata n° 31: " & StringaNumeri(numeri31," ",True),1)
ImpostaGiocata 31,numeri31,ruote,posta,9
Scrivi "Napoli su ba"
numeri32(1) = Fuori90(Estratto(n,6,5) + 1)
numeri32(2) = Fuori90(Estratto(n,6,2) + 2)
numeri32(3) = Fuori90(Estratto(n,6,3) + 6)
numeri32(4) = Fuori90(Estratto(n,6,3) + 9)
numeri32(5) = Fuori90(Estratto(n,6,5) + 11)
OrdinaMatrice numeri32,False
'EliminaRipetuti numeri32
Call Scrivi("Giocata n° 32: " & StringaNumeri(numeri32," ",True),1)
ImpostaGiocata 32,numeri32,ruote,posta,9
numeri33(1) = Fuori90(Estratto(n,6,3) + 12)
numeri33(2) = Fuori90(Estratto(n,6,2) + 16)
numeri33(3) = Fuori90(Estratto(n,6,2) + 19)
numeri33(4) = Fuori90(Estratto(n,6,2) + 22)
numeri33(5) = Fuori90(Estratto(n,6,3) + 23)
OrdinaMatrice numeri33,False
'EliminaRipetuti numeri33
Call Scrivi("Giocata n° 33: " & StringaNumeri(numeri33," ",True),1)
ImpostaGiocata 33,numeri33,ruote,posta,9
numeri34(1) = Fuori90(Estratto(n,6,1) + 27)
numeri34(2) = Fuori90(Estratto(n,6,2) + 33)
numeri34(3) = Fuori90(Estratto(n,6,1) + 41)
numeri34(4) = Fuori90(Estratto(n,6,1) + 44)
numeri34(5) = Fuori90(Estratto(n,6,1) + 47)
OrdinaMatrice numeri34,False
'EliminaRipetuti numeri34
Call Scrivi("Giocata n° 34: " & StringaNumeri(numeri34," ",True),1)
ImpostaGiocata 34,numeri34,ruote,posta,9
numeri35(1) = Fuori90(Estratto(n,6,1) + 58)
numeri35(2) = Fuori90(Estratto(n,6,5) + 60)
numeri35(3) = Fuori90(Estratto(n,6,4) + 70)
numeri35(4) = Fuori90(Estratto(n,6,5) + 74)
numeri35(5) = Fuori90(Estratto(n,6,5) + 77)
OrdinaMatrice numeri35,False
'EliminaRipetuti numeri35
Call Scrivi("Giocata n° 35: " & StringaNumeri(numeri35," ",True),1)
ImpostaGiocata 35,numeri35,ruote,posta,9
numeri36(1) = Fuori90(Estratto(n,6,5) + 80)
numeri36(2) = Fuori90(Estratto(n,6,3) + 82)
numeri36(3) = Fuori90(Estratto(n,6,4) + 84)
numeri36(4) = Fuori90(Estratto(n,6,4) + 87)
numeri36(5) = Fuori90(Estratto(n,6,4) + 90)
OrdinaMatrice numeri36,False
'EliminaRipetuti numeri36
Call Scrivi("Giocata n° 36: " & StringaNumeri(numeri36," ",True),1)
ImpostaGiocata 36,numeri36,ruote,posta,9
Scrivi " Palermo su ba"
numeri37(1) = Fuori90(Estratto(n,7,5) + 26)
numeri37(2) = Fuori90(Estratto(n,7,4) + 29)
numeri37(3) = Fuori90(Estratto(n,7,5) + 40)
numeri37(4) = Fuori90(Estratto(n,7,2) + 41)
numeri37(5) = Fuori90(Estratto(n,7,4) + 43)
OrdinaMatrice numeri37,False
'EliminaRipetuti numeri37
Call Scrivi("Giocata n° 37: " & StringaNumeri(numeri37," ",True),1)
ImpostaGiocata 37,numeri37,ruote,posta,9
numeri38(1) = Fuori90(Estratto(n,7,5) + 43)
numeri38(2) = Fuori90(Estratto(n,7,4) + 46)
numeri38(3) = Fuori90(Estratto(n,7,5) + 46)
numeri38(4) = Fuori90(Estratto(n,7,4) + 49)
numeri38(5) = Fuori90(Estratto(n,7,1) + 51)
OrdinaMatrice numeri38,False
'EliminaRipetuti numeri38
Call Scrivi("Giocata n° 38: " & StringaNumeri(numeri38," ",True),1)
ImpostaGiocata 38,numeri38,ruote,posta,9
numeri39(1) = Fuori90(Estratto(n,7,3) + 54)
numeri39(2) = Fuori90(Estratto(n,7,2) + 55)
numeri39(3) = Fuori90(Estratto(n,7,5) + 57)
numeri39(4) = Fuori90(Estratto(n,7,2) + 58)
numeri39(5) = Fuori90(Estratto(n,7,4) + 60)
OrdinaMatrice numeri39,False
'EliminaRipetuti numeri39
Call Scrivi("Giocata n° 39: " & StringaNumeri(numeri39," ",True),1)
ImpostaGiocata 39,numeri39,ruote,posta,9
numeri40(1) = Fuori90(Estratto(n,7,2) + 61)
numeri40(2) = Fuori90(Estratto(n,7,1) + 65)
numeri40(3) = Fuori90(Estratto(n,7,1) + 68)
numeri40(4) = Fuori90(Estratto(n,7,3) + 68)
numeri40(5) = Fuori90(Estratto(n,7,1) + 71)
OrdinaMatrice numeri40,False
'EliminaRipetuti numeri40
Call Scrivi("Giocata n° 40: " & StringaNumeri(numeri40," ",True),1)
ImpostaGiocata 40,numeri40,ruote,posta,9
numeri41(1) = Fuori90(Estratto(n,7,3) + 71)
numeri41(2) = Fuori90(Estratto(n,7,2) + 72)
numeri41(3) = Fuori90(Estratto(n,7,3) + 74)
numeri41(4) = Fuori90(Estratto(n,7,1) + 82)
numeri41(5) = Fuori90(Estratto(n,7,3) + 85)
OrdinaMatrice numeri41,False
'EliminaRipetuti numeri41
Call Scrivi("Giocata n° 41: " & StringaNumeri(numeri41," ",True),1)
ImpostaGiocata 41,numeri41,ruote,posta,9
Scrivi "Roma su ba"
numeri42(1) = Fuori90(Estratto(n,8,5) + 14)
numeri42(2) = Fuori90(Estratto(n,8,5) + 17)
numeri42(3) = Fuori90(Estratto(n,8,5) + 28)
numeri42(4) = Fuori90(Estratto(n,8,3) + 47)
numeri42(5) = Fuori90(Estratto(n,8,2) + 48)
OrdinaMatrice numeri42,False
'EliminaRipetuti numeri42
Call Scrivi("Giocata n° 42: " & StringaNumeri(numeri42," ",True),1)
ImpostaGiocata 42,numeri42,ruote,posta,9
numeri43(1) = Fuori90(Estratto(n,8,1) + 52)
numeri43(2) = Fuori90(Estratto(n,8,4) + 52)
numeri43(3) = Fuori90(Estratto(n,8,1) + 55)
numeri43(4) = Fuori90(Estratto(n,8,1) + 58)
numeri43(5) = Fuori90(Estratto(n,8,3) + 61)
OrdinaMatrice numeri43,False
'EliminaRipetuti numeri43
Call Scrivi("Giocata n° 43: " & StringaNumeri(numeri43," ",True),1)
ImpostaGiocata 43,numeri43,ruote,posta,9
numeri44(1) = Fuori90(Estratto(n,8,2) + 62)
numeri44(2) = Fuori90(Estratto(n,8,3) + 64)
numeri44(3) = Fuori90(Estratto(n,8,2) + 65)
numeri44(4) = Fuori90(Estratto(n,8,4) + 66)
numeri44(5) = Fuori90(Estratto(n,8,3) + 67)
OrdinaMatrice numeri44,False
'EliminaRipetuti numeri44
Call Scrivi("Giocata n° 44: " & StringaNumeri(numeri44," ",True),1)
ImpostaGiocata 44,numeri44,ruote,posta,9
numeri45(1) = Fuori90(Estratto(n,8,2) + 68)
numeri45(2) = Fuori90(Estratto(n,8,1) + 69)
numeri45(3) = Fuori90(Estratto(n,8,4) + 69)
numeri45(4) = Fuori90(Estratto(n,8,4) + 72)
numeri45(5) = Fuori90(Estratto(n,8,3) + 78)
OrdinaMatrice numeri45,False
'EliminaRipetuti numeri45
Call Scrivi("Giocata n° 45: " & StringaNumeri(numeri45," ",True),1)
ImpostaGiocata 45,numeri45,ruote,posta,9
ColoreTesto 1
Scrivi "°°°°°°°°°°°°°°°°°°°°°"
Gioca n,1
'End If
Next
ScriviResoconto,0
End Sub

Grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19
Indietro
Alto