dimenticavo di allegartelo
'Nome "Trino Settenario con input estrazione e num. d'oro"
'Autore Salvo50
'In questo script si inseriscono il numero dell'estrazione
'e la ruota e i numeri d'oro tramite tastiera,lo script fa
'tutti i calcoli del "Trino Settenario" se si inseriscono
'i numeri d'oro giusti, la futura cinquina è quella che dà
'lo script
Sub Main
Dim r1
Dim es
fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione",idEstrazione,fin)
r1 = InputBox("Inserisci numero ruota ( 1 - 10)",Ruota,r1)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi ""
e1 = InputBox("Inserisci primo numero d'oro)",e1)
e2 = InputBox("Inserisci secondo numero d'oro)",e2)
e3 = InputBox("Inserisci terzo numero d'oro)",e3)
e4 = InputBox("Inserisci quarto numero d'oro)",e4)
e5 = InputBox("Inserisci quinto numero d'oro)",e5)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 =(Fuori90(a1 - a2))
c1 =(Fuori90(b1 + a3))
b2 =(Fuori90(a2 - a3))
c2 =(Fuori90(b2 + a4))
b3 =(Fuori90(a3 - a4))
c3 =(Fuori90(b3 + a5))
b4 =(Fuori90(a4 - a5))
c4 =(Fuori90(b4 + a1))
b5 =(Fuori90(a5 - a1))
c5 =(Fuori90(b5 + a2))
c6 =(Fuori90(c1*13))
c7 =(Fuori90(c2*13))
c8 =(Fuori90(c7 + 1))
d1 =(Fuori90(c8 - c6))'d1 = Distanza tra c1 e c2
c9 =(Fuori90(c2*13))
c10 =(Fuori90(c3*13))
c11 =(Fuori90(c10 + 1))
d8 =(Fuori90(c11 - c9))'d8 = Distanza tra c2 e c3
c12 =(Fuori90(c3*13))
c13 =(Fuori90(c4*13))
c14 =(Fuori90(c13 + 1))
d15 =(Fuori90(c14 - c12))'d15 = Distanza tra c3 e c4
c15 =(Fuori90(c4*13))
c16 =(Fuori90(c5*13))
c17 =(Fuori90(c16 + 1))
d22 =(Fuori90(c17 - c15))'d22 = Distanza tra c4 e c5
c18 =(Fuori90(c5*13))
c19 =(Fuori90(c1*13))
c20 =(Fuori90(c19 + 1))
d29 =(Fuori90(c20 - c18))'d29 = Distanza tra c5 e c1
d2 =(Fuori90(c1 + d1))
d3 =(Fuori90(c2 + d2))
d4 =(Fuori90(d1 + d2))
d5 =(Fuori90(d3 + d2))
d6 =(Fuori90(d4 + d5))
d7 =(Fuori90(d3 + d5 + d6))'d7, 1º numero ricavato
d9 =(Fuori90(c2 + d8))
d10 =(Fuori90(c3 + d9))
d11 =(Fuori90(d8 + d9))
d12 =(Fuori90(d10 + d9))
d13 =(Fuori90(d11 + d12))
d14 =(Fuori90(d10 + d12 + d13))'d14, 2º numero ricavato
d16 =(Fuori90(c3 + d15))
d17 =(Fuori90(c4 + d16))
d18 =(Fuori90(d15 + d16))
d19 =(Fuori90(d17 + d16))
d20 =(Fuori90(d18 + d19))
d21 =(Fuori90(d17 + d19 + d20))'d21, 3º numero ricavato
d23 =(Fuori90(c4 + d22))
d24 =(Fuori90(c5 + d23))
d25 =(Fuori90(d22 + d23))
d26 =(Fuori90(d24 + d23))
d27 =(Fuori90(d25 + d26))
d28 =(Fuori90(d24 + d26 + d27))'d28, 4º numero ricavato
d30 =(Fuori90(c5 + d29))
d31 =(Fuori90(c1 + d30))
d32 =(Fuori90(d29 + d30))
d33 =(Fuori90(d31 + d30))
d34 =(Fuori90(d32 + d33))
d35 =(Fuori90(d31 + d33 + d34))'d35, 5º numero ricavato
c21 =(Fuori90(d7*13))
c22 =(Fuori90(d1 - 1))
c23 =(Fuori90(c21 - c22))
c24 =(Fuori90(c23*7))'c24, Distanza tra d7 e d1
c25 =(Fuori90(d14*13))
c26 =(Fuori90(d8 - 1))
c27 =(Fuori90(c25 - c26))
c28 =(Fuori90(c27*7))'c28, Distanza tra d14 e d8
c29 =(Fuori90(d21*13))
c30 =(Fuori90(d15 - 1))
c31 =(Fuori90(c29 - c30))
c32 =(Fuori90(c31*7))'c32, Distanza tra d21 e d15
c33 =(Fuori90(d28*13))
c34 =(Fuori90(d22 - 1))
c35 =(Fuori90(c33 - c34))
c36 =(Fuori90(c35*7))'c36, Distanza tra d28 e d22
c37 =(Fuori90(d35*13))
c38 =(Fuori90(d29 - 1))
c39 =(Fuori90(c37 - c38))
c40 =(Fuori90(c39*7))'c40, Distanza tra d35 e d29
c41 =(Fuori90(c24*13))
c42 =(Fuori90(91 - c41)) ' c42 = distanza tra c24 e 90
c43 =(Fuori90(c28*13))
c44 =(Fuori90(91 - c43)) ' c44 = distanza tra c28 e 90
c45 =(Fuori90(c32*13))
c46 =(Fuori90(91 - c45)) ' c46 = distanza tra c32 e 90
c47 =(Fuori90(c36*13))
c48 =(Fuori90(91 - c47)) ' c48 = distanza tra c36 e 90
c49 =(Fuori90(c40*13))
c50 =(Fuori90(91 - c49)) ' c50 = distanza tra c40 e 90
d36 =(Fuori90(d7 + d1))
d37 =(Fuori90(d14 + d8))
d38 =(Fuori90(d21 + d15))
d39 =(Fuori90(d28 + d22))
d40 =(Fuori90(d35 + d29))
'------------------------------------------
d41 =(Fuori90(c42 + e1))
d42 =(Fuori90(c44 + e2))
d43 =(Fuori90(c46 + e3))
d44 =(Fuori90(c48 + e4))
d45 =(Fuori90(c50 + e5))
e6 =(Fuori90(c1 + d41))
e7 =(Fuori90(c2 + e6))
e8 =(Fuori90(d41 + e6))
e9 =(Fuori90(e6 + e7))
e10 =(Fuori90(e8 + e9))
e11 =(Fuori90(e7 + e9 + e10))'e11, 1º numero ricavato
e12 =(Fuori90(c2 + d42))
e13 =(Fuori90(c3 + e12))
e14 =(Fuori90(d42 + e12))
e15 =(Fuori90(e12 + e13))
e16 =(Fuori90(e14 + e15))
e17 =(Fuori90(e13 + e15 + e16))'e17, 2º numero ricavato
e18 =(Fuori90(c3 + d43))
e19 =(Fuori90(c4 + e18))
e20 =(Fuori90(d43 + e18))
e21 =(Fuori90(e18 + e19))
e22 =(Fuori90(e20 + e21))
e23 =(Fuori90(e19 + e21 + e22))'e23, 3º numero ricavato
e24 =(Fuori90(c4 + d44))
e25 =(Fuori90(c5 + e24))
e26 =(Fuori90(d44 + e24))
e27 =(Fuori90(e24 + e25))
e28 =(Fuori90(e26 + e27))
e29 =(Fuori90(e25 + e27 + e28))'e29, 4º numero ricavato
e30 =(Fuori90(c5 + d45))
e31 =(Fuori90(c1 + e30))
e32 =(Fuori90(d45 + e30))
e33 =(Fuori90(e30 + e31))
e34 =(Fuori90(e32 + e33))
e35 =(Fuori90(e31 + e33 + e34))'e35, 5º numero ricavato
g1 =(Fuori90(a1 - e11))
g2 =(Fuori90(g1 + a3))
g3 =(Fuori90(a2 - e17))
g4 =(Fuori90(g3 + a4))
g5 =(Fuori90(a3 - e23))
g6 =(Fuori90(g5 + a5))
g7 =(Fuori90(a4 - e29))
g8 =(Fuori90(g7 + a1))
g9 =(Fuori90(a5 - e35))
g10 =(Fuori90(g9 + a2))
g11 =(90 - g2)
g12 =(90 - a1)
g13 =(Fuori90(a1 + g11))
g14 =(Fuori90(a3 + g12))
g16 =(90 - g4)
g17 =(90 - a2)
g18 =(Fuori90(a2 + g16))
g19 =(Fuori90(a4 + g17))
g21 =(90 - g6)
g22 =(90 - a3)
g23 =(Fuori90(a3 + g21))
g24 =(Fuori90(a5 + g22))
g26 =(90 - g8)
g27 =(90 - a4)
g28 =(Fuori90(a4 + g26))
g29 =(Fuori90(a1 + g27))
g31 =(90 - g10) :
g32 =(90 - a5) :
g33 =(Fuori90(a5 + g31))
g34 =(Fuori90(a2 + g32))
g15 =(Fuori90(g13 + g14)) ' g15 1º numero futuro
g20 =(Fuori90(g18 + g19)) ' g20 2º numero futuro
g25 =(Fuori90(g23 + g24)) ' g25 3º numero futuro
g30 =(Fuori90(g28 + g29)) ' g30 4º numero futuro
g35 =(Fuori90(g33 + g34)) ' g35 5º numero futuro
Scrivi " Estratti base " & Format2(a1) & " " & Format2(a2),0,0
Scrivi " " & Format2(a3) & " " & Format2(a4) & " " & Format2(a5)
Scrivi ""
Scrivi " Con gli estratti base formare 5 terne "
Scrivi ""
Scrivi " (" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),0,0
Scrivi ")(" & Format2(a2) & " " & Format2(a3) & " " & Format2(a4),0,0
Scrivi ")(" & Format2(a3) & " " & Format2(a4) & " " & Format2(a5),0,0
Scrivi ")(" & Format2(a4) & " " & Format2(a5) & " " & Format2(a1),0,0
Scrivi ")(" & Format2(a5) & " " & Format2(a1) & " " & Format2(a2) & ")"
Scrivi("")
Scrivi " 5 numeri ricavate dalle 5 terne " & Format2(c1),0,0
Scrivi " " & Format2(c2) & " " & Format2(c3) & " " & Format2(c4),0,0
Scrivi " " & Format2(c5)
Scrivi("")
Scrivi " Con i 5 numeri ricavati dalle 5 terne formare 5 coppie"
Scrivi("")
Scrivi " (" & Format2(c1) & " " & Format2(c2) & ") (" & Format2(c2),0,0
Scrivi " " & Format2(c3) & ") (" & Format2(c3) & " " & Format2(c4),0,0
Scrivi ") (" & Format2(c4) & " " & Format2(c5) & ") (" & Format2(c5),0,0
Scrivi " " & Format2(c1) &(")")
Scrivi("")
Scrivi " 5 distanze ricavate dalle 5 coppie " & Format2(d1),0,0
Scrivi " " & Format2(d2) & " " & Format2(d15) & " " & Format2(d22),0,0
Scrivi " " & Format2(d29)
Scrivi("")
Scrivi " PRIMA PIRAMIDE PER OGNI NUMERO "
Scrivi("")
Scrivi Format2(c1) & " " & Format2(c2) & " " & Format2(c2),0,0
Scrivi " " & Format2(c3) & " " & Format2(c3) & " " & Format2(c4),0,0
Scrivi " " & Format2(c4) & " " & Format2(c5),0,0
Scrivi " " & Format2(c5) & " " & Format2(c1)
Scrivi Format2(d1) & " " & Format2(d2) & " " & Format2(d3),0,0
Scrivi " " & Format2(d8) & " " & Format2(d9) & " " & Format2(d10),0,0
Scrivi " " & Format2(d15) & " " & Format2(d16) & " " & Format2(d17),0,0
Scrivi " " & Format2(d22) & " " & Format2(d23) & " " & Format2(d24),0,0
Scrivi " " & Format2(d29) & " " & Format2(d30) & " " & Format2(d31)
Scrivi " " & Format2(d4) & " " & Format2(d5) & " " & Format2(d11),0,0
Scrivi " " & Format2(d12) & " " & Format2(d18) & " " & Format2(d19),0,0
Scrivi " " & Format2(d25) & " " & Format2(d26),0,0
Scrivi " " & Format2(d32) & " " & Format2(d33)
Scrivi " " & Format2(d6) & " " & Format2(d13),0,0
Scrivi " " & Format2(d20) & " " & Format2(d27),0,0
Scrivi " " & Format2(d34)
Scrivi " " & Format2(d7) & " " & Format2(d1),0,0
Scrivi " " & Format2(d14) & " " & Format2(d8),0,0
Scrivi " " & Format2(d21) & " " & Format2(d15),0,0
Scrivi " " & Format2(d28) & " " & Format2(d22),0,0
Scrivi " " & Format2(d35) & " " & Format2(d29)
Scrivi("----------------------------------------------------------------")
Scrivi " " & Format2(c24) & " " & Format2(c28),0,0
Scrivi " " & Format2(c32) & " " & Format2(c36),0,0
Scrivi " " & Format2(c40)
Scrivi " " & Format2(c42) & " " & Format2(c44),0,0
Scrivi " " & Format2(c46) & " " & Format2(c48),0,0
Scrivi " " & Format2(c50)
Scrivi " " & Format2(d36) & " " & Format2(d37),0,0
Scrivi " " & Format2(d38) & " " & Format2(d39),0,0
Scrivi " " & Format2(d40)
Scrivi " " & Format2(e1) & " " & Format2(e2),0,0
Scrivi " " & Format2(e3) & " " & Format2(e4),0,0
Scrivi " " & Format2(e5) & " <-- Numeri d'oro "
Scrivi " " & Format2(d41) & " " & Format2(d42),0,0
Scrivi " " & Format2(d43) & " " & Format2(d44),0,0
Scrivi " " & Format2(d45)
Scrivi("----------------------------------------------------------------")
Scrivi " SECONDA PIRAMIDE PER OGNI NUMERO "
Scrivi("")
Scrivi Format2(c1) & " " & Format2(c2) & " " & Format2(c2),0,0
Scrivi " " & Format2(c3) & " " & Format2(c3) & " " & Format2(c4),0,0
Scrivi " " & Format2(c4) & " " & Format2(c5),0,0
Scrivi " " & Format2(c5) & " " & Format2(c1)
Scrivi Format2(d41) & " " & Format2(e6) & " " & Format2(e7),0,0
Scrivi " " & Format2(d42) & " " & Format2(e12) & " " & Format2(e13),0,0
Scrivi " " & Format2(d43) & " " & Format2(e18) & " " & Format2(e19),0,0
Scrivi " " & Format2(d44) & " " & Format2(e24) & " " & Format2(e25),0,0
Scrivi " " & Format2(d45) & " " & Format2(e30) & " " & Format2(e31)
Scrivi " " & Format2(e8) & " " & Format2(e9),0,0
Scrivi " " & Format2(e14) & " " & Format2(e15),0,0
Scrivi " " & Format2(e20) & " " & Format2(e21),0,0
Scrivi " " & Format2(e26) & " " & Format2(e27),0,0
Scrivi " " & Format2(e32) & " " & Format2(e33)
Scrivi " " & Format2(e10) & " " & Format2(e16),0,0
Scrivi " " & Format2(e22) & " " & Format2(e28),0,0
Scrivi " " & Format2(e34)
Scrivi " " & Format2(e11) & " " & Format2(e17),0,0
Scrivi " " & Format2(e23) & " " & Format2(e29),0,0
Scrivi " " & Format2(e35)
Scrivi("----------------------------------------------------------------")
Scrivi Format2(a1) & " " & Format2(e11) & " " & Format2(a3),0,0
Scrivi " " & Format2(a2) & " " & Format2(e17) & " " & Format2(a4),0,0
Scrivi " " & Format2(a3) & " " & Format2(e23) & " " & Format2(a5),0,0
Scrivi " " & Format2(a4) & " " & Format2(e29) & " " & Format2(a1),0,0
Scrivi " " & Format2(a5) & " " & Format2(e35) & " " & Format2(a2)
Scrivi " " & Format2(g2) & " " & Format2(g4),0,0
Scrivi " " & Format2(g6) & " " & Format2(g8),0,0
Scrivi " " & Format2(g10)
Scrivi Format2(a1) & " " & Format2(g2) & " " & Format2(a3),0,0
Scrivi " " & Format2(a2) & " " & Format2(g4) & " " & Format2(a4),0,0
Scrivi " " & Format2(a3) & " " & Format2(g6) & " " & Format2(a5),0,0
Scrivi " " & Format2(a4) & " " & Format2(g8) & " " & Format2(a1),0,0
Scrivi " " & Format2(a5) & " " & Format2(g10) & " " & Format2(a2)
Scrivi("----------------------------------------------------------------")
Scrivi " " & Format2(a1) & " " & Format2(a3),0,0
Scrivi " " & Format2(a2) & " " & Format2(a4),0,0
Scrivi " " & Format2(a3) & " " & Format2(a5),0,0
Scrivi " " & Format2(a4) & " " & Format2(a1),0,0
Scrivi " " & Format2(a5) & " " & Format2(a2)
Scrivi " " & Format2(g11) & " " & Format2(g12),0,0
Scrivi " " & Format2(g16) & " " & Format2(g17),0,0
Scrivi " " & Format2(g21) & " " & Format2(g22),0,0
Scrivi " " & Format2(g26) & " " & Format2(g27),0,0
Scrivi " " & Format2(g31) & " " & Format2(g32)
Scrivi " " & Format2(g13) & " " & Format2(g14),0,0
Scrivi " " & Format2(g18) & " " & Format2(g19),0,0
Scrivi " " & Format2(g23) & " " & Format2(g24),0,0
Scrivi " " & Format2(g28) & " " & Format2(g29),0,0
Scrivi " " & Format2(g33) & " " & Format2(g34)
Scrivi("")
Scrivi("La futura cinquina somma col fuori 90 delle ultime 5 coppie ")
Scrivi("")
Scrivi " " & Format2(g15) & " " & Format2(g20),0,0
Scrivi " " & Format2(g25) & " " & Format2(g30),0,0
Scrivi " " & Format2(g35)
End Sub
'Nome "Trino Settenario con input estrazione e num. d'oro"
'Autore Salvo50
'In questo script si inseriscono il numero dell'estrazione
'e la ruota e i numeri d'oro tramite tastiera,lo script fa
'tutti i calcoli del "Trino Settenario" se si inseriscono
'i numeri d'oro giusti, la futura cinquina è quella che dà
'lo script
Sub Main
Dim r1
Dim es
fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione",idEstrazione,fin)
r1 = InputBox("Inserisci numero ruota ( 1 - 10)",Ruota,r1)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi ""
e1 = InputBox("Inserisci primo numero d'oro)",e1)
e2 = InputBox("Inserisci secondo numero d'oro)",e2)
e3 = InputBox("Inserisci terzo numero d'oro)",e3)
e4 = InputBox("Inserisci quarto numero d'oro)",e4)
e5 = InputBox("Inserisci quinto numero d'oro)",e5)
a1 = Estratto(es,r1,1)
a2 = Estratto(es,r1,2)
a3 = Estratto(es,r1,3)
a4 = Estratto(es,r1,4)
a5 = Estratto(es,r1,5)
b1 =(Fuori90(a1 - a2))
c1 =(Fuori90(b1 + a3))
b2 =(Fuori90(a2 - a3))
c2 =(Fuori90(b2 + a4))
b3 =(Fuori90(a3 - a4))
c3 =(Fuori90(b3 + a5))
b4 =(Fuori90(a4 - a5))
c4 =(Fuori90(b4 + a1))
b5 =(Fuori90(a5 - a1))
c5 =(Fuori90(b5 + a2))
c6 =(Fuori90(c1*13))
c7 =(Fuori90(c2*13))
c8 =(Fuori90(c7 + 1))
d1 =(Fuori90(c8 - c6))'d1 = Distanza tra c1 e c2
c9 =(Fuori90(c2*13))
c10 =(Fuori90(c3*13))
c11 =(Fuori90(c10 + 1))
d8 =(Fuori90(c11 - c9))'d8 = Distanza tra c2 e c3
c12 =(Fuori90(c3*13))
c13 =(Fuori90(c4*13))
c14 =(Fuori90(c13 + 1))
d15 =(Fuori90(c14 - c12))'d15 = Distanza tra c3 e c4
c15 =(Fuori90(c4*13))
c16 =(Fuori90(c5*13))
c17 =(Fuori90(c16 + 1))
d22 =(Fuori90(c17 - c15))'d22 = Distanza tra c4 e c5
c18 =(Fuori90(c5*13))
c19 =(Fuori90(c1*13))
c20 =(Fuori90(c19 + 1))
d29 =(Fuori90(c20 - c18))'d29 = Distanza tra c5 e c1
d2 =(Fuori90(c1 + d1))
d3 =(Fuori90(c2 + d2))
d4 =(Fuori90(d1 + d2))
d5 =(Fuori90(d3 + d2))
d6 =(Fuori90(d4 + d5))
d7 =(Fuori90(d3 + d5 + d6))'d7, 1º numero ricavato
d9 =(Fuori90(c2 + d8))
d10 =(Fuori90(c3 + d9))
d11 =(Fuori90(d8 + d9))
d12 =(Fuori90(d10 + d9))
d13 =(Fuori90(d11 + d12))
d14 =(Fuori90(d10 + d12 + d13))'d14, 2º numero ricavato
d16 =(Fuori90(c3 + d15))
d17 =(Fuori90(c4 + d16))
d18 =(Fuori90(d15 + d16))
d19 =(Fuori90(d17 + d16))
d20 =(Fuori90(d18 + d19))
d21 =(Fuori90(d17 + d19 + d20))'d21, 3º numero ricavato
d23 =(Fuori90(c4 + d22))
d24 =(Fuori90(c5 + d23))
d25 =(Fuori90(d22 + d23))
d26 =(Fuori90(d24 + d23))
d27 =(Fuori90(d25 + d26))
d28 =(Fuori90(d24 + d26 + d27))'d28, 4º numero ricavato
d30 =(Fuori90(c5 + d29))
d31 =(Fuori90(c1 + d30))
d32 =(Fuori90(d29 + d30))
d33 =(Fuori90(d31 + d30))
d34 =(Fuori90(d32 + d33))
d35 =(Fuori90(d31 + d33 + d34))'d35, 5º numero ricavato
c21 =(Fuori90(d7*13))
c22 =(Fuori90(d1 - 1))
c23 =(Fuori90(c21 - c22))
c24 =(Fuori90(c23*7))'c24, Distanza tra d7 e d1
c25 =(Fuori90(d14*13))
c26 =(Fuori90(d8 - 1))
c27 =(Fuori90(c25 - c26))
c28 =(Fuori90(c27*7))'c28, Distanza tra d14 e d8
c29 =(Fuori90(d21*13))
c30 =(Fuori90(d15 - 1))
c31 =(Fuori90(c29 - c30))
c32 =(Fuori90(c31*7))'c32, Distanza tra d21 e d15
c33 =(Fuori90(d28*13))
c34 =(Fuori90(d22 - 1))
c35 =(Fuori90(c33 - c34))
c36 =(Fuori90(c35*7))'c36, Distanza tra d28 e d22
c37 =(Fuori90(d35*13))
c38 =(Fuori90(d29 - 1))
c39 =(Fuori90(c37 - c38))
c40 =(Fuori90(c39*7))'c40, Distanza tra d35 e d29
c41 =(Fuori90(c24*13))
c42 =(Fuori90(91 - c41)) ' c42 = distanza tra c24 e 90
c43 =(Fuori90(c28*13))
c44 =(Fuori90(91 - c43)) ' c44 = distanza tra c28 e 90
c45 =(Fuori90(c32*13))
c46 =(Fuori90(91 - c45)) ' c46 = distanza tra c32 e 90
c47 =(Fuori90(c36*13))
c48 =(Fuori90(91 - c47)) ' c48 = distanza tra c36 e 90
c49 =(Fuori90(c40*13))
c50 =(Fuori90(91 - c49)) ' c50 = distanza tra c40 e 90
d36 =(Fuori90(d7 + d1))
d37 =(Fuori90(d14 + d8))
d38 =(Fuori90(d21 + d15))
d39 =(Fuori90(d28 + d22))
d40 =(Fuori90(d35 + d29))
'------------------------------------------
d41 =(Fuori90(c42 + e1))
d42 =(Fuori90(c44 + e2))
d43 =(Fuori90(c46 + e3))
d44 =(Fuori90(c48 + e4))
d45 =(Fuori90(c50 + e5))
e6 =(Fuori90(c1 + d41))
e7 =(Fuori90(c2 + e6))
e8 =(Fuori90(d41 + e6))
e9 =(Fuori90(e6 + e7))
e10 =(Fuori90(e8 + e9))
e11 =(Fuori90(e7 + e9 + e10))'e11, 1º numero ricavato
e12 =(Fuori90(c2 + d42))
e13 =(Fuori90(c3 + e12))
e14 =(Fuori90(d42 + e12))
e15 =(Fuori90(e12 + e13))
e16 =(Fuori90(e14 + e15))
e17 =(Fuori90(e13 + e15 + e16))'e17, 2º numero ricavato
e18 =(Fuori90(c3 + d43))
e19 =(Fuori90(c4 + e18))
e20 =(Fuori90(d43 + e18))
e21 =(Fuori90(e18 + e19))
e22 =(Fuori90(e20 + e21))
e23 =(Fuori90(e19 + e21 + e22))'e23, 3º numero ricavato
e24 =(Fuori90(c4 + d44))
e25 =(Fuori90(c5 + e24))
e26 =(Fuori90(d44 + e24))
e27 =(Fuori90(e24 + e25))
e28 =(Fuori90(e26 + e27))
e29 =(Fuori90(e25 + e27 + e28))'e29, 4º numero ricavato
e30 =(Fuori90(c5 + d45))
e31 =(Fuori90(c1 + e30))
e32 =(Fuori90(d45 + e30))
e33 =(Fuori90(e30 + e31))
e34 =(Fuori90(e32 + e33))
e35 =(Fuori90(e31 + e33 + e34))'e35, 5º numero ricavato
g1 =(Fuori90(a1 - e11))
g2 =(Fuori90(g1 + a3))
g3 =(Fuori90(a2 - e17))
g4 =(Fuori90(g3 + a4))
g5 =(Fuori90(a3 - e23))
g6 =(Fuori90(g5 + a5))
g7 =(Fuori90(a4 - e29))
g8 =(Fuori90(g7 + a1))
g9 =(Fuori90(a5 - e35))
g10 =(Fuori90(g9 + a2))
g11 =(90 - g2)
g12 =(90 - a1)
g13 =(Fuori90(a1 + g11))
g14 =(Fuori90(a3 + g12))
g16 =(90 - g4)
g17 =(90 - a2)
g18 =(Fuori90(a2 + g16))
g19 =(Fuori90(a4 + g17))
g21 =(90 - g6)
g22 =(90 - a3)
g23 =(Fuori90(a3 + g21))
g24 =(Fuori90(a5 + g22))
g26 =(90 - g8)
g27 =(90 - a4)
g28 =(Fuori90(a4 + g26))
g29 =(Fuori90(a1 + g27))
g31 =(90 - g10) :
g32 =(90 - a5) :
g33 =(Fuori90(a5 + g31))
g34 =(Fuori90(a2 + g32))
g15 =(Fuori90(g13 + g14)) ' g15 1º numero futuro
g20 =(Fuori90(g18 + g19)) ' g20 2º numero futuro
g25 =(Fuori90(g23 + g24)) ' g25 3º numero futuro
g30 =(Fuori90(g28 + g29)) ' g30 4º numero futuro
g35 =(Fuori90(g33 + g34)) ' g35 5º numero futuro
Scrivi " Estratti base " & Format2(a1) & " " & Format2(a2),0,0
Scrivi " " & Format2(a3) & " " & Format2(a4) & " " & Format2(a5)
Scrivi ""
Scrivi " Con gli estratti base formare 5 terne "
Scrivi ""
Scrivi " (" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),0,0
Scrivi ")(" & Format2(a2) & " " & Format2(a3) & " " & Format2(a4),0,0
Scrivi ")(" & Format2(a3) & " " & Format2(a4) & " " & Format2(a5),0,0
Scrivi ")(" & Format2(a4) & " " & Format2(a5) & " " & Format2(a1),0,0
Scrivi ")(" & Format2(a5) & " " & Format2(a1) & " " & Format2(a2) & ")"
Scrivi("")
Scrivi " 5 numeri ricavate dalle 5 terne " & Format2(c1),0,0
Scrivi " " & Format2(c2) & " " & Format2(c3) & " " & Format2(c4),0,0
Scrivi " " & Format2(c5)
Scrivi("")
Scrivi " Con i 5 numeri ricavati dalle 5 terne formare 5 coppie"
Scrivi("")
Scrivi " (" & Format2(c1) & " " & Format2(c2) & ") (" & Format2(c2),0,0
Scrivi " " & Format2(c3) & ") (" & Format2(c3) & " " & Format2(c4),0,0
Scrivi ") (" & Format2(c4) & " " & Format2(c5) & ") (" & Format2(c5),0,0
Scrivi " " & Format2(c1) &(")")
Scrivi("")
Scrivi " 5 distanze ricavate dalle 5 coppie " & Format2(d1),0,0
Scrivi " " & Format2(d2) & " " & Format2(d15) & " " & Format2(d22),0,0
Scrivi " " & Format2(d29)
Scrivi("")
Scrivi " PRIMA PIRAMIDE PER OGNI NUMERO "
Scrivi("")
Scrivi Format2(c1) & " " & Format2(c2) & " " & Format2(c2),0,0
Scrivi " " & Format2(c3) & " " & Format2(c3) & " " & Format2(c4),0,0
Scrivi " " & Format2(c4) & " " & Format2(c5),0,0
Scrivi " " & Format2(c5) & " " & Format2(c1)
Scrivi Format2(d1) & " " & Format2(d2) & " " & Format2(d3),0,0
Scrivi " " & Format2(d8) & " " & Format2(d9) & " " & Format2(d10),0,0
Scrivi " " & Format2(d15) & " " & Format2(d16) & " " & Format2(d17),0,0
Scrivi " " & Format2(d22) & " " & Format2(d23) & " " & Format2(d24),0,0
Scrivi " " & Format2(d29) & " " & Format2(d30) & " " & Format2(d31)
Scrivi " " & Format2(d4) & " " & Format2(d5) & " " & Format2(d11),0,0
Scrivi " " & Format2(d12) & " " & Format2(d18) & " " & Format2(d19),0,0
Scrivi " " & Format2(d25) & " " & Format2(d26),0,0
Scrivi " " & Format2(d32) & " " & Format2(d33)
Scrivi " " & Format2(d6) & " " & Format2(d13),0,0
Scrivi " " & Format2(d20) & " " & Format2(d27),0,0
Scrivi " " & Format2(d34)
Scrivi " " & Format2(d7) & " " & Format2(d1),0,0
Scrivi " " & Format2(d14) & " " & Format2(d8),0,0
Scrivi " " & Format2(d21) & " " & Format2(d15),0,0
Scrivi " " & Format2(d28) & " " & Format2(d22),0,0
Scrivi " " & Format2(d35) & " " & Format2(d29)
Scrivi("----------------------------------------------------------------")
Scrivi " " & Format2(c24) & " " & Format2(c28),0,0
Scrivi " " & Format2(c32) & " " & Format2(c36),0,0
Scrivi " " & Format2(c40)
Scrivi " " & Format2(c42) & " " & Format2(c44),0,0
Scrivi " " & Format2(c46) & " " & Format2(c48),0,0
Scrivi " " & Format2(c50)
Scrivi " " & Format2(d36) & " " & Format2(d37),0,0
Scrivi " " & Format2(d38) & " " & Format2(d39),0,0
Scrivi " " & Format2(d40)
Scrivi " " & Format2(e1) & " " & Format2(e2),0,0
Scrivi " " & Format2(e3) & " " & Format2(e4),0,0
Scrivi " " & Format2(e5) & " <-- Numeri d'oro "
Scrivi " " & Format2(d41) & " " & Format2(d42),0,0
Scrivi " " & Format2(d43) & " " & Format2(d44),0,0
Scrivi " " & Format2(d45)
Scrivi("----------------------------------------------------------------")
Scrivi " SECONDA PIRAMIDE PER OGNI NUMERO "
Scrivi("")
Scrivi Format2(c1) & " " & Format2(c2) & " " & Format2(c2),0,0
Scrivi " " & Format2(c3) & " " & Format2(c3) & " " & Format2(c4),0,0
Scrivi " " & Format2(c4) & " " & Format2(c5),0,0
Scrivi " " & Format2(c5) & " " & Format2(c1)
Scrivi Format2(d41) & " " & Format2(e6) & " " & Format2(e7),0,0
Scrivi " " & Format2(d42) & " " & Format2(e12) & " " & Format2(e13),0,0
Scrivi " " & Format2(d43) & " " & Format2(e18) & " " & Format2(e19),0,0
Scrivi " " & Format2(d44) & " " & Format2(e24) & " " & Format2(e25),0,0
Scrivi " " & Format2(d45) & " " & Format2(e30) & " " & Format2(e31)
Scrivi " " & Format2(e8) & " " & Format2(e9),0,0
Scrivi " " & Format2(e14) & " " & Format2(e15),0,0
Scrivi " " & Format2(e20) & " " & Format2(e21),0,0
Scrivi " " & Format2(e26) & " " & Format2(e27),0,0
Scrivi " " & Format2(e32) & " " & Format2(e33)
Scrivi " " & Format2(e10) & " " & Format2(e16),0,0
Scrivi " " & Format2(e22) & " " & Format2(e28),0,0
Scrivi " " & Format2(e34)
Scrivi " " & Format2(e11) & " " & Format2(e17),0,0
Scrivi " " & Format2(e23) & " " & Format2(e29),0,0
Scrivi " " & Format2(e35)
Scrivi("----------------------------------------------------------------")
Scrivi Format2(a1) & " " & Format2(e11) & " " & Format2(a3),0,0
Scrivi " " & Format2(a2) & " " & Format2(e17) & " " & Format2(a4),0,0
Scrivi " " & Format2(a3) & " " & Format2(e23) & " " & Format2(a5),0,0
Scrivi " " & Format2(a4) & " " & Format2(e29) & " " & Format2(a1),0,0
Scrivi " " & Format2(a5) & " " & Format2(e35) & " " & Format2(a2)
Scrivi " " & Format2(g2) & " " & Format2(g4),0,0
Scrivi " " & Format2(g6) & " " & Format2(g8),0,0
Scrivi " " & Format2(g10)
Scrivi Format2(a1) & " " & Format2(g2) & " " & Format2(a3),0,0
Scrivi " " & Format2(a2) & " " & Format2(g4) & " " & Format2(a4),0,0
Scrivi " " & Format2(a3) & " " & Format2(g6) & " " & Format2(a5),0,0
Scrivi " " & Format2(a4) & " " & Format2(g8) & " " & Format2(a1),0,0
Scrivi " " & Format2(a5) & " " & Format2(g10) & " " & Format2(a2)
Scrivi("----------------------------------------------------------------")
Scrivi " " & Format2(a1) & " " & Format2(a3),0,0
Scrivi " " & Format2(a2) & " " & Format2(a4),0,0
Scrivi " " & Format2(a3) & " " & Format2(a5),0,0
Scrivi " " & Format2(a4) & " " & Format2(a1),0,0
Scrivi " " & Format2(a5) & " " & Format2(a2)
Scrivi " " & Format2(g11) & " " & Format2(g12),0,0
Scrivi " " & Format2(g16) & " " & Format2(g17),0,0
Scrivi " " & Format2(g21) & " " & Format2(g22),0,0
Scrivi " " & Format2(g26) & " " & Format2(g27),0,0
Scrivi " " & Format2(g31) & " " & Format2(g32)
Scrivi " " & Format2(g13) & " " & Format2(g14),0,0
Scrivi " " & Format2(g18) & " " & Format2(g19),0,0
Scrivi " " & Format2(g23) & " " & Format2(g24),0,0
Scrivi " " & Format2(g28) & " " & Format2(g29),0,0
Scrivi " " & Format2(g33) & " " & Format2(g34)
Scrivi("")
Scrivi("La futura cinquina somma col fuori 90 delle ultime 5 coppie ")
Scrivi("")
Scrivi " " & Format2(g15) & " " & Format2(g20),0,0
Scrivi " " & Format2(g25) & " " & Format2(g30),0,0
Scrivi " " & Format2(g35)
End Sub