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
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto