script_10eL_10eL5M - Le urne by Silop

WebRadio
HOMEPAGE
Lorem ipsum dolor sit amet, consectetur adipiscing elit.
WebRadio
Vai ai contenuti

Ecco il terzo e quarto script sul 10e lotto serale e 10elotto 5 minuti 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_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(n) = 0 ' azzera il numero sortito nel vettore di controllo
               aFreq(n) = aFreq(n) + 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

HOMEPAGE
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec commodo sapien et dapibus consequat. Phasellus a sagittis massa. Suspendisse potenti.
Duis non arcu venenatis, cursus ex.
Created with WebSite X5
ABOUT
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec commodo sapien et dapibus consequat. Phasellus a sagittis massa. Suspendisse potenti.
WebRadio
POLICY
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec commodo sapien et dapibus consequat.
Phasellus a sagittis massa. Suspendisse potenti. Duis non arcu venenatis, auctor ante facilisis, cursus ex. Fusce vitae lacinia turpis, sit amet feugiat turpis. Donec ac augue sed tortor maximus venenatis.
Torna ai contenuti