Per Robinson

[salvo50]

La tua richiesta nel TOPIC - Script su metodi cabalistici
non mi sono accorto che è una richiesta statistica e io
in quel TOPIC, non faccio script statistici, e neanche
altrove, quindi ho cercato e ho trovato uno script di
Mike58, che saluto e spero stia bene.
Ho solo fatto la modifica di inserire un ìnputbox
per stabilire quante estrazioni indietro per la ricerca
Lo script è per tutte le ruote separate, e puoi
inserire anche più di 10 numeri

Sub Main()
   Dim num(20),numero(10),ruota(1),sorte,an,Ind
   sorte = CInt(InputBox("Quale sorte verificare ",,2))
   Ind = CInt(InputBox("Quante estrazioni indietro?  ",,10))
   nStart = Timer ' partenza tempo di elaborazione
   ScegliNumeri(num)
   Ini = EstrazioneFin - Ind
   fin = EstrazioneFin
   diff = fin - Ini
   Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",1,0,6
   Scrivi" " & StringaNumeri(num) & " ",1,0,2
   Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",1,- 1,3
   Scrivi String(100,"=")
   Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
   Scrivi String(100,"=")
   Scrivi
   '--------- crea tabella---------------
   ReDim atitoli(26)
   atitoli(1) = " Ruota "
   atitoli(2) = " Combinazione "
   atitoli(3) = " RD1 "
   atitoli(4) = " RD2 "
   atitoli(5) = " RD3 "
   atitoli(6) = " RD4 "
   atitoli(7) = " RD5 "
   atitoli(8) = " RIT.ATT "
   atitoli(9) = " RIT.STO "
   atitoli(10) = " incr. storico "
   atitoli(11) = " FREQ. "
   atitoli(12) = " - esito - "
   atitoli(13) = " - stringa Esito- "
   atitoli(14) = " Estratti ultimi "
   atitoli(15) = " RP1 "
   atitoli(16) = " RP2 "
   atitoli(17) = " RP3 "
   atitoli(18) = " RP4 "
   atitoli(19) = " RP5 "
   atitoli(20) = " RP6 "
   atitoli(21) = " RP7 "
   atitoli(22) = " RP8 "
   atitoli(23) = " RP9 "
   atitoli(24) = " RP10 "
   atitoli(25) = " SM RP "
   atitoli(26) = " MD RP "
   ' inizializzo la tabella
   Call InitTabella(atitoli,1,,,5)
   For r = 1 To 12
      'If r = 11 Then r = 12
      ruota(1) = r
      Call AvanzamentoElab(Ini,fin,n)
      If ScriptInterrotto Then Exit For
      Call StatisticaFormazioneTurbo(num,ruota,sorte,ritturbo,ritmaxturbo,incrRitMaxturbo,freqturbo,Ini,fine)
      Call VerificaEsitoTurbo(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
      '------- calcolo ritardi precedenti------------
      'For q = 1 To UBound(num)
      ReDim rp(11)
      Inizio = EstrazioneIni
      fine = EstrazioneFin
      somritturbo = 0
      For z = 1 To 11
         rp(z) = SerieRitardoTurbo(Inizio,fine,num,ruota,sorte)
         fine = fine -(rp(z) + 1)
         somritturbo = somritturbo + rp(z)
         Medritturbo = Int(somritturbo/z)
      Next
      'Next
      ' fine calcolo----------------------------------
      '----- calcolo valori in tabella --------------
      ReDim avalori(26)
      avalori(1) = NomeRuota(r)
      avalori(2) = StringaNumeri(num,,True)
      avalori(3) = RitDiPos(num,1,ruota)
      avalori(4) = RitDiPos(num,2,ruota)
      avalori(5) = RitDiPos(num,3,ruota)
      avalori(6) = RitDiPos(num,4,ruota)
      avalori(7) = RitDiPos(num,5,ruota)
      avalori(8) = rp(1)
      avalori(9) = ritmaxturbo
      avalori(10) = incrRitMaxturbo
      avalori(11) = freqturbo
      avalori(12) = retesito
      avalori(13) = retestratti
      avalori(14) = StringaEstratti(fin,r)
      avalori(15) = rp(2)
      avalori(16) = rp(3)
      avalori(17) = rp(4)
      avalori(18) = rp(5)
      avalori(19) = rp(6)
      avalori(20) = rp(7)
      avalori(21) = rp(8)
      avalori(22) = rp(9)
      avalori(23) = rp(10)
      avalori(24) = rp(11)
      avalori(25) = somritturbo
      avalori(26) = Medritturbo
      Call AddRigaTabella(avalori)
      Call SetColoreCella(8,,7)
   Next
   Call CreaTabella()
   Scrivi " Script By Mike58 ",1,- 1,6
   nend = Timer
   Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
   'Questa Function trasforma il numero di secondi passato come parametro in una stringa
   ' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
   ' s ---> Numero di secondi da formattare
   ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
   Dim hh
   Dim Mm
   Dim Ss
   Dim TimeStr
   hh = s'3600
   Mm =(s Mod 3600) '60
   Ss = s -((hh * 3600) +(Mm * 60))
   TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
   FormattaSecondi = TimeStr
End Function
Function RitDiPos(num,pos,ruota)
   ReDim aPos(5)
   ReDim aRuote(1)
   ReDim aNum(1)
   aNum(1) = num
   aPos(pos) = True
   aRuote(1) = ruota
   RitDiPos = RitardoCombinazioneTurbo(ruota,num,1,0,aPos)
End Function