-
circle77.
User deleted
grazie sean, ma sopratutto grazie a J-Gio che senza di lui, ci avrei messo chissa quanto a capire.
questo dovrebbe essere lo script giusto
(spero)CODICEOption Explicit
Sub Main
Dim Ini,Fin,Es,Ex,Res,Rex,P,Q,A,B,C,D,co,k,rs
Dim posta(1)
Dim ruote(2)
Dim am(2)
posta(1) = 1
k = 9
rs = InputBox("Quante estrazioni vuoi controllare?",,6200)
Fin = EstrazioneFin
Ini = Fin - rs
co = 0
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es : Ex = Es - 1
For Res = 2 To 10 : Rex = Res - 1
For P = 1 To 5
For Q = 1 To 5
A = Estratto(Es,Res,P) : B = Estratto(Ex,Rex,Q)
C = Estratto(Es,Rex,Q) : D = Estratto(Ex,Res,P)
If A <> 0 And B <> 0 And C <> 0 And D <> 0 Then
If A = B And C = D Then
am(1) = B
am(2) = C
ruote(1) = Res
ruote(2) = Rex
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(Ex) & " [ " & SiglaRuota(Rex) & " " & StringaEstratti(Ex,Rex) & " [ " & SiglaRuota(Res) & " " & StringaEstratti(Ex,Res),1,,,1
Scrivi DataEstrazione(Es) & " [ " & SiglaRuota(Rex) & " " & StringaEstratti(Es,Rex) & " [ " & SiglaRuota(Rex) & " " & StringaEstratti(Es,Res),1,,,1
Scrivi DataEstrazione(Ex) & " " & Left(NomeRuota(Rex),2) & " " & Format2(A) & " " & Left(NomeRuota(Res),2) & " " & Format2(D) & " Isotopia Numerica Rispettata "
Scrivi DataEstrazione(Es) & " " & Left(NomeRuota(Res),2) & " " & Format2(C) & " " & Left(NomeRuota(Rex),2) & " " & Format2(B) & " in " & P & "° e in " & Q & "° Pos."
Scrivi "-----------------------------------------------------------------"
ImpostaGiocata 1,am,ruote,posta,k,1
Gioca Es,1,,1
End If
End If
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" SCRIPT BY CIRCLE77 con aiuto di J-Gio91 "),1,3,0
ScriviResoconto
End Sub
.
L'isocronismo simmetrico |
