annuncio

**BYRON** · 12-09-2018, 23:28

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

**salvo50** · 13-09-2018, 12:17

Originariamente inviato da BYRON Visualizza il messaggio

Ciao Salvo ho trovato questo tuo script sul trino della settenaria
ti chiedo se puoi immettere anche la nazionale e mettere il report
esempio degli ultimi 20 casi con colpi da 1 a 40 in modo da avere una statistica.
numeri di oro io metto sempre gli stessi
grazie

Ciao a Tutti

Questo � uno dei primi script che avevo fatto agli inizi, quando mi cimentavo per la prima volta a fare gli script, quindi l'ho aggiustato un pochino, ho eliminato tutta la parte dove c'� il quadro di tutti i calcoli, perch� per quello che chiedi non servono, di script ne posto 2

nel primo i numeri cosidetti ORO li estrapolo con un procedimento cabalistico

nel secondo i numeri ORO li inserisci da tastiera a piacere tuo

per tutti e due gli script i casi e i colpi da giocare li decidi tu tramite InputBox

Primo script

codice:

'Nome "Trino Settenario 4" con input estrazione e ruota
'In questo script si inseriscono  il numero dell'estrazione
'e la ruota, i numeri d'oro vengono estrapolati con il
'procedimento cabalistico Trino Generatore.
Option Explicit
Sub Main
   TestoInBandaPassante(" AUTORE TRINO SETTENARIO, NICOLA RUSSO - MODIFICHE e LISTATO  SALVO 50 "),1,3,1
   ColoreTesto 0
   Dim A(28),B(28),C(28),D(28),E(28),G(10)
   Dim Num(5),Ruote(1),Poste(5),k
   Dim FIn,EStr,Es,R1,Clp,Ini,Caso,Casi
   Poste(2) = 1
   'Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci numero estrazione dove iniziare ",,9000)
   R1 = InputBox("Inserisci numero ruota ( 1 - 10) - 12 = NZ",,6)
   Clp = InputBox("Per quanti colpi vuoi giocare la cinquina?",,13)
   Ruote(1) = R1
   For Es = Ini To FIn
      Caso = 0
      AvanzamentoElab Ini,FIn,Es
      A(1) = Estratto(Es,R1,1)
      B(1) = Estratto(Es,R1,2)
      C(1) = Estratto(Es,R1,3)
      D(1) = Estratto(Es,R1,4)
      E(1) = Estratto(Es,R1,5)
      '--------------------------------------------
      'cancoli primo trino
      '--------------------------------------------
      A(2) =(Fuori90(A(1) - B(1)))
      A(3) =(Fuori90(C(1) + A(2)))
      B(2) =(Fuori90(B(1) - C(1)))
      B(3) =(Fuori90(D(1) + B(2)))
      C(2) =(Fuori90(C(1) - D(1)))
      C(3) =(Fuori90(E(1) + C(2)))
      D(2) =(Fuori90(D(1) - E(1)))
      D(3) =(Fuori90(A(1) + D(2)))
      E(2) =(Fuori90(E(1) - A(1)))
      E(3) =(Fuori90(B(1) + E(2)))
      '---------------------------------------------
      'calcoli prima distanza
      '---------------------------------------------
      A(4) =(Fuori90(A(3)*13))
      A(5) =(Fuori90(B(3)*13))
      A(6) =(Fuori90(A(5) + 1))
      A(7) =(Fuori90(A(6) - A(4)))'a(7) = Distanza tra a(3) e b(3)
      B(4) =(Fuori90(B(3)*13))
      B(5) =(Fuori90(C(3)*13))
      B(6) =(Fuori90(B(5) + 1))
      B(7) =(Fuori90(B(6) - B(4)))'b(7) = Distanza tra b(3) e c(3)
      C(4) =(Fuori90(C(3)*13))
      C(5) =(Fuori90(D(3)*13))
      C(6) =(Fuori90(C(5) + 1))
      C(7) =(Fuori90(C(6) - C(4)))'c(7) = Distanza tra c(3) e d(3)
      D(4) =(Fuori90(D(3)*13))
      D(5) =(Fuori90(E(3)*13))
      D(6) =(Fuori90(D(5) + 1))
      D(7) =(Fuori90(D(6) - D(4)))'d(7) = Distanza tra d(3) e e(3)
      E(4) =(Fuori90(E(3)*13))
      E(5) =(Fuori90(A(3)*13))
      E(6) =(Fuori90(E(5) + 1))
      E(7) =(Fuori90(E(6) - E(4)))'f(7) = Distanza tra e(3) e a(3)
      '---------------------------------------------------------------
      'calcoli prima piramide per 5 numeri
      '---------------------------------------------------------------
      A(8) =(Fuori90(A(3)*6))
      A(9) =(Fuori90(B(3)*3))
      A(10) =(Fuori90(A(7)*7))
      A(11) =(Fuori90(A(8) + A(9) + A(10))) 'a(11) 1� numero ricavato
      B(8) =(Fuori90(B(3)*6))
      B(9) =(Fuori90(C(3)*3))
      B(10) =(Fuori90(B(7)*7))
      B(11) =(Fuori90(B(8) + B(9) + B(10))) 'b(11) 2� numero ricavato
      C(8) =(Fuori90(C(3)*6))
      C(9) =(Fuori90(D(3)*3))
      C(10) =(Fuori90(C(7)*7))
      C(11) =(Fuori90(C(8) + C(9) + C(10))) 'c(11) 3� numero ricavato
      D(8) =(Fuori90(D(3)*6))
      D(9) =(Fuori90(E(3)*3))
      D(10) =(Fuori90(D(7)*7))
      D(11) =(Fuori90(D(8) + D(9) + D(10))) 'd(11) 4� numero ricavato
      E(8) =(Fuori90(E(3)*6))
      E(9) =(Fuori90(A(3)*3))
      E(10) =(Fuori90(E(7)*7))
      E(11) =(Fuori90(E(8) + E(9) + E(10))) 'e(11) 5� numero ricavato
      '---------------------------------------------------------
      'calcoli per primo numero coda prima piramide
      '---------------------------------------------------------
      A(12) =(Fuori90(A(11)*13))
      A(13) =(Fuori90(A(7) - 1))
      A(14) =(Fuori90(A(12) - A(13)))
      A(15) =(Fuori90(A(14)*7)) 'a(15), Distanza tra a(11) e a(7)
      B(12) =(Fuori90(B(11)*13))
      B(13) =(Fuori90(B(7) - 1))
      B(14) =(Fuori90(B(12) - B(13)))
      B(15) =(Fuori90(B(14)*7)) 'b(15), Distanza tra b(11) e b(7)
      C(12) =(Fuori90(C(11)*13))
      C(13) =(Fuori90(C(7) - 1))
      C(14) =(Fuori90(C(12) - C(13)))
      C(15) =(Fuori90(C(14)*7)) 'c(15), Distanza tra c(11) e c(7)
      D(12) =(Fuori90(D(11)*13))
      D(13) =(Fuori90(D(7) - 1))
      D(14) =(Fuori90(D(12) - D(13)))
      D(15) =(Fuori90(D(14)*7)) 'd(15), Distanza tra d(11) e d(7)
      E(12) =(Fuori90(E(11)*13))
      E(13) =(Fuori90(E(7) - 1))
      E(14) =(Fuori90(E(12) - E(13)))
      E(15) =(Fuori90(E(14)*7)) 'e(15), Distanza tra e(11) e e(7)
      '-------------------------------------------------------------------------------------
      'Secondo numero
      'Calcoli della distanza tra il primo numero della coda e 90 ultimo numero della tavola
      '-------------------------------------------------------------------------------------
      A(16) =(Fuori90(A(15)*13))
      A(17) =(Fuori90(91 - A(16))) ' a(17) = distanza tra a(15) e 90
      B(16) =(Fuori90(B(15)*13))
      B(17) =(Fuori90(91 - B(16))) ' b(17) = distanza tra b(15) e 90
      C(16) =(Fuori90(C(15)*13))
      C(17) =(Fuori90(91 - C(16))) ' c(17) = distanza tra c(15) e 90
      D(16) =(Fuori90(D(15)*13))
      D(17) =(Fuori90(91 - D(16))) ' d(17) = distanza tra d(15) e 90
      E(16) =(Fuori90(E(15)*13))
      E(17) =(Fuori90(91 - E(16))) ' d(17) = distanza tra d(15) e 90
      '-------------------------------------
      'quarto numero coda prima piramide numero ORO
      '-------------------------------------
      G(1) = A(1) : G(2) = B(1) : G(3) = C(1) : G(4) = D(1) : G(5) = E(1)
      k = 1
      For k = 1 To 59
         G(6) =(Fuori90(G(1) -(G(2))))
         A(18) =(Fuori90(G(3) +(G(6))))
         G(7) =(Fuori90(G(2) -(G(3))))
         B(18) =(Fuori90(G(4) +(G(7))))
         G(8) =(Fuori90(G(3) -(G(4))))
         C(18) =(Fuori90(G(5) +(G(8))))
         G(9) =(Fuori90(G(4) -(G(5))))
         D(18) =(Fuori90(G(1) +(G(9))))
         G(10) =(Fuori90(G(5) -(G(1))))
         E(18) =(Fuori90(G(2) +(G(10))))
         G(1) = A(18)
         G(2) = B(18)
         G(3) = C(18)
         G(4) = D(18)
         G(5) = E(18)
      Next
      '-----------------------------------
      'quinto numero coda prima piramide
      '-----------------------------------
      A(19) =(Fuori90(A(17) + A(18)))
      B(19) =(Fuori90(B(17) + B(18)))
      C(19) =(Fuori90(C(17) + C(18)))
      D(19) =(Fuori90(D(17) + D(18)))
      E(19) =(Fuori90(E(17) + E(18)))
      '-------------------------------------
      'calcoli seconda piramide per 5 numeri
      '-------------------------------------
      A(20) =(Fuori90(A(19)*7))
      A(21) =(Fuori90(A(8) + A(9) + A(20))) 'a(11) 1� numero ricavato
      B(20) =(Fuori90(B(19)*7))
      B(21) =(Fuori90(B(8) + B(9) + B(20))) 'b(11) 2� numero ricavato
      C(20) =(Fuori90(C(19)*7))
      C(21) =(Fuori90(C(8) + C(9) + C(20))) 'c(11) 3� numero ricavato
      D(20) =(Fuori90(D(19)*7))
      D(21) =(Fuori90(D(8) + D(9) + D(20))) 'd(11) 4� numero ricavato
      E(20) =(Fuori90(E(19)*7))
      E(21) =(Fuori90(E(8) + E(9) + E(20))) 'e(11) 5� numero ricavato
      '----------------------------------------------------------
      'calcolo secondo trino
      A(22) =(Fuori90(A(1) - A(21)))
      A(23) =(Fuori90(C(1) + A(22)))
      B(22) =(Fuori90(B(1) - B(21)))
      B(23) =(Fuori90(D(1) + B(22)))
      C(22) =(Fuori90(C(1) - C(21)))
      C(23) =(Fuori90(E(1) + C(22)))
      D(22) =(Fuori90(D(1) - D(21)))
      D(23) =(Fuori90(A(1) + D(22)))
      E(22) =(Fuori90(E(1) - E(21)))
      E(23) =(Fuori90(B(1) + E(22)))
      '--------------------------------
      'calcoli terzo trino
      '--------------------------------
      A(24) =(90 - A(23))
      A(25) =(90 - A(1))
      A(26) =(Fuori90(A(1) + A(24)))
      A(27) =(Fuori90(C(1) + A(25)))
      B(24) =(90 - B(23))
      B(25) =(90 - B(1))
      B(26) =(Fuori90(B(1) + B(24)))
      B(27) =(Fuori90(D(1) + B(25)))
      C(24) =(90 - C(23))
      C(25) =(90 - C(1))
      C(26) =(Fuori90(C(1) + C(24)))
      C(27) =(Fuori90(E(1) + C(25)))
      D(24) =(90 - D(23))
      D(25) =(90 - D(1))
      D(26) =(Fuori90(D(1) + D(24)))
      D(27) =(Fuori90(A(1) + D(25)))
      E(24) =(90 - E(23))
      E(25) =(90 - E(1))
      E(26) =(Fuori90(E(1) + E(24)))
      E(27) =(Fuori90(B(1) + E(25)))
      A(28) =(Fuori90(A(26) + A(27))) ' a(28) 1� numero futuro
      B(28) =(Fuori90(B(26) + B(27))) ' b(28) 2� numero futuro
      C(28) =(Fuori90(C(26) + C(27))) ' c(28) 3� numero futuro
      D(28) =(Fuori90(D(26) + D(27))) ' d(28) 4� numero futuro
      E(28) =(Fuori90(E(26) + E(27))) ' e(28) 5� numero futuro
      Caso = Caso + 1
      Casi = Casi + 1
      ColoreTesto 1
      Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
      ColoreTesto 2
      Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
      ColoreTesto 0
      Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & Left(NomeRuota(R1),2) & " " & StringaEstratti(Es,R1),1
      Scrivi
      ColoreTesto 2
      Scrivi " Numeri d'oro     " & Format2(A(18)) & " " & Format2(B(18)),1,0
      Scrivi " " & Format2(C(18)) & " " & Format2(D(18)) & " " & Format2(E(18)),1
      ColoreTesto 1
      Scrivi " Futuri estraendi " & Format2(A(28)) & " " & Format2(B(28)),1,0
      Scrivi " " & Format2(C(28)) & " " & Format2(D(28)) & " " & Format2(E(28)),1
      ColoreTesto 0
      Scrivi
      Num(1) = A(28) : Num(2) = B(28) : Num(3) = C(28) : Num(4) = D(28) : Num(5) = E(28)
      ImpostaGiocata 1,Num,Ruote,Poste,Clp,3
      Gioca Es
   Next
   ScriviResoconto
End Sub

secondo script

codice:

 'Nome "Trino Settenario 5" con input estrazione e ruota
'In questo script si inseriscono  il numero dell'estrazione
'e la ruota, i numeri d'oro vengono inseriti da tastiera
Option Explicit
Sub Main
   TestoInBandaPassante(" AUTORE TRINO SETTENARIO, NICOLA RUSSO - MODIFICHE e LISTATO  SALVO 50 "),1,3,1
   ColoreTesto 0
   Dim A(28),B(28),C(28),D(28),E(28),G(10)
   Dim Num(5),Ruote(1),Poste(5),Nu(5),k,Oro,S
   Dim FIn,EStr,Es,R1,Clp,Ini,Caso,Casi
   Poste(2) = 1
   'Poste(3) = 1
   'Poste(4) = 1
   'Poste(5) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci numero estrazione dove iniziare ",,9000)
   R1 = InputBox("Inserisci numero ruota ( 1 - 10) - 12 = NZ",,6)
   Clp = InputBox("Per quanti colpi vuoi giocare la cinquina?",,13)
   Oro = InputBox("Inserisci i 5 numeri Oro (separati da un punto)","ORO","47.31.16.09.44")
   Oro = "0." & Oro
   S = Split(Oro,".")
   Ruote(1) = R1
   For Es = Ini To FIn
      Caso = 0
      AvanzamentoElab Ini,FIn,Es
      A(1) = Estratto(Es,R1,1)
      B(1) = Estratto(Es,R1,2)
      C(1) = Estratto(Es,R1,3)
      D(1) = Estratto(Es,R1,4)
      E(1) = Estratto(Es,R1,5)
      '--------------------------------------------
      'cancoli primo trino
      '--------------------------------------------
      A(2) =(Fuori90(A(1) - B(1)))
      A(3) =(Fuori90(C(1) + A(2)))
      B(2) =(Fuori90(B(1) - C(1)))
      B(3) =(Fuori90(D(1) + B(2)))
      C(2) =(Fuori90(C(1) - D(1)))
      C(3) =(Fuori90(E(1) + C(2)))
      D(2) =(Fuori90(D(1) - E(1)))
      D(3) =(Fuori90(A(1) + D(2)))
      E(2) =(Fuori90(E(1) - A(1)))
      E(3) =(Fuori90(B(1) + E(2)))
      '---------------------------------------------
      'calcoli prima distanza
      '---------------------------------------------
      A(4) =(Fuori90(A(3)*13))
      A(5) =(Fuori90(B(3)*13))
      A(6) =(Fuori90(A(5) + 1))
      A(7) =(Fuori90(A(6) - A(4)))'a(7) = Distanza tra a(3) e b(3)
      B(4) =(Fuori90(B(3)*13))
      B(5) =(Fuori90(C(3)*13))
      B(6) =(Fuori90(B(5) + 1))
      B(7) =(Fuori90(B(6) - B(4)))'b(7) = Distanza tra b(3) e c(3)
      C(4) =(Fuori90(C(3)*13))
      C(5) =(Fuori90(D(3)*13))
      C(6) =(Fuori90(C(5) + 1))
      C(7) =(Fuori90(C(6) - C(4)))'c(7) = Distanza tra c(3) e d(3)
      D(4) =(Fuori90(D(3)*13))
      D(5) =(Fuori90(E(3)*13))
      D(6) =(Fuori90(D(5) + 1))
      D(7) =(Fuori90(D(6) - D(4)))'d(7) = Distanza tra d(3) e e(3)
      E(4) =(Fuori90(E(3)*13))
      E(5) =(Fuori90(A(3)*13))
      E(6) =(Fuori90(E(5) + 1))
      E(7) =(Fuori90(E(6) - E(4)))'f(7) = Distanza tra e(3) e a(3)
      '---------------------------------------------------------------
      'calcoli prima piramide per 5 numeri
      '---------------------------------------------------------------
      A(8) =(Fuori90(A(3)*6))
      A(9) =(Fuori90(B(3)*3))
      A(10) =(Fuori90(A(7)*7))
      A(11) =(Fuori90(A(8) + A(9) + A(10))) 'a(11) 1� numero ricavato
      B(8) =(Fuori90(B(3)*6))
      B(9) =(Fuori90(C(3)*3))
      B(10) =(Fuori90(B(7)*7))
      B(11) =(Fuori90(B(8) + B(9) + B(10))) 'b(11) 2� numero ricavato
      C(8) =(Fuori90(C(3)*6))
      C(9) =(Fuori90(D(3)*3))
      C(10) =(Fuori90(C(7)*7))
      C(11) =(Fuori90(C(8) + C(9) + C(10))) 'c(11) 3� numero ricavato
      D(8) =(Fuori90(D(3)*6))
      D(9) =(Fuori90(E(3)*3))
      D(10) =(Fuori90(D(7)*7))
      D(11) =(Fuori90(D(8) + D(9) + D(10))) 'd(11) 4� numero ricavato
      E(8) =(Fuori90(E(3)*6))
      E(9) =(Fuori90(A(3)*3))
      E(10) =(Fuori90(E(7)*7))
      E(11) =(Fuori90(E(8) + E(9) + E(10))) 'e(11) 5� numero ricavato
      '---------------------------------------------------------
      'calcoli per primo numero coda prima piramide
      '---------------------------------------------------------
      A(12) =(Fuori90(A(11)*13))
      A(13) =(Fuori90(A(7) - 1))
      A(14) =(Fuori90(A(12) - A(13)))
      A(15) =(Fuori90(A(14)*7)) 'a(15), Distanza tra a(11) e a(7)
      B(12) =(Fuori90(B(11)*13))
      B(13) =(Fuori90(B(7) - 1))
      B(14) =(Fuori90(B(12) - B(13)))
      B(15) =(Fuori90(B(14)*7)) 'b(15), Distanza tra b(11) e b(7)
      C(12) =(Fuori90(C(11)*13))
      C(13) =(Fuori90(C(7) - 1))
      C(14) =(Fuori90(C(12) - C(13)))
      C(15) =(Fuori90(C(14)*7)) 'c(15), Distanza tra c(11) e c(7)
      D(12) =(Fuori90(D(11)*13))
      D(13) =(Fuori90(D(7) - 1))
      D(14) =(Fuori90(D(12) - D(13)))
      D(15) =(Fuori90(D(14)*7)) 'd(15), Distanza tra d(11) e d(7)
      E(12) =(Fuori90(E(11)*13))
      E(13) =(Fuori90(E(7) - 1))
      E(14) =(Fuori90(E(12) - E(13)))
      E(15) =(Fuori90(E(14)*7)) 'e(15), Distanza tra e(11) e e(7)
      '-------------------------------------------------------------------------------------
      'Secondo numero
      'Calcoli della distanza tra il primo numero della coda e 90 ultimo numero della tavola
      '-------------------------------------------------------------------------------------
      A(16) =(Fuori90(A(15)*13))
      A(17) =(Fuori90(91 - A(16))) ' a(17) = distanza tra a(15) e 90
      B(16) =(Fuori90(B(15)*13))
      B(17) =(Fuori90(91 - B(16))) ' b(17) = distanza tra b(15) e 90
      C(16) =(Fuori90(C(15)*13))
      C(17) =(Fuori90(91 - C(16))) ' c(17) = distanza tra c(15) e 90
      D(16) =(Fuori90(D(15)*13))
      D(17) =(Fuori90(91 - D(16))) ' d(17) = distanza tra d(15) e 90
      E(16) =(Fuori90(E(15)*13))
      E(17) =(Fuori90(91 - E(16))) ' d(17) = distanza tra d(15) e 90
      '-------------------------------------
      'quarto numero coda prima piramide numero ORO
      '-------------------------------------
      A(18) = CInt(S(1)) : B(18) = CInt(S(2)): C(18) = CInt(S(3)): D(18) = CInt(S(4)): E(18) = CInt(S(5))
      '-----------------------------------
      'quinto numero coda prima piramide
      '-----------------------------------
      A(19) =(Fuori90(A(17) + A(18)))
      B(19) =(Fuori90(B(17) + B(18)))
      C(19) =(Fuori90(C(17) + C(18)))
      D(19) =(Fuori90(D(17) + D(18)))
      E(19) =(Fuori90(E(17) + E(18)))
      '-------------------------------------
      'calcoli seconda piramide per 5 numeri
      '-------------------------------------
      A(20) =(Fuori90(A(19)*7))
      A(21) =(Fuori90(A(8) + A(9) + A(20))) 'a(11) 1� numero ricavato
      B(20) =(Fuori90(B(19)*7))
      B(21) =(Fuori90(B(8) + B(9) + B(20))) 'b(11) 2� numero ricavato
      C(20) =(Fuori90(C(19)*7))
      C(21) =(Fuori90(C(8) + C(9) + C(20))) 'c(11) 3� numero ricavato
      D(20) =(Fuori90(D(19)*7))
      D(21) =(Fuori90(D(8) + D(9) + D(20))) 'd(11) 4� numero ricavato
      E(20) =(Fuori90(E(19)*7))
      E(21) =(Fuori90(E(8) + E(9) + E(20))) 'e(11) 5� numero ricavato
      '----------------------------------------------------------
      'calcolo secondo trino
      A(22) =(Fuori90(A(1) - A(21)))
      A(23) =(Fuori90(C(1) + A(22)))
      B(22) =(Fuori90(B(1) - B(21)))
      B(23) =(Fuori90(D(1) + B(22)))
      C(22) =(Fuori90(C(1) - C(21)))
      C(23) =(Fuori90(E(1) + C(22)))
      D(22) =(Fuori90(D(1) - D(21)))
      D(23) =(Fuori90(A(1) + D(22)))
      E(22) =(Fuori90(E(1) - E(21)))
      E(23) =(Fuori90(B(1) + E(22)))
      '--------------------------------
      'calcoli terzo trino
      '--------------------------------
      A(24) =(90 - A(23))
      A(25) =(90 - A(1))
      A(26) =(Fuori90(A(1) + A(24)))
      A(27) =(Fuori90(C(1) + A(25)))
      B(24) =(90 - B(23))
      B(25) =(90 - B(1))
      B(26) =(Fuori90(B(1) + B(24)))
      B(27) =(Fuori90(D(1) + B(25)))
      C(24) =(90 - C(23))
      C(25) =(90 - C(1))
      C(26) =(Fuori90(C(1) + C(24)))
      C(27) =(Fuori90(E(1) + C(25)))
      D(24) =(90 - D(23))
      D(25) =(90 - D(1))
      D(26) =(Fuori90(D(1) + D(24)))
      D(27) =(Fuori90(A(1) + D(25)))
      E(24) =(90 - E(23))
      E(25) =(90 - E(1))
      E(26) =(Fuori90(E(1) + E(24)))
      E(27) =(Fuori90(B(1) + E(25)))
      A(28) =(Fuori90(A(26) + A(27))) ' a(28) 1� numero futuro
      B(28) =(Fuori90(B(26) + B(27))) ' b(28) 2� numero futuro
      C(28) =(Fuori90(C(26) + C(27))) ' c(28) 3� numero futuro
      D(28) =(Fuori90(D(26) + D(27))) ' d(28) 4� numero futuro
      E(28) =(Fuori90(E(26) + E(27))) ' e(28) 5� numero futuro
      Caso = Caso + 1
      Casi = Casi + 1
      ColoreTesto 1
      Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
      ColoreTesto 2
      Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
      ColoreTesto 0
      Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
      Scrivi
      ColoreTesto 2
      Scrivi " Numeri d'oro     " & Format2(A(18)) & " " & Format2(B(18)),1,0
      Scrivi " " & Format2(C(18)) & " " & Format2(D(18)) & " " & Format2(E(18)),1
      ColoreTesto 1
      Scrivi " Futuri estraendi " & Format2(A(28)) & " " & Format2(B(28)),1,0
      Scrivi " " & Format2(C(28)) & " " & Format2(D(28)) & " " & Format2(E(28)),1
      ColoreTesto 0
      Scrivi
      Num(1) = A(28) : Num(2) = B(28) : Num(3) = C(28) : Num(4) = D(28) : Num(5) = E(28)
      ImpostaGiocata 1,Num,Ruote,Poste,Clp,3
      Gioca Es
   Next
   ScriviResoconto
End Sub

**BYRON** · 13-09-2018, 12:33

Grazie, i numeri d'oro io vorrei quelli determinati con il procedimento originale di nicola russo

**salvo50** · 13-09-2018, 12:46

Ok metto quelli

Per il momento li ho messi fissi (i numeri oro originali di Nicola Russo) perch� mi sono accorto di un errore, appena lo risolvo, ne posto un altro, comunque nel secondo script ho inserito come numeri ORO gli originali

Trovato l'inghippo, corretto, non c'� bisogno di inserirne un'altro

**BYRON** · 13-09-2018, 12:57

Mi puoi fare un favore poi ti lascer� in pace
mi hai fatto uno script che mi trova in 2 estrazioni consecutive un estratto e il suo vertibile isotopo.

Puoi modificarlo in modo da avere in 2 concorsi consecutivi 2 estratti uguali e isotopi

Esempio
estrazione del 01/01/2018 67 al 1� posto
estrazione del 03/01/2018 67 al 1� posto

quello che mi avevi fatto � questo ma lavora su vertibili
OptionExplicit

SubMain

DimFIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2

DimIdestr,Col,Esqcol,Esq,Caso,Casi

FIn=EstrazioneFin

Esq=InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)

Col=CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))

Esqcol=Esq+Col

IfEsqcol>FInThenEsqcol=FIn

ForEs=EsqToEsqcol

Caso= 0

AvanzamentoElabEsq,Esqcol,Es

ForR1= 1 To 12

IfR1= 11 ThenR1= 12

ForP1= 1 To 5

A=Estratto(Es,R1,P1)

B=Estratto(Es+ 1,R1,P1)

IfA=Vert(B) Then

Caso=Caso+ 1

Casi=Casi+ 1

ColoreTesto 1

ScriviString(89,"-") & " Casi Totali " &FormattaStringa(Casi,"0000")

ColoreTesto 2

ScriviString(80,"-") & " Estrazione " &(Es) & " caso " &FormattaStringa(Caso,"0000")

ColoreTesto 0

Scrivi(" Estrazione n." &Format2(Es) & " del " &DataEstrazione(Es)),1,0

Scrivi "" &SiglaRuota(R1) & "",1,0

ForP2= 1 To 5

E1=Estratto(Es,R1,P2)

IfE1=AThen

CallColoreTesto(2)

Else

CallColoreTesto(0)

EndIf

CallScrivi(Format2(E1) & "",1,0)

CallColoreTesto(0)

Next

Scrivi

Scrivi(" Estrazione n." &Format2(Es+ 1) & " del " &DataEstrazione(Es+ 1)),1,0

Scrivi "" &SiglaRuota(R1) & "",1,0

ForP3= 1 To 5

E2=Estratto(Es+ 1,R1,P3)

IfE2=BThen

CallColoreTesto(2)

Else

CallColoreTesto(0)

EndIf

CallScrivi(Format2(E2) & "",1,0)

CallColoreTesto(0)

Next

Scrivi

EndIf

Next

Next

IfScriptInterrottoThenExitSub

Next

EndSub

G R A ZI E

**salvo50** · 13-09-2018, 13:37

Originariamente inviato da BYRON Visualizza il messaggio

Mi puoi fare un favore poi ti lascer� in pace
mi hai fatto uno script che mi trova in 2 estrazioni consecutive un estratto e il suo vertibile isotopo.

Puoi modificarlo in modo da avere in 2 concorsi consecutivi 2 estratti uguali e isotopi

Esempio
estrazione del 01/01/2018 67 al 1� posto
estrazione del 03/01/2018 67 al 1� posto

Chiedi tranquillo, non mi disturbi, se riesco a farlo, ben volentieri

codice:

'Chiesto da Byron
'avere in 2 concorsi consecutivi 2 estratti uguali e isotopi
'script by Salvo50
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2
   Dim Idestr,Col,Esqcol,Esq,Caso,Casi
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es + 1,R1,P1)
            If A = B Then
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = A Then
                     Call ColoreTesto(2)
                  Else
                     Call ColoreTesto(0)
                  End If
                  Call Scrivi(Format2(E1) & " ",1,0)
                  Call ColoreTesto(0)
               Next
               Scrivi
               Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
               Scrivi " " & SiglaRuota(R1) & " ",1,0
               For P3 = 1 To 5
                  E2 = Estratto(Es + 1,R1,P3)
                  If E2 = B Then
                     Call ColoreTesto(2)
                  Else
                     Call ColoreTesto(0)
                  End If
                  Call Scrivi(Format2(E2) & " ",1,0)
                  Call ColoreTesto(0)
               Next
               Scrivi
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

**BYRON** · 13-09-2018, 15:00

Grazie sei semplicemente perfetto

annuncio

Per Salvo50

Per Salvo50

Commenta

Commenta

Commenta

Commenta

Commenta

Commenta

Commenta

Unconfigured Ad Widget

Ultima estrazione del lotto