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
= 2 Then
co = co + 1
ColoreTesto 1
casi = casi + 1
Scrivi String(25,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione & " " & 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
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
= 2 Thenco = co + 1
ColoreTesto 1
casi = casi + 1
Scrivi String(25,"*") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione
& " " & 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
