Orlistat 120mg $109.36 - $10.94 Per pill
Orlistat 120mg $360.89 - $6.01 Per pill
Orlistat 60mg $103.21 - $1.15 Per pill
Orlistat 60mg $193.22 - $1.07 Per pill
Orlistat 60mg $43.2 - $1.44 Per pill
Toledo | South Hadley | Montague | Oak Harbor | Orlistat Prairie Du Chien |
Three Rivers | West Bloomfield | Wood Dale | Central City | Shelburne |
Bad Salzdetfurth | Königswinter | Bad Bergzabern | Bergneustadt | Orlistat Bad Herrenalb |
Ocean City | Oneida | Orlistat Stigler | Avoca | Courtland | Kingston | Ventnor City | Leslie | Lawton |
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