Se possibile uno script x salvo50 : Metodo " GLI ZERATI" di Zannella Pascquale

[claudio8]

Si.

questo script, copiato, in questo momento dal messaggio #13

'Zerati su 2rt isotopi in due ruote qualsiasi
Sub Main()
Dim rt(2),ru(1)
Dim nu(2),nu1(5)
Dim posta(1),poste(3)
posta(1) = 1
poste(2) = 1 : poste(3) = 1
clp = 12 'colpi di gioco
ini = EstrazioneFin - 20
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
For r = 1 To 10
rt(1) = r
For p = 1 To 5
a = Estratto(es,r,p)
If Cadenza(a) = 0 Then
For rr = r + 1 To 11
If rr = 11 Then rr = 12
rt(2) = rr
b = Estratto(es,rr,p)
If Cadenza(b) = 0 Then
co = co + 1
If r = rr - 1 Or r =10 And rr = 12 Then Scrivi String(55," = ") & " Attenzione... ruote consecutive",,,3,2
Scrivi String(55,"=") & " Caso n°" & co
Scrivi String(55,"=") & " Caso n°" & co ' questa riga ripete la scrittura
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Zerato " & a & " in pos." & p
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " Zerato " & b & " in pos." & p
nu(1) = Figura(a) & Figura(b)
nu(2) = Vert(nu(1))
ImpostaGiocata 1,nu,rt,posta,clp
nu1(1) = nu(1)
nu1(2) = nu(2)
nu1(3) = 91 -(a)
nu1(4) = 91 -(b)
ImpostaGiocata 2,nu1,rt,poste,clp
ru(1) = 11
ImpostaGiocata 3,nu1,ru,poste,clp
Gioca es, False,False,1
End If
Next
End If
Next
Next
ScriviResoconto
End Sub

Non funziona perchè manca il "Next" a chiudere il ciclo "For es = ini To Fin"

Poi ... per cavaleri ... ...........................

Joe
ma veramente stai mandando a me questa assurda annotazione.

Joe, ..., stai + attento.