Novità

Per Salvo50

S

sorujoe

Advanced Member
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
 
S

sorujoe

Advanced Member
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

salvo50

Advanced Member >PLATINUM PLUS<
BYRON;n2130480 ha scritto:
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
Clicca per espandere...

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
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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
 
Ultima modifica:
S

sorujoe

Advanced Member
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
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 = Vert(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


G R A ZI E
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
BYRON;n2130562 ha scritto:
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
Clicca per espandere...

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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto