| Ciao, ho buttato giù uno script "brutale brutale", che però mi sembra abbastanza efficace e rapido. Impostando il valore RitMin, scandaglia i 90 numeri su tutte le 11 ruote. Nel caso un estratto sia sortito per 10 volte consecutive con un ritardo superiore a RitMin, rileva il caso. Ovviamente, smanettando un po' si possono aumentare e/o diminuire il numero di ritardi consecutivi. Saluti Option Explicit Sub Main Dim nSorte Dim k,RitMin,x,y ReDim aRetRitardi(0) ReDim aRetIdEstr(0)
nSorte = 1 RitMin = 17
ReDim aNum(1) ReDim aRt(1) For y = 1 To 12 If y= 11 Then y = 12 aRt(1) = y For x = 1 To 90 Messaggio("Ruota di " & SiglaRuota(y) & " - " & x ) aNum(1) = x Call ElencoRitardiTurbo(aNum,aRt,nSorte,EstrazioneIni,EstrazioneFin,aRetRitardi,aRetIdEstr) For k = 1 To UBound(aRetRitardi) - 9 If aRetRitardi(k) > RitMin And _ aRetRitardi(k + 1) > RitMin And _ aRetRitardi(k + 2) > RitMin And _ aRetRitardi(k + 3) > RitMin And _ aRetRitardi(k + 4) > RitMin And _ aRetRitardi(k + 5) > RitMin And _ aRetRitardi(k + 6) > RitMin And _ aRetRitardi(k + 7) > RitMin And _ aRetRitardi(k + 8) > RitMin And _ aRetRitardi(k + 9) > RitMin Then Call Scrivi("Ruota di " & SiglaRuota(y) & " Estratto " & Format2(aNum(1)),,0) Call Scrivi(" STO1 " & FormattaStringa(aRetRitardi(k) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 1),"00000") & "|",,0) Call Scrivi(" STO2 " & FormattaStringa(aRetRitardi(k + 1) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 2),"00000") & "|",,0) Call Scrivi(" STO3 " & FormattaStringa(aRetRitardi(k + 2) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 3),"00000") & "|",,0) Call Scrivi(" STO4 " & FormattaStringa(aRetRitardi(k + 3) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 4),"00000") & "|",,0) Call Scrivi(" STO5 " & FormattaStringa(aRetRitardi(k + 5) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 5),"00000") & "|",,0) Call Scrivi(" STO6 " & FormattaStringa(aRetRitardi(k + 6) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 6),"00000") & "|",,0) Call Scrivi(" STO7 " & FormattaStringa(aRetRitardi(k + 7) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 7),"00000") & "|",,0) Call Scrivi(" STO8 " & FormattaStringa(aRetRitardi(k + 8) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 8),"00000") & "|",,0) Call Scrivi(" STO9 " & FormattaStringa(aRetRitardi(k + 9) + 1,"000") & " " & FormattaStringa(aRetIdEstr(k + 9),"00000") & "|",,0) If k = UBound(aRetRitardi) - 10 Then ColoreTesto 2 Call Scrivi(" ATT10 " & FormattaStringa(EstrattoRitardoTurbo(y,x,EstrazioneFin - 300,EstrazioneFin),"00000")& " ***" ) ColoreTesto 0 Else Call Scrivi(" STO10 " & FormattaStringa(EstrattoRitardoTurbo(y,x,EstrazioneFin - 300,EstrazioneFin),"00000")) End If End If Next Next Next End Sub
|