per studio, sapendo che è una bozza in fase di evoluzione e ricerca di miglioramenti, vi posto questo script:
[codice]
Option Explicit
Sub Main
Dim n,fine,es,m,rit,Ini,aretritardi,aretidestr,z,q,y,e,r,qt,min
Dim comb(10),ra(10),ar(1),rie(500,2),mn(10)
fine = InputBox("estraz.n.",,EstrazioneFin)
r = InputBox("Ruota",,1)
qt = CInt(InputBox("n.Estrazioni a ritroso",,EstrazioneFin - fine))
min = CInt(InputBox("Ritardo Estratto minimo..",,9))
Ini = fine
For n = 1 To 90
comb(DecinaNaturale
) = comb(DecinaNaturale
) & Format2
& "."
rit = EstrattoRitardoTurbo(r,n,3950,fine)
ra(DecinaNaturale
) = ra(DecinaNaturale
) & FormattaStringa(rit,"000") & "."
If rit <= min Then
mn(DecinaNaturale
) = mn(DecinaNaturale
) & Format2
& "."
End If
Next
Scrivi "Periodo : " & Ini & " / " & fine & " Ruota...." & NomeRuota(r),1
Scrivi "Situazione dei ritardi all'estrazione n." & Ini & " / " & DataEstrazione(Ini),1
Scrivi "Includi numeri con ritardi < di..." & min,1
Scrivi "N u m e r i................... R i t a r d i............................Studio Filtro Rid. Combinazione ",1
For m = 0 To 10
Scrivi comb(m) & " " & ra(m) & " " & mn(m)
ReDim an(10),com(10),matriceritorno(55)
Call SplitByChar(comb(m),".",com)
' Scrivi comb(m) & " " & StringaNumeri(com,"-") & "......." & UBound(com)
ar(1) = r
If qt > 0 Then
Call ElencoRitardiTurbo(com,ar,2,Ini + 1,EstrazioneFin,aretritardi,aretidestr)
For q = 1 To UBound(aretritardi) - 1
Call GetEstrazioneCompleta(aretidestr(q),matriceritorno)
ColoreTesto(1)
y = y + 1
rie(y,1) = Format2(aretidestr(q) - Ini)
rie(y,2) = ">>>" & Ini & ": " & aretidestr(q) & " colpo n. " & Format2(aretidestr(q) - Ini) & "...." & StringaNumeri(com,".") & " Estratti.." & matriceritorno(r,1) & " " & matriceritorno(r,2) & " " & matriceritorno(r,3) & " " & matriceritorno(r,4) & " " & matriceritorno(r,5)
ColoreTesto(0)
Next
End If
Next
Scrivi " E s i t i........ o.......... R i s u l t a t i ",1
'''''''riepilogo
If qt > 0 Then
Call OrdinaMatrice(rie,- 1)
For e = 1 To y - 1
Scrivi rie(e,2)
Next
End If
End Sub
[/codice]