salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
L'ho un po' modificato, l'inserimento dei numeri d'oro lo faccio in automatico in modo cabalistico, ed ho messo la ricerca della cinquina per 150 colpi, io ho fatto una ventina di ricerche, ma al massimo ho trovato 3 ambi.
L'ho un po' modificato, l'inserimento dei numeri d'oro lo faccio in automatico in modo cabalistico, ed ho messo la ricerca della cinquina per 150 colpi, io ho fatto una ventina di ricerche, ma al massimo ho trovato 3 ambi.
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 chiave 645,
'e lo script fa tutti i calcoli del "Trino Settenario"
Option Explicit
Sub Main
TestoInBandaPassante(" AUTORE TRINO SETTENARIO NICOLA RUSSO - MODIFICHE e LISTATO SALVO 50 "),1,3,1
Dim a(6)
Dim b(5)
Dim c(50)
Dim d(45)
Dim e(35)
Dim g(45)
Dim es,r1,num,ruote,poste
Dim idestrazione,fin,ruota,estr
fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione per iniziare ",idestrazione,fin)
r1 = InputBox("Inserisci numero ruota ( 1 - 12) - 12 = NZ",ruota,r1)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi ""
estr = es - 645
If estr < 1 Then estr = estr + 645 End If
e(1) = Estratto(estr,r1,1)
e(2) = Estratto(estr,r1,2)
e(3) = Estratto(estr,r1,3)
e(4) = Estratto(estr,r1,4)
e(5) = Estratto(estr,r1,5)
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)
b(1) =(Fuori90(a(1) - a(2)))
c(1) =(Fuori90(b(1) + a(3)))
b(2) =(Fuori90(a(2) - a(3)))
c(2) =(Fuori90(b(2) + a(4)))
b(3) =(Fuori90(a(3) - a(4)))
c(3) =(Fuori90(b(3) + a(5)))
b(4) =(Fuori90(a(4) - a(5)))
c(4) =(Fuori90(b(4) + a(1)))
b(5) =(Fuori90(a(5) - a(1)))
c(5) =(Fuori90(b(5) + a(2)))
c(6) =(Fuori90(c(1)*13))
c(7) =(Fuori90(c(2)*13))
c(8) =(Fuori90(c(7) + 1))
d(1) =(Fuori90(c(8) - c(6)))'d1 = Distanza tra c1 e c2
c(9) =(Fuori90(c(2)*13))
c(10) =(Fuori90(c(3)*13))
c(11) =(Fuori90(c(10) + 1))
d(8) =(Fuori90(c(11) - c(9)))'d8 = Distanza tra c2 e c3
c(12) =(Fuori90(c(3)*13))
c(13) =(Fuori90(c(4)*13))
c(14) =(Fuori90(c(13) + 1))
d(15) =(Fuori90(c(14) - c(12)))'d15 = Distanza tra c3 e c4
c(15) =(Fuori90(c(4)*13))
c(16) =(Fuori90(c(5)*13))
c(17) =(Fuori90(c(16) + 1))
d(22) =(Fuori90(c(17) - c(15)))'d22 = Distanza tra c4 e c5
c(18) =(Fuori90(c(5)*13))
c(19) =(Fuori90(c(1)*13))
c(20) =(Fuori90(c(19) + 1))
d(29) =(Fuori90(c(20) - c(18)))'d29 = Distanza tra c5 e c1
d(2) =(Fuori90(c(1) + d(1)))
d(3) =(Fuori90(c(2) + d(2)))
d(4) =(Fuori90(d(1) + d(2)))
d(5) =(Fuori90(d(3) + d(2)))
d(6) =(Fuori90(d(4) + d(5)))
d(7) =(Fuori90(d(3) + d(5) + d(6)))'d7, 1º numero ricavato
d(9) =(Fuori90(c(2) + d(8)))
d(10) =(Fuori90(c(3) + d(9)))
d(11) =(Fuori90(d(8) + d(9)))
d(12) =(Fuori90(d(10) + d(9)))
d(13) =(Fuori90(d(11) + d(12)))
d(14) =(Fuori90(d(10) + d(12) + d(13)))'d14, 2º numero ricavato
d(16) =(Fuori90(c(3) + d(15)))
d(17) =(Fuori90(c(4) + d(16)))
d(18) =(Fuori90(d(15) + d(16)))
d(19) =(Fuori90(d(17) + d(16)))
d(20) =(Fuori90(d(18) + d(19)))
d(21) =(Fuori90(d(17) + d(19) + d(20)))'d21, 3º numero ricavato
d(23) =(Fuori90(c(4) + d(22)))
d(24) =(Fuori90(c(5) + d(23)))
d(25) =(Fuori90(d(22) + d(23)))
d(26) =(Fuori90(d(24) + d(23)))
d(27) =(Fuori90(d(25) + d(26)))
d(28) =(Fuori90(d(24) + d(26) + d(27)))'d28, 4º numero ricavato
d(30) =(Fuori90(c(5) + d(29)))
d(31) =(Fuori90(c(1) + d(30)))
d(32) =(Fuori90(d(29) + d(30)))
d(33) =(Fuori90(d(31) + d(30)))
d(34) =(Fuori90(d(32) + d(33)))
d(35) =(Fuori90(d(31) + d(33) + d(34)))'d35, 5º numero ricavato
c(21) =(Fuori90(d(7)*13))
c(22) =(Fuori90(d(1) - 1))
c(23) =(Fuori90(c(21) - c(22)))
c(24) =(Fuori90(c(23)*7))'c24, Distanza tra d7 e d1
c(25) =(Fuori90(d(14)*13))
c(26) =(Fuori90(d(8) - 1))
c(27) =(Fuori90(c(25) - c(26)))
c(28) =(Fuori90(c(27)*7))'c28, Distanza tra d14 e d8
c(29) =(Fuori90(d(21)*13))
c(30) =(Fuori90(d(15) - 1))
c(31) =(Fuori90(c(29) - c(30)))
c(32) =(Fuori90(c(31)*7))'c32, Distanza tra d21 e d15
c(33) =(Fuori90(d(28)*13))
c(34) =(Fuori90(d(22) - 1))
c(35) =(Fuori90(c(33) - c(34)))
c(36) =(Fuori90(c(35)*7))'c36, Distanza tra d28 e d22
c(37) =(Fuori90(d(35)*13))
c(38) =(Fuori90(d(29) - 1))
c(39) =(Fuori90(c(37) - c(38)))
c(40) =(Fuori90(c(39)*7))'c40, Distanza tra d35 e d29
c(41) =(Fuori90(c(24)*13))
c(42) =(Fuori90(91 - c(41))) ' c42 = distanza tra c24 e 90
c(43) =(Fuori90(c(28)*13))
c(44) =(Fuori90(91 - c(43))) ' c44 = distanza tra c28 e 90
c(45) =(Fuori90(c(32)*13))
c(46) =(Fuori90(91 - c(45))) ' c46 = distanza tra c32 e 90
c(47) =(Fuori90(c(36)*13))
c(48) =(Fuori90(91 - c(47))) ' c48 = distanza tra c36 e 90
c(49) =(Fuori90(c(40)*13))
c(50) =(Fuori90(91 - c(49))) ' c50 = distanza tra c40 e 90
d(36) =(Fuori90(d(7) + d(1)))
d(37) =(Fuori90(d(14) + d(8)))
d(38) =(Fuori90(d(21) + d(15)))
d(39) =(Fuori90(d(28) + d(22)))
d(40) =(Fuori90(d(35) + d(29)))
'------------------------------------------
d(41) =(Fuori90(c(42) + e(1)))
d(42) =(Fuori90(c(44) + e(2)))
d(43) =(Fuori90(c(46) + e(3)))
d(44) =(Fuori90(c(48) + e(4)))
d(45) =(Fuori90(c(50) + e(5)))
e(6) =(Fuori90(c(1) + d(41)))
e(7) =(Fuori90(c(2) + e(6)))
e(8) =(Fuori90(d(41) + e(6)))
e(9) =(Fuori90(e(6) + e(7)))
e(10) =(Fuori90(e(8) + e(9)))
e(11) =(Fuori90(e(7) + e(9) + e(10)))'e11, 1º numero ricavato
e(12) =(Fuori90(c(2) + d(42)))
e(13) =(Fuori90(c(3) + e(12)))
e(14) =(Fuori90(d(42) + e(12)))
e(15) =(Fuori90(e(12) + e(13)))
e(16) =(Fuori90(e(14) + e(15)))
e(17) =(Fuori90(e(13) + e(15) + e(16)))'e17, 2º numero ricavato
e(18) =(Fuori90(c(3) + d(43)))
e(19) =(Fuori90(c(4) + e(18)))
e(20) =(Fuori90(d(43) + e(18)))
e(21) =(Fuori90(e(18) + e(19)))
e(22) =(Fuori90(e(20) + e(21)))
e(23) =(Fuori90(e(19) + e(21) + e(22)))'e23, 3º numero ricavato
e(24) =(Fuori90(c(4) + d(44)))
e(25) =(Fuori90(c(5) + e(24)))
e(26) =(Fuori90(d(44) + e(24)))
e(27) =(Fuori90(e(24) + e(25)))
e(28) =(Fuori90(e(26) + e(27)))
e(29) =(Fuori90(e(25) + e(27) + e(28)))'e29, 4º numero ricavato
e(30) =(Fuori90(c(5) + d(45)))
e(31) =(Fuori90(c(1) + e(30)))
e(32) =(Fuori90(d(45) + e(30)))
e(33) =(Fuori90(e(30) + e(31)))
e(34) =(Fuori90(e(32) + e(33)))
e(35) =(Fuori90(e(31) + e(33) + e(34)))'e35, 5º numero ricavato
g(1) =(Fuori90(a(1) - e(11)))
g(2) =(Fuori90(g(1) + a(3)))
g(3) =(Fuori90(a(2) - e(17)))
g(4) =(Fuori90(g(3) + a(4)))
g(5) =(Fuori90(a(3) - e(23)))
g(6) =(Fuori90(g(5) + a(5)))
g(7) =(Fuori90(a(4) - e(29)))
g(8) =(Fuori90(g(7) + a(1)))
g(9) =(Fuori90(a(5) - e(35)))
g(10) =(Fuori90(g(9) + a(2)))
g(11) =(90 - g(2))
g(12) =(90 - a(1))
g(13) =(Fuori90(a(1) + g(11)))
g(14) =(Fuori90(a(3) + g(12)))
g(16) =(90 - g(4))
g(17) =(90 - a(2))
g(18) =(Fuori90(a(2) + g(16)))
g(19) =(Fuori90(a(4) + g(17)))
g(21) =(90 - g(6))
g(22) =(90 - a(3))
g(23) =(Fuori90(a(3) + g(21)))
g(24) =(Fuori90(a(5) + g(22)))
g(26) =(90 - g(8))
g(27) =(90 - a(4))
g(28) =(Fuori90(a(4) + g(26)))
g(29) =(Fuori90(a(1) + g(27)))
g(31) =(90 - g(10))
g(32) =(90 - a(5))
g(33) =(Fuori90(a(5) + g(31)))
g(34) =(Fuori90(a(2) + g(32)))
g(15) =(Fuori90(g(13) + g(14))) ' g15 1º numero futuro
g(20) =(Fuori90(g(18) + g(19))) ' g20 2º numero futuro
g(25) =(Fuori90(g(23) + g(24))) ' g25 3º numero futuro
g(30) =(Fuori90(g(28) + g(29))) ' g30 4º numero futuro
g(35) =(Fuori90(g(33) + g(34))) ' g35 5º numero futuro
Scrivi
Scrivi
ruote = Array(0,r1)
poste = Array(0,0.0,1.0)
num = Array(0,g(15),g(20),g(25),g(30),g(35))
ImpostaGiocata 1,num,ruote,poste,150,0,0
Gioca es
ScriviResoconto
End Sub
Ultima modifica: