joe
Advanced Member >PLATINUM PLUS<
Ciao Skygirl,
Buona sera a tutte/i.
Non ho controllato nulla quindi chi fosse interessato,
è invitato a verificare che funzioni prima di affidarci aspettative.
*** Attenzione essendo versione di prova
ed essendo modifica di uno script,
realizzato per altro scopo,
potrebbe produrre risultati non veri. ***

Buona sera a tutte/i.
Non ho controllato nulla quindi chi fosse interessato,
è invitato a verificare che funzioni prima di affidarci aspettative.
Codice:
Option Explicit
Sub Main
'Cerca Estratto Bivalente Isotopo,
'Pone in gioco per 8 Colpi sulle ruote di rilevamento
'il numero che dopo un attesa di 24 Colpi di attesa non ha ancora realizzato cadute.
'Studio Statistico e Script By Joe. V.2.1 del 19/01/2017 *** DA CONTROLLARE ***
'http://forum.lottoced.com/forum/lottoced/area-download/2034850-numeri-isotopi-ricerca-con-spaziometria/page3
Dim Ini,Fin,Es,P
Dim R1,E1
Dim R2,E2
Dim Ris,Att,Clp
Dim Nu(1),Ru(2),G,Po(1)
Ini = 8790 : Fin = 8945
Att = 24 : Clp = 8 : Po(1) = 1
For Es = Ini To Fin : G = 0
AvanzamentoElab Ini,Fin,Es
For R1 = 1 To 10
For P = 1 To 5
E1 = Estratto(Es,R1,P)
For R2 = R1 + 1 To 12 : If R1 = 11 Then R2 = 12
E2 = Estratto(Es,R2,P)
If E1 = E2 Then
Nu(1) = E1 : Ru(1) = R1 : Ru(2) = R2
VerificaEsito Nu,Ru,Es+1,1,Att,,Ris
If Ris = "" Then
Scrivi String(100,"=") & " " & FormatSpace (Fin -Es,5,True) ,1
G = G + 1
ImpostaGiocata G,Nu,Ru,Po,Clp,1,Att
Gioca Es,True
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
*** Attenzione essendo versione di prova
ed essendo modifica di uno script,
realizzato per altro scopo,
potrebbe produrre risultati non veri. ***
