PER MIKE58

[trivellatomariotretre33]

CIAO MIKE QUESTO SCRIPT ME LO AI FATTO TU COME DEVO FARE PER FARE LA RICERCA SU 2 RUOTE O PIU A SCELTA
ESEMPIO IL 24 MARZO SU PALERMO ROMA E USCITO IL 6 ---VOGLIO VEDERE SE CI SONO STATI PRECEDENTI NELLE ESTRAZIOMI PRECEDENTI SU PAL ROMA
GRAZIE ECCO LO SCRIPT


Sub Main
Dim T,V,Ru(1)
Ini = EstrazioneIni'Fin - 1000
fin = EstrazioneFin
Call ScegliRange(Ini,fin)
Scrivi "Range Inizio : " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine : " & GetInfoEstrazione(fin),1
Scrivi
ReDim N(0)
ScegliNumeri(N)
r = ScegliRuota
Ru(1) = r
sorte = ScegliEsito
Scrivi "Sorte Analizzata : " & NomeSorte(sorte),1,,,1,2
T = Array(T,"Conta","Ruota","Combinazione","Esito","Verifica","Numeri In Estrazione","Data storico","Ritardo Cronologico","Ritardo Corrente EstraZ")
Call InitTabella(T,1,,2,5)
For es = fin To Ini Step - 1
Call VerificaEsitoTurbo(N,Ru,es,sorte,1,,esito,clp,es1,id)
sr = SerieRitardoTurbo(Ini,es - 1,N,Ru,sorte)
sto = SerieStoricoTurbo(Ini,fin,N,Ru,sorte)
If esito <> "" Then
k = k + 1
Call Messaggio("Trovati. . . . " & k)
Call AvanzamentoElab(Ini,fin,es)
V = Array(V,k,SiglaRuota(r),StringaNumeri(N),esito,es1,StringaEstratti(id,r),GetInfoEstrazione(id),fin - es,sr)
Call AddRigaTabella(V,,,2)
If sto = sr Then Call SetColoreCella(9,3,1)
End If
If ScriptInterrotto Then Exit For
Next
CreaTabella
Scrivi"Ritardo Storico : " & sto,1
Scrivi
Scrivi "Tabella By Mike58 ",1,,,1,3,,1
End Sub

 

[Mike58]

Eccoti la verifica + Ruote, ma devo togliere la colonna delle estrazioni x ruota in quanto se scegli + ruote non è possibile scrivere gli estratti.

Sub Main
 Dim T,V
 Ini = EstrazioneIni'Fin - 1000
 fin = EstrazioneFin
 Call ScegliRange(Ini,fin)
 Scrivi "Range Inizio : " & GetInfoEstrazione(Ini),1
 Scrivi "Range Fine : " & GetInfoEstrazione(fin),1
 Scrivi
 ReDim N(0)
 ScegliNumeri(N)
 ReDim Ru(0)
 r = ScegliRuote(Ru)
 sorte = ScegliEsito
 Scrivi "Sorte Analizzata : " & NomeSorte(sorte),1,,,1,2
 T = Array(T,"Conta","Ruota","Combinazione","Esito","Ve rifica","Data storico","Ritardo Cronologico","Ritardo Corrente EstraZ")
 Call InitTabella(T,1,,2,5)
 For es = fin To Ini Step - 1
  Call VerificaEsitoTurbo(N,Ru,es,sorte,1,,esito,clp,es1,id)
  sr = SerieRitardoTurbo(Ini,es - 1,N,Ru,sorte)
  sto = SerieStoricoTurbo(Ini,fin,N,Ru,sorte)
  If esito <> "" Then
   k = k + 1
   Call Messaggio("Trovati. . . . " & k)
   Call AvanzamentoElab(Ini,fin,es)
   V = Array(V,k,StringaRuote(Ru),StringaNumeri(N),esito,es1,GetInfoEstrazione(id),fin - es,sr)
   Call AddRigaTabella(V,,,2)
   If sto = sr Then Call SetColoreCella(8,3,1)
  End If
  If ScriptInterrotto Then Exit For
 Next
 CreaTabella
 Scrivi"Ritardo Storico : " & sto,1
 Scrivi
 Scrivi "Tabella By Mike58 ",1,,,1,3,,1
End Sub

 

[trivellatomariotretre33]

MIKE58 SEI FORMIDABILE GRAZIE ERA COME VOLEVO UNA STRETTA DI MANO CHILOMETRICA