annuncio

Comprimi
Ancora nessun annuncio.

Per Salvo50

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Per Salvo50

    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

  • #2
    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

    Commenta


    • #3
      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
      Ultima modifica di salvo50; 14-09-2018, 08:25.
      Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

      (B. Castiglione, - Il cortegiano)

      Commenta


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

        Commenta


        • #5
          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 di salvo50; 13-09-2018, 13:16.
          Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

          (B. Castiglione, - Il cortegiano)

          Commenta


          • #6
            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

            Commenta


            • #7
              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
              Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

              (B. Castiglione, - Il cortegiano)

              Commenta


              • #8
                Grazie sei semplicemente perfetto

                Commenta

                Unconfigured Ad Widget

                Comprimi

                Ultima estrazione del lotto

                Comprimi

                Estrazione del lotto
                sabato 17 novembre 2018
                Bari
                07
                33
                44
                54
                71
                Cagliari
                56
                07
                36
                86
                62
                Firenze
                23
                83
                38
                65
                02
                Genova
                31
                10
                60
                04
                83
                Milano
                09
                06
                51
                10
                39
                Napoli
                02
                10
                13
                58
                43
                Palermo
                05
                79
                48
                75
                15
                Roma
                59
                55
                85
                64
                02
                Torino
                74
                62
                46
                39
                48
                Venezia
                56
                61
                34
                84
                40
                Nazionale
                64
                12
                31
                09
                32
                Sto operando...
                X