Ecco di seguito lo script modificato dal bravo e disponibile scripter Enplein.
La mia richiesta è stata quella di poter vedere (output), ad una determinata estrazione,
contemporaneamente TUTTI i settori dell'urna.
Ecco lo script modificato :
==================================
Sub Main
'0904_32 Rosanna x Silop.ls
'Forum di Enplein : http://ambolotto.forumfree.it/?t=67330867
Dim ini,fin,es,r,p,n,i,y,f,sortiti,ini2
Dim ciclo,nEstraz
ReDim aFreq(90),aNumeri(90),stat(20,11),stat(20,12)
ReDim mRisultati(120,23)'<---120 corrisponde al max cicli che contiene la tab finale... col tempo aumentare se necessario
Dim sNum,z
r = CInt(InputBox("INSERISCI LA RUOTA DI RICERCA",,12))
ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°",,7440))
z = CInt(InputBox("QUANTI SETTORE VUOI?",,12))
fin = EstrazioneFin
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
For p = 1 To 5
n = Estratto(es,r,p)
aNumeri(n) = 0 ' azzera il numero sortito nel vettore di controllo
aFreq(n) = aFreq(n) + 1 ' conta le frequenze di sortita
Next
If Estratto(es,r,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 all'indice "&fin&" del "& DataEstrazione (fin)
For w = 0 To z
stat(w,11) = 0: stat(w,12) = 0 : g = 0 :sNum = ""
For i = 1 To 90
f = aFreq(i) ' memorizzo sulla variabile f la freq del numero (per facilità di scrittura listato)
' aggiorno il numero di numeri per la freq nella tabella finale
If f = w Then g = g + 1 :sNum = sNum & Format2(i) & " " : mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1
Next
stat(w,11) = sNum
stat(w,12) = g
Next
'------------------------------------------------
End If
If ScriptInterrotto Then Exit For
Next
Scrivi "------------------------------------------------------------------------------------------"
Scrivi Space(25) & "RICERCA by Silop SU " & SiglaRuota(r) & " DAL " & DataEstrazione(ini) & "(" & ini & ")",1
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
Scrivi
For w = 0 To z
ColoreTesto(2): Scrivi "Num in attesa di sortita settore " & FormatSpace(w,3,1) & "° N. " & FormatSpace(stat(w,12),3,1) & " : " & stat(w,11),1
Next
End Sub
============================ fine
