Mike58

[trivellatomariotretre33]

ciao Micke58 poiche non posso essere sempre connesso a internet per svariate cause....
vengo al dunque
in tabbelle sei famoso e soprattuto con gli script (come ce ne sono altri certamente) io avrei bisogno di uno script che mi faccia le ricerche come in questo sito che ti indico

http://www.lottologia.com/lotto/?do=...ted=17.56#main

e cosi Mike58 con giocata in corso

http://www.lottologia.com/lotto/?do...mode=add&numbers_selected=25.28.38.64.70#main




certamente come vedi che possa fare ricerca libera a mia scelta come esempio sopra indicatoti
mi sono rivolto a te cosi perche i tuoi script sono similari e so che potresti realizzarlo
ti ringrazio anticipatamente con una stretta di mano.

 

[Mike58]

Ok eccoti una rielaborazione

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

 

[trivellatomariotretre33]

Mike58 sei bravissimo e grazie una stretta di mano chilometrica e un ringraziamento circolare da tanti che lo apprezzano grazie.