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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto