| Ciao silop, tutti conosciamo la bravura di Rosanna che, con affetto, saluto....e lavorare su altri script non è facile...comunque, anche trovando delle difficoltà, ho fatto alcune modifiche riuscendo a questo....spero che possa andare bene.
Ciao, Enplein.
CODICE 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?",,10)) 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" 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) mRisultati(ciclo,f) = mRisultati(ciclo,f) + 1 ' aggiorno il numero di numeri per la freq nella tabella finale If f = w Then g = g + 1 :sNum = sNum & Format2(i) & " " 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 - 1 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 : Scrivi "Num in attesa di sortita settore " & FormatSpace(w,3,1) & " Ciclo " & ciclo & "° N. " & FormatSpace(stat(w,12),3,1) & " : " & stat(w,11),1 Next End Sub
|