L'invincibile

[scarfacetony]

Buona serata a tutti,per chi vuole fare uno script,nei meandri di una chiavetta ho ritrovato questo metodo di Roberto Marino

 

[Sakti]

Non sfrutta tutti gli ambi ripetuti, ma solo quelli isotopi..
Però rispetta la Tabella..

Anticipazione (Spoiler)

'L'Invincibile di Roberto Marino by Sakti for Scarfacetony
Sub Main()
Dim nm(1),nu(2),nu1(2),nu2(3),nu3(3),ruote(12),poste(2),poste1(3),posta(10)
posta(1) = 1
poste(2) = 1
poste1(2) = 1
poste1(3) = 1
fin = EstrazioneFin
ini = fin - 208
For es = ini To fin
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
sm1 = Fuori90(n1 + n2)
sm2 = Fuori90(n2+n3)
If n1 = n3 And n2 = n4 Then
If sm1 = sm2 Then
a = Fuori90(sm1 + 59)
b = Fuori90(sm1 + 25)
c = Fuori90(sm1 + 69)
e = Fuori90(sm1 + 07)
f = Fuori90(sm1 + 56)
g = Fuori90(sm1 + 05)
h = Fuori90(sm1 + 69)
casi = casi + 1
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo somma < " & Format2(sm1) & " >" & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo somma < " & Format2(sm2) & " >" & Format2(n3) & "." & Format2(n4) & " >"
ColoreTesto 1:Scrivi String(70,152) & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2':ruote(3) = 11
k = 10
co = 0
nm(1) = a
ImpostaGiocata 1,nm,ruote,posta,k' ||59|
nu(1) = a
nu(2) = b
ImpostaGiocata 2,nu,ruote,poste,k' ||59|25|
nu1(1) = a
nu1(2) = c
ImpostaGiocata 3,nu1,ruote,poste,k' ||59|69|
nu2(1) = a
nu2(2) = e
nu2(3) = f
ImpostaGiocata 4,nu2,ruote,poste1,k' ||59|07|56|
nu3(1) = a
nu3(2) = g
nu3(3) = h
ImpostaGiocata 5,nu3,ruote,poste1,k' ||59|05|69|
Gioca es,1
co = co + 1
End If
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub

 

[scarfacetony]

Non sfrutta tutti gli ambi ripetuti, ma solo quelli isotopi..
Però rispetta la Tabella..

Anticipazione (Spoiler)

'L'Invincibile di Roberto Marino by Sakti for Scarfacetony
Sub Main()
Dim nm(1),nu(2),nu1(2),nu2(3),nu3(3),ruote(12),poste(2),poste1(3),posta(10)
posta(1) = 1
poste(2) = 1
poste1(2) = 1
poste1(3) = 1
fin = EstrazioneFin
ini = fin - 208
For es = ini To fin
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
sm1 = Fuori90(n1 + n2)
sm2 = Fuori90(n2+n3)
If n1 = n3 And n2 = n4 Then
If sm1 = sm2 Then
a = Fuori90(sm1 + 59)
b = Fuori90(sm1 + 25)
c = Fuori90(sm1 + 69)
e = Fuori90(sm1 + 07)
f = Fuori90(sm1 + 56)
g = Fuori90(sm1 + 05)
h = Fuori90(sm1 + 69)
casi = casi + 1
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo somma < " & Format2(sm1) & " >" & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo somma < " & Format2(sm2) & " >" & Format2(n3) & "." & Format2(n4) & " >"
ColoreTesto 1:Scrivi String(70,152) & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2':ruote(3) = 11
k = 10
co = 0
nm(1) = a
ImpostaGiocata 1,nm,ruote,posta,k' ||59|
nu(1) = a
nu(2) = b
ImpostaGiocata 2,nu,ruote,poste,k' ||59|25|
nu1(1) = a
nu1(2) = c
ImpostaGiocata 3,nu1,ruote,poste,k' ||59|69|
nu2(1) = a
nu2(2) = e
nu2(3) = f
ImpostaGiocata 4,nu2,ruote,poste1,k' ||59|07|56|
nu3(1) = a
nu3(2) = g
nu3(3) = h
ImpostaGiocata 5,nu3,ruote,poste1,k' ||59|05|69|
Gioca es,1
co = co + 1
End If
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub

Grazie