BaffoBlù
Advanced Member >PLATINUM<
Lo script non è un metodo...
(l'ambata in gioco è fittizia...)
Ma ha un problema
è troppo lento...
Qualche Mago Scripter riesce a velocizzarlo?
(senza farmi perdere nulla delle "varianti" che ho incluso...)
Thanks
(l'ambata in gioco è fittizia...)
Ma ha un problema
è troppo lento...
Qualche Mago Scripter riesce a velocizzarlo?
(senza farmi perdere nulla delle "varianti" che ho incluso...)
Thanks
Codice:
Option Explicit
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,sp1,sp2
Dim ruota(11)
Dim ruote(11)
Dim posta(10)
Dim n(1)
posta(1) = 1
ruota(1) = r
ruote(1) = r1
r = CInt(InputBox(" Scegli la Ruota Base ",,"1"))
sp1 = CInt(InputBox(" Dammi il Jolly ",,"1"))
'sp2 = CInt(InputBox(" Dammi un 1° Estratto a scelta da Analizzare 01-90 ",,"1"))
Tm = 4121' Inizio 1950 - Fisso
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
Ini = Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 11
If r1 = 11 Then r1 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
If IndiceMensile(es) = 1 Then ' remmare per qualsiasi estrazione
ruota(1) = r
ruote(1) = r1
a = Estratto(es,r,1)
'If a = sp2 Then
n(1) = Fuori90(a + sp1)
ruota(1) = r
ruote(1) = r1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi "Jolly : " & sp1,1,,4,2,2
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & "1°Estratto : " & Format2(a) & " * Ambata " & Format2(n(1)) & " ",1,,4,1,2
Scrivi String(70,"°"),1
ImpostaGiocata 1,n,ruote,posta,Clp,1
Gioca es,1,,1
If ScriptInterrotto Then Exit For
End If ' remmare per qualsiasi estrazione
'End If ' togli remmatura se usi (If a = sp2 Then)
Next
Next
Scrivi
Scrivi String(70,"*")
ColoreTesto 2
Scrivi" Totale casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
ScriviResoconto,False
End Sub
)
