Option Explicit
Sub Main
'0904_32d Rosanna x Silop 10eLotto.ls
'Forum di Enplein :
http://ambolotto.forumfree.it/?t=67330867
'Versione 10eLotto - e - 10eLotto 5 minuti
Dim x,ini,fin,es,p,n,i,y,f,sortiti,ini2
Dim ciclo,nEstraz
ReDim aFreq(90),aNumeri(90)
ReDim mRisultati(6000,23)'<---6000 corrisponde al max cicli che contiene la tab finale... col tempo aumentare se necessario
Dim sNum
x = CInt(InputBox("Scegli l'archivio. 1=10eLotto; 2=10eLotto 5 minuti",,2))
ImpostaArchivio10ELotto(x)
ini = InputBox("INIZIO RICERCA ESTRAZIONE N°",,1)
fin = EstrazioniArchivioDL
ciclo = 0
ini2 = ini
nEstraz = 0
'-------------------------------------
For i = 1 To 90 'inizializzo la matrice
aNumeri(i) = i 'vettore per il controllo sortita di ciascun numero
aFreq(i) = 0 ' la frequenza
Next
'----------------------------------
For es = ini To fin
Messaggio es
For p = 1 To 20
n = EstrattoDL(es,p)
aNumeri
= 0 ' azzera il numero sortito nel vettore di controllo
aFreq
= aFreq
+ 1 ' conta le frequenze di sortita
Next
If EstrattoDL(es,1) > 0 Then nEstraz = nEstraz + 1' conta le estrazioni salvo che siano vuote...
sortiti = 0
For i = 1 To 90
If aNumeri(i) > 0 Then sortiti = sortiti + 1 ' ad ogni estrazione verifica quandi num sono fin lì sortiti
Next
If sortiti = 0 Then
ciclo = ciclo + 1 ' conta i cicli naturali
mRisultati(ciclo,21) = nEstraz
mRisultati(ciclo,22) = ini2
mRisultati(ciclo,23) = es ' estrazione che chiude il ciclo naturale
For i = 1 To 90
f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
mRisultati(ciclo,f)=mRisultati(ciclo,f) + 1 ' aggiorno il numero di numeri per la freq nella tabella finale
Next
ini2 = es + 1
'---------------------------------------------------------------------
nEstraz = 0 ' riazzero il numero di estrazioni (durata ciclo naturale)
For i = 1 To 90 'reinizializzo la matrice
aNumeri(i) = i 'vettore per il controllo sortita di ciascun numero
aFreq(i) = 0 ' la frequenza
Next
'---------------------------------------------------------------------
ElseIf es = fin Then ' per gestire il ciclo in corso...
ciclo = ciclo + 1 ' conta i cicli naturali
mRisultati(ciclo,21) = nEstraz
mRisultati(ciclo,22) = ini2
mRisultati(ciclo,23) = "in corso"
sNum = ""
For i = 1 To 90
f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1 ' aggiorno il numero di numeri per la freq nella tabella finale
If f = 0 Then sNum = sNum & Format2(i) & " "
Next
'------------------------------------------------
End If
If ScriptInterrotto Then Exit For
Next
Scrivi "------------------------------------------------------------------------------------------"
Scrivi Space(11) & "RICERCA by Silop SU ARCHIVIO 10elotto (" & x & ") DALLA ESTRAZIONE NUMERO: " & ini,1
Scrivi Space(9) & " (NB: Estrazioni in archivio= " & fin & ")"
Scrivi "------------------------------------------------------------------------------------------"
Scrivi
Scrivi Space(3) & " |-------------- quantità numeri per frequenza ------------------|",1
Scrivi " Pr.| ",1,0
For y = 0 To 20
Scrivi FormatSpace(y,2,1) & "|",1,0
Next
Scrivi "Estraz | Inizio| Fine",1
Scrivi String(90,"-")
'------------------------------------------
For i = 1 To ciclo
If i = ciclo And mRisultati(ciclo,0) > 0 Then ColoreTesto 2 Else ColoreTesto 0
Scrivi FormatSpace(i,3,1) & "°| ",0,0
For y = 0 To 20
Scrivi FormatSpace(mRisultati(i,y),2,1) & "|",0,0
Next
Scrivi FormatSpace(mRisultati(i,21),6,1) & " | ",0,0
Scrivi FormatSpace(mRisultati(i,22),5,1) & " | ",0,0
Scrivi FormatSpace(mRisultati(i,23),5,1)
ColoreTesto 0
Next
If sNum <> "" Then ColoreTesto(2): Scrivi: Scrivi "10elotto (" & x & ")": Scrivi "Num In attesa di sortita: " & sNum,1
End Sub
questo è lo script