Ecco il secondo script sul lotto classico SOLO SU TUTTE (10 ruote da BA e VE) creato dalla bravissima Rosanna_S
novembre 2013 sul forum : L'ambolotto di Enplein
gira esclusivamente con il programma free SPAZIOMETRIA by LuigiB dalla versione 1.4.63 e successive
che puoi scaricare qui
by Silop
Option Explicit
Sub Main
'0904_32 Rosanna x Silop ruota tutte.ls
'Forum di Enplein : http://ambolotto.forumfree.it/?t=67330867
'QUESTO LISTATO VALE SOLO PER LA RUOTA TUTTE
Dim ini,fin,es,r,p,n,i,y,f,sortiti,ini2
Dim ciclo,nEstraz
ReDim aFreq(90),aNumeri(90)
ReDim mRisultati(900,23)'<---900 corrisponde al max cicli che contiene la tab finale... col tempo aumentare se necessario
Dim sNum
ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°",,3950)) 'nb la 3950 è l'inizio archivio senza buchi
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
nEstraz = nEstraz + 1' conta le estrazioni salvo che siano vuote...
For r = 1 To 10
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
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
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(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
If sNum <> "" Then ColoreTesto(2): Scrivi : Scrivi "Num in attesa di sortita: " & sNum,1
End Sub