'Nome "Trino Settenario con input estrazione"
'Autore Salvo50
'In questo inserisco il numero dell'estrazione e la ruota
'tramite inputbox, fa tutti i calcoli si cerca i numeri
'd'oro e dà la futura cinquina, però non è giocabile perchè
'per ottenere i numeri d'oro ho usato i numeri della futura
'cinquina (sembra un gioco di parole), questo script è solo
'una curiosità, ma si può usare per vedere se i calcoli sono
'giusti nel caso che uno volesse fare i calcoli a mano.
Sub Main
Fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione",,fin - 1)
r1 = InputBox("Inserisci numero ruota ( 1 - 10---12 Naz.)",,12)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),1,0
Scrivi " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),1
Scrivi
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))
m1 = Estratto(es + 1,r1,1)
m2 = Estratto(es + 1,r1,2)
m3 = Estratto(es + 1,r1,3)
m4 = Estratto(es + 1,r1,4)
m5 = Estratto(es + 1,r1,5)
g36 =(90 - a1)
g37 =(Fuori90(g36*13))
g38 =(Fuori90(m1*13))
e1 =(Fuori90(g38 - g37))'e1 1º numero d'oro
g39 =(90 - a2)
g40 =(Fuori90(g39*13))
g41 =(Fuori90(m2*13))
e2 =(Fuori90(g41 - g40))'e2 2º numero d'oro
g42 =(90 - a3)
g43 =(Fuori90(g42*13))
g44 =(Fuori90(m3*13))
e3 =(Fuori90(g44 - g43))'e3 3º numero d'oro
g45 =(90 - a4)
g46 =(Fuori90(g45*13))
g47 =(Fuori90(m4*13))
e4 =(Fuori90(g47 - g46))'e4 4º numero d'oro
g48 =(90 - a5)
g49 =(Fuori90(g48*13))
g50 =(Fuori90(m5*13))
e5 =(Fuori90(g50 - g49))'e5 5º numero d'oro
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 Space(11) & "Estratti base" & Space(3) & Format2(a1) & " " & Format2(a2),1,0
Scrivi " " & Format2(a3) & " " & Format2(a4) & " " & Format2(a5),1
Scrivi ""
Scrivi Space(9) & "Con gli estratti base formare 5 terne ",1
Scrivi
Scrivi Space(3) & "(" & Format2(a1) & " " & Format2(a2) & " " & Format2(a3),1,0
Scrivi ")(" & Format2(a2) & " " & Format2(a3) & " " & Format2(a4),1,0
Scrivi ")(" & Format2(a3) & " " & Format2(a4) & " " & Format2(a5),1,0
Scrivi ")(" & Format2(a4) & " " & Format2(a5) & " " & Format2(a1),1,0
Scrivi ")(" & Format2(a5) & " " & Format2(a1) & " " & Format2(a2) & ")",1
Scrivi
Scrivi Space(4) & "5 numeri ricavate dalle 5 terne " & Format2(c1),1,0
Scrivi " " & Format2(c2) & " " & Format2(c3) & " " & Format2(c4),1,0
Scrivi " " & Format2(c5),1
Scrivi
Scrivi " Con i 5 numeri ricavati dalle 5 terne formare 5 coppie",1
Scrivi
Scrivi Space(4) & "(" & Format2(c1) & " " & Format2(c2) & ")" & Space(5) & "(" & Format2(c2),1,0
Scrivi " " & Format2(c3) & ")" & Space(3) & "(" & Format2(c3) & " " & Format2(c4),1,0
Scrivi ")" & Space(3) & "(" & Format2(c4) & " " & Format2(c5) & ")" & Space(3) & "(" & Format2(c5),1,0
Scrivi " " & Format2(c1) &(")"),1
Scrivi
Scrivi " 5 distanze ricavate dalle 5 coppie " & Format2(d1),1,0
Scrivi " " & Format2(d2) & " " & Format2(d15) & " " & Format2(d22),1,0
Scrivi " " & Format2(d29),1
Scrivi
ColoreTesto 1
Scrivi Space(13) & "PRIMA PIRAMIDE PER OGNI NUMERO ",1 : ColoreTesto 0
Scrivi
Scrivi Format2(c1) & " " & Format2(c2) & Space(8) & Format2(c2),1,0
Scrivi " " & Format2(c3) & Space(8) & Format2(c3) & " " & Format2(c4),1,0
Scrivi Space(8) & Format2(c4) & " " & Format2(c5),1,0
Scrivi Space(6) & Format2(c5) & " " & Format2(c1),1
Scrivi Format2(d1) & " " & Format2(d2) & " " & Format2(d3),1,0
Scrivi Space(5) & Format2(d8) & " " & Format2(d9) & " " & Format2(d10),1,0
Scrivi Space(5) & Format2(d15) & " " & Format2(d16) & " " & Format2(d17),1,0
Scrivi Space(5) & Format2(d22) & " " & Format2(d23) & " " & Format2(d24),1,0
Scrivi Space(5) & Format2(d29) & " " & Format2(d30) & " " & Format2(d31),1
Scrivi Space(3) & Format2(d4) & " " & Format2(d5) & Space(8) & Format2(d11),1,0
Scrivi " " & Format2(d12) & Space(8) & Format2(d18) & " " & Format2(d19),1,0
Scrivi Space(8) & Format2(d25) & " " & Format2(d26),1,0
Scrivi Space(8) & Format2(d32) & " " & Format2(d33),1
Scrivi Space(6) & Format2(d6) & Space(11) & Format2(d13),1,0
Scrivi Space(11) & Format2(d20) & Space(11) & Format2(d27),1,0
Scrivi Space(11) & Format2(d34),1
Scrivi Space(6) & Format2(d7) & " " & Format2(d1),1,0
Scrivi Space(8) & Format2(d14) & " " & Format2(d8),1,0
Scrivi Space(8) & Format2(d21) & " " & Format2(d15),1,0
Scrivi Space(8) & Format2(d28) & " " & Format2(d22),1,0
Scrivi Space(8) & Format2(d35) & " " & Format2(d29),1
Scrivi("----------------------------------------------------------------"),1
Scrivi Space(6) & Format2(c24) & Space(11) & Format2(c28),1,0
Scrivi Space(11) & Format2(c32) & Space(11) & Format2(c36),1,0
Scrivi Space(11) & Format2(c40),1
Scrivi Space(6) & Format2(c42) & Space(11) & Format2(c44),1,0
Scrivi Space(11) & Format2(c46) & Space(11) & Format2(c48),1,0
Scrivi Space(11) & Format2(c50),1
Scrivi Space(6) & Format2(d36) & Space(11) & Format2(d37),1,0
Scrivi Space(11) & Format2(d38) & Space(11) & Format2(d39),1,0
Scrivi Space(11) & Format2(d40),1
ColoreTesto 2
Scrivi Space(6) & Format2(e1) & Space(11) & Format2(e2),1,0
Scrivi Space(11) & Format2(e3) & Space(11) & Format2(e4),1,0
Scrivi Space(11) & Format2(e5) & " <-- Numeri d'oro ",1 : ColoreTesto 0
Scrivi Space(6) & Format2(d41) & Space(11) & Format2(d42),1,0
Scrivi Space(11) & Format2(d43) & Space(11) & Format2(d44),1,0
Scrivi Space(11) & Format2(d45),1
Scrivi("----------------------------------------------------------------"),1
ColoreTesto 1
Scrivi Space(12) & "SECONDA PIRAMIDE PER OGNI NUMERO ",1 : ColoreTesto 0
Scrivi
Scrivi Format2(c1) & " " & Format2(c2) & Space(8) & Format2(c2),1,0
Scrivi " " & Format2(c3) & Space(8) & Format2(c3) & " " & Format2(c4),1,0
Scrivi Space(8) & Format2(c4) & " " & Format2(c5),1,0
Scrivi Space(8) & Format2(c5) & " " & Format2(c1),1
Scrivi Format2(d41) & " " & Format2(e6) & " " & Format2(e7),1,0
Scrivi Space(5) & Format2(d42) & " " & Format2(e12) & " " & Format2(e13),1,0
Scrivi Space(5) & Format2(d43) & " " & Format2(e18) & " " & Format2(e19),1,0
Scrivi Space(5) & Format2(d44) & " " & Format2(e24) & " " & Format2(e25),1,0
Scrivi Space(5) & Format2(d45) & " " & Format2(e30) & " " & Format2(e31),1
Scrivi Space(3) & Format2(e8) & " " & Format2(e9),1,0
Scrivi Space(8) & Format2(e14) & " " & Format2(e15),1,0
Scrivi Space(8) & Format2(e20) & " " & Format2(e21),1,0
Scrivi Space(8) & Format2(e26) & " " & Format2(e27),1,0
Scrivi Space(8) & Format2(e32) & " " & Format2(e33),1
Scrivi Space(6) & Format2(e10) & Space(11) & Format2(e16),1,0
Scrivi Space(11) & Format2(e22) & Space(11) & Format2(e28),1,0
Scrivi Space(11) & Format2(e34)
Scrivi Space(6) & Format2(e11) & Space(11) & Format2(e17),1,0
Scrivi Space(11) & Format2(e23) & Space(11) & Format2(e29),1,0
Scrivi Space(11) & Format2(e35),1
Scrivi("----------------------------------------------------------------"),1
Scrivi Format2(a1) & " " & Format2(e11) & " " & Format2(a3),1,0
Scrivi Space(5) & Format2(a2) & " " & Format2(e17) & " " & Format2(a4),1,0
Scrivi Space(5) & Format2(a3) & " " & Format2(e23) & " " & Format2(a5),1,0
Scrivi Space(5) & Format2(a4) & " " & Format2(e29) & " " & Format2(a1),1,0
Scrivi Space(5) & Format2(a5) & " " & Format2(e35) & " " & Format2(a2),1
Scrivi Space(3) & Format2(g2) & Space(11) & Format2(g4),1,0
Scrivi Space(11) & Format2(g6) & Space(11) & Format2(g8),1,0
Scrivi Space(11) & Format2(g10),1
Scrivi Format2(a1) & " " & Format2(g2) & " " & Format2(a3),1,0
Scrivi Space(5) & Format2(a2) & " " & Format2(g4) & " " & Format2(a4),1,0
Scrivi Space(5) & Format2(a3) & " " & Format2(g6) & " " & Format2(a5),1,0
Scrivi Space(5) & Format2(a4) & " " & Format2(g8) & " " & Format2(a1),1,0
Scrivi Space(5) & Format2(a5) & " " & Format2(g10) & " " & Format2(a2),1
Scrivi("----------------------------------------------------------------"),1
Scrivi Space(3) & Format2(a1) & " " & Format2(a3),1,0
Scrivi Space(8) & Format2(a2) & " " & Format2(a4),1,0
Scrivi Space(8) & Format2(a3) & " " & Format2(a5),1,0
Scrivi Space(8) & Format2(a4) & " " & Format2(a1),1,0
Scrivi Space(8) & Format2(a5) & " " & Format2(a2),1
Scrivi Space(3) & Format2(g11) & " " & Format2(g12),1,0
Scrivi Space(8) & Format2(g16) & " " & Format2(g17),1,0
Scrivi Space(8) & Format2(g21) & " " & Format2(g22),1,0
Scrivi Space(8) & Format2(g26) & " " & Format2(g27),1,0
Scrivi Space(8) & Format2(g31) & " " & Format2(g32),1
Scrivi Space(3) & Format2(g13) & " " & Format2(g14),1,0
Scrivi Space(8) & Format2(g18) & " " & Format2(g19),1,0
Scrivi Space(8) & Format2(g23) & " " & Format2(g24),1,0
Scrivi Space(8) & Format2(g28) & " " & Format2(g29),1,0
Scrivi Space(8) & Format2(g33) & " " & Format2(g34),1
Scrivi
Scrivi("La futura cinquina somma col fuori 90 delle ultime 5 coppie "),1
Scrivi
Scrivi Space(3) & Format2(g15) & Space(11) & Format2(g20),1,0
Scrivi Space(11) & Format2(g25) & Space(11) & Format2(g30),1,0
Scrivi Space(11) & Format2(g35),1
End Sub