salve Gioacchino,gentilmente, potrebbe condividere lo script che usa?
in attesa saluti
Giorgio
CERTO ECCOLO....
'Trino Settenario 4 con input estrazione e ruota + Aggiunto N. Oro x
'Gioacchino Schiro'
Sub Main
Scrivi" AUTORE TRINO SETTENARIO NICOLA RUSSO - MODIFICHE e LISTATO SALVO 50 ",1
Dim a(6)
Dim b(5)
Dim c(50)
Dim d(45)
Dim e(35)
Dim g(45)
Dim ruote(10)
Dim es,r1,num,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)
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)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi "NUMERI ORO INSERITI " & e1 & " - " & e2 & " - " & e3 & " - " & e4 & " - " & e5
estr = es - 645
If estr < 1 Then estr = estr + 645 End If
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) + e1))
d(42) =(Fuori90(c(44) + e2))
d(43) =(Fuori90(c(46) + e3))
d(44) =(Fuori90(c(48) + e4))
d(45) =(Fuori90(c(50) + e5))
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
For r2 = 1 To 10
If Distanza(r1,r2) = 5 Then
For r3 = 1 To 10
If r1 + r3 = 11 Then
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
If r1 = 1 Then r4 = 5
If r1 = 2 Then r4 = 4
If r1 = 3 Then r4 = 1
If r1 = 4 Then r4 = 2
If r1 = 5 Then r4 = 1
If r1 = 6 Then r4 = 10
If r1 = 7 Then r4 = 9
If r1 = 8 Then r4 = 1
If r1 = 9 Then r4 = 7
If r1 = 10 Then r4 = 6
ruote(4) = r4
poste = Array(0,0.0,1.0,1.0,0.5,0.5) 'poste in gioco AMBO 1
'terno 1 QUAT 0.5 CINQUINA_ 0.5
num = Array(0,g(15),g(20),g(25),g(30),g(35))
ImpostaGiocata 1,num,ruote,poste,13,0,0
Gioca es
End If
Next
End If
Next
ScriviResoconto
End Sub