script_lotto - Le urne by Silop

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

Ecco il primo script sul lotto classico 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.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)
ReDim mRisultati(120,23)'<---120 corrisponde al max cicli che contiene la tab finale... col tempo aumentare se necessario
Dim sNum
       
r = CInt(InputBox("INSERISCI LA RUOTA DI RICERCA",,12))
ini = CInt(InputBox("INIZIO RICERCA ESTRAZIONE N°",,7440))
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"
               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

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