Novità

script interessante

S

setting

Junior Member
Ciao a tutti,mi piacerebbe,se fosse possibile,avere la possibilità tramite script di poter individuare
impostando ruota,numero e numero di volte in cui è uscito quale è il ritardo che non ha ancora
avuto nel range impostato.
Esempio:imposto ruota Bari/imposto il numero 3/imposto le ultime N volte che è uscito 50
ora lo script mi dira che nelle ultime 50 uscite il numero 3 ha avuto ritardo:
1=3
2=7
3=2
4=0
5=1
e via fino a 50.Comunque sia non volendo fare la lista il dato che deve evidenziare è lo zero (nell'esempio il numero 4)
in modo che possa essere messo in gioco x un solo colpo un solo numero in quel determinato ritardo.
Spero di aver reso l'idea e spero che a qualcuno possa interessare fare questo script.

Anticipatamente grazie.
 
Ciao Setting,

questo script che ti permette di scegliere ruota e NumSortite e ti restituisce una maxi tabella con
le sortite per ritardo di tutti i 90 numeri così eviti di farlo girare tante volte... Dovrebbe essere leggibile... ho evidenziato le zero sortite...

Fammi sapere se può andare. Controlla anche tu se trovi errori...
nb: per ora analizza da 0 a 230 colpi di ritardo
ciao

Codice: 
Option Explicit
Sub Main
'0904_15 Rosanna x Setting
'http://forum.lottoced.com/f12/script-interessante-106405/

Dim es,r,nSortite,c,rit,i,y
Dim nTabRit(230,90),nu(1),ru(1),Tot(90)

r = ScegliRuota
ru(1) = r
nSortite = CInt(InputBox("Quante sortite vuoi analizzare per ogni numero?",,50)) ' sortite di cui rilevare il ritardo

For i = 0 To 230 ' inzializzo la matrice dei risultati - gli zero mi torneranno utili nell'ouput
	For y = 1 To 90
		nTabRit(i,y) = 0
	Next
Next

For i = 1 To 90 '--------- in questo blocco verifico le sortite di ogni num e memorizzo la q.tà per ogni ritardo
	AvanzamentoElab 1,90,i		
	nu(1) = i
	c = 0 ' contatore delle sortite
	For es = EstrazioneFin To 1 Step - 1	
		If Posizione(es,r,i) > 0 Then
			c = c + 1
			rit = SerieRitardo(1,es - 1,nu,ru,1)
			nTabRit(rit,i) = nTabRit(rit,i) + 1
		End If
		If c = nSortite Then Exit For
	Next
Next
'----------------------------------- scrivo la matrice con i risultati -----------------------------------
Call Scrivi ("TABELLA RITARDI DELLE ULTIME " & nSortite & " SORTITE SULLA RUOTA DI " & SiglaRuota(r),1)
Call Scrivi ("(Legenda: righe=ritardo - colonne: i 90 numeri)")
Scrivi

Call Scrivi (Space(4),0,0)
For i = 1 To 90 
	Call Scrivi (Format2(i) & " ",0,0) ' la prima riga dei 90 numeri
Next
Scrivi
ColoreTesto 0
For i = 0 To 230
	Call Scrivi (FormatSpace(i,3,1) & " ",0,0)
	For y = 1 To 90
		If nTabRit(i,y) = 0 Then ColoreTesto 2 Else ColoreTesto 1 ' gestisco il colore delle sortite
		Call Scrivi (FormatSpace(nTabRit(i,y),2,1) & " ",0,0) ' scrivo il num sortite per ogni rit e ogni num
		Tot(y) = Tot(y) + nTabRit(i,y) ' memorizzo sul vettore il tot delle sortite per una verifica
	Next
	ColoreTesto 0
	Call Scrivi (FormatSpace(i,3,1))
Next
Call Scrivi ("Tot ",1,0)
For i = 1 To 90
	Call Scrivi (FormatSpace(Tot(i),2,1) & " ",0,0) ' scrivo come ultima riga il tot sortite per ogni numero
Next
Scrivi		
End Sub
 
Rosanna ha scritto:
Ciao Setting,

questo script che ti permette di scegliere ruota e NumSortite e ti restituisce una maxi tabella con
le sortite per ritardo di tutti i 90 numeri così eviti di farlo girare tante volte... Dovrebbe essere leggibile... ho evidenziato le zero sortite...

Fammi sapere se può andare. Controlla anche tu se trovi errori...
nb: per ora analizza da 0 a 230 colpi di ritardo
ciao

Codice: 
Option Explicit
Sub Main
'0904_15 Rosanna x Setting
'http://forum.lottoced.com/f12/script-interessante-106405/

Dim es,r,nSortite,c,rit,i,y
Dim nTabRit(230,90),nu(1),ru(1),Tot(90)

r = ScegliRuota
ru(1) = r
nSortite = CInt(InputBox("Quante sortite vuoi analizzare per ogni numero?",,50)) ' sortite di cui rilevare il ritardo

For i = 0 To 230 ' inzializzo la matrice dei risultati - gli zero mi torneranno utili nell'ouput
	For y = 1 To 90
		nTabRit(i,y) = 0
	Next
Next

For i = 1 To 90 '--------- in questo blocco verifico le sortite di ogni num e memorizzo la q.tà per ogni ritardo
	AvanzamentoElab 1,90,i		
	nu(1) = i
	c = 0 ' contatore delle sortite
	For es = EstrazioneFin To 1 Step - 1	
		If Posizione(es,r,i) > 0 Then
			c = c + 1
			rit = SerieRitardo(1,es - 1,nu,ru,1)
			nTabRit(rit,i) = nTabRit(rit,i) + 1
		End If
		If c = nSortite Then Exit For
	Next
Next
'----------------------------------- scrivo la matrice con i risultati -----------------------------------
Call Scrivi ("TABELLA RITARDI DELLE ULTIME " & nSortite & " SORTITE SULLA RUOTA DI " & SiglaRuota(r),1)
Call Scrivi ("(Legenda: righe=ritardo - colonne: i 90 numeri)")
Scrivi

Call Scrivi (Space(4),0,0)
For i = 1 To 90 
	Call Scrivi (Format2(i) & " ",0,0) ' la prima riga dei 90 numeri
Next
Scrivi
ColoreTesto 0
For i = 0 To 230
	Call Scrivi (FormatSpace(i,3,1) & " ",0,0)
	For y = 1 To 90
		If nTabRit(i,y) = 0 Then ColoreTesto 2 Else ColoreTesto 1 ' gestisco il colore delle sortite
		Call Scrivi (FormatSpace(nTabRit(i,y),2,1) & " ",0,0) ' scrivo il num sortite per ogni rit e ogni num
		Tot(y) = Tot(y) + nTabRit(i,y) ' memorizzo sul vettore il tot delle sortite per una verifica
	Next
	ColoreTesto 0
	Call Scrivi (FormatSpace(i,3,1))
Next
Call Scrivi ("Tot ",1,0)
For i = 1 To 90
	Call Scrivi (FormatSpace(Tot(i),2,1) & " ",0,0) ' scrivo come ultima riga il tot sortite per ogni numero
Next
Scrivi		
End Sub
Clicca per espandere...

Carissima Rosanna ho provato il tuo script e devo dire che fa quello che avevo chiesto e ti ringrazio tanto per il lavoro fatto,sei fantastica SMAC...SMAC.....CIAO
 
Ciao Nino
non saprei dirti... io l'ho riprovato ora su SpazioMetria versione 1.4.44, scegliendo una ruota a caso (bari) e impostando 50 come sortite (praticamente i valori di default)
e funziona.

Tu su quale versione lo esegui e con quali parametri?

R.
 
Rosanna fantastico script quello che ci hai fatto, riusciresti ad implementare al suo interno anche il ritardo attuale dell'uscita ed il MAX ritardo.

Grazie ancora.
 
Li ho inseriti come prime due righe... vedi un po' se va.
Unica cosa siccome i ritardi sono anche di 3 cifre ho dovuto distanziare tutta la tabella... Ciao

Codice: 
Option Explicit
Sub Main
'0904_15b Rosanna x Setting-implementato x parmando
'http://forum.lottoced.com/f12/script-interessante-106405/

Dim es,r,nSortite,c,rit,i,y
Dim nTabRit(230,90),nu(1),ru(1),Tot(90)
Dim nRitAtt(90),nMaxSto(90),sRitAtt,sMaxSto
r = ScegliRuota
ru(1) = r
nSortite = CInt(InputBox("Quante sortite vuoi analizzare per ogni numero?",,50)) ' sortite di cui rilevare il ritardo

For i = 0 To 230 ' inzializzo la matrice dei risultati - gli zero mi torneranno utili nell'ouput
	For y = 1 To 90
		nTabRit(i,y) = 0
	Next
Next

For i = 1 To 90 '--------- in questo blocco verifico le sortite di ogni num e memorizzo la q.tà per ogni ritardo
	AvanzamentoElab 1,90,i		
	nu(1) = i
	c = 0 ' contatore delle sortite
	nRitAtt(i) = - 1
	nMaxSto(i) = - 1
	For es = EstrazioneFin To 1 Step - 1	
		If Posizione(es,r,i) > 0 Then
			c = c + 1
			rit = SerieRitardo(1,es - 1,nu,ru,1)
			nTabRit(rit,i) = nTabRit(rit,i) + 1
			If rit > nMaxSto(i) Then nMaxSto(i) = rit
		End If
		If c = nSortite Then Exit For
	Next
	nRitAtt(i) = SerieRitardo(1,EstrazioneFin,nu,ru,1)
Next
'----------------------------------- scrivo la matrice con i risultati -----------------------------------
Call Scrivi("TABELLA RITARDI DELLE ULTIME " & nSortite & " SORTITE SULLA RUOTA DI " & SiglaRuota(r),1)
Call Scrivi("(Legenda: righe=ritardo - colonne: i 90 numeri - valori =casi")
Call Scrivi(" MSt = Max rit storico rilevato tra le " & nSortite & "sortite - RAtt=Ritardo attuale)")
Scrivi

sMaxSto = "MSt "
sRitAtt = "RAtt"
For i = 1 To 90	
	sMaxSto = sMaxSto & FormatSpace(nMaxSto(i),3,1) & " "' creo la stringa dei max storici dei 90 num
	sRitAtt = sRitAtt & FormatSpace(nRitAtt(i),3,1) & " "' creo la stringa dei ritardi attuali dei 90 num
Next

Call ColoreTesto(2)
Call Scrivi(sMaxSto)
Call ColoreTesto(1) 
Call Scrivi(sRitAtt)
Call ColoreTesto(0)
Call Scrivi

Call Scrivi(Space(4),0,0)
For i = 1 To 90	
	Call Scrivi(FormatSpace(i,3,1) & " ",1,0) ' la prima riga dei 90 numeri
Next
Scrivi
ColoreTesto 0
For i = 0 To 230
	Call Scrivi(FormatSpace(i,3,1) & " ",0,0)
	For y = 1 To 90
		If nTabRit(i,y) = 0 Then ColoreTesto 2 Else ColoreTesto 1 ' gestisco il colore delle sortite
		Call Scrivi(FormatSpace(nTabRit(i,y),3,1) & " ",0,0) ' scrivo il num sortite per ogni rit e ogni num
		Tot(y) = Tot(y) + nTabRit(i,y) ' memorizzo sul vettore il tot delle sortite per una verifica
	Next
	ColoreTesto 0
	Call Scrivi(FormatSpace(i,3,1))
Next
Call Scrivi("Tot ",1,0)
For i = 1 To 90
	Call Scrivi(FormatSpace(Tot(i),2,1) & " ",0,0) ' scrivo come ultima riga il tot sortite per ogni numero
Next
Scrivi		
End Sub
 
Li ho inseriti come prime due righe... vedi un po' se va.
Unica cosa siccome i ritardi sono anche di 3 cifre ho dovuto distanziare tutta la tabella... Ciao

Codice: 
Option Explicit
Sub Main
'0904_15b Rosanna x Setting-implementato x parmando
'http://forum.lottoced.com/f12/script-interessante-106405/

Dim es,r,nSortite,c,rit,i,y
Dim nTabRit(230,90),nu(1),ru(1),Tot(90)
Dim nRitAtt(90),nMaxSto(90),sRitAtt,sMaxSto
r = ScegliRuota
ru(1) = r
nSortite = CInt(InputBox("Quante sortite vuoi analizzare per ogni numero?",,50)) ' sortite di cui rilevare il ritardo

For i = 0 To 230 ' inzializzo la matrice dei risultati - gli zero mi torneranno utili nell'ouput
	For y = 1 To 90
		nTabRit(i,y) = 0
	Next
Next

For i = 1 To 90 '--------- in questo blocco verifico le sortite di ogni num e memorizzo la q.tà per ogni ritardo
	AvanzamentoElab 1,90,i		
	nu(1) = i
	c = 0 ' contatore delle sortite
	nRitAtt(i) = - 1
	nMaxSto(i) = - 1
	For es = EstrazioneFin To 1 Step - 1	
		If Posizione(es,r,i) > 0 Then
			c = c + 1
			rit = SerieRitardo(1,es - 1,nu,ru,1)
			nTabRit(rit,i) = nTabRit(rit,i) + 1
			If rit > nMaxSto(i) Then nMaxSto(i) = rit
		End If
		If c = nSortite Then Exit For
	Next
	nRitAtt(i) = SerieRitardo(1,EstrazioneFin,nu,ru,1)
Next
'----------------------------------- scrivo la matrice con i risultati -----------------------------------
Call Scrivi("TABELLA RITARDI DELLE ULTIME " & nSortite & " SORTITE SULLA RUOTA DI " & SiglaRuota(r),1)
Call Scrivi("(Legenda: righe=ritardo - colonne: i 90 numeri - valori =casi")
Call Scrivi(" MSt = Max rit storico rilevato tra le " & nSortite & "sortite - RAtt=Ritardo attuale)")
Scrivi

sMaxSto = "MSt "
sRitAtt = "RAtt"
For i = 1 To 90	
	sMaxSto = sMaxSto & FormatSpace(nMaxSto(i),3,1) & " "' creo la stringa dei max storici dei 90 num
	sRitAtt = sRitAtt & FormatSpace(nRitAtt(i),3,1) & " "' creo la stringa dei ritardi attuali dei 90 num
Next

Call ColoreTesto(2)
Call Scrivi(sMaxSto)
Call ColoreTesto(1) 
Call Scrivi(sRitAtt)
Call ColoreTesto(0)
Call Scrivi

Call Scrivi(Space(4),0,0)
For i = 1 To 90	
	Call Scrivi(FormatSpace(i,3,1) & " ",1,0) ' la prima riga dei 90 numeri
Next
Scrivi
ColoreTesto 0
For i = 0 To 230
	Call Scrivi(FormatSpace(i,3,1) & " ",0,0)
	For y = 1 To 90
		If nTabRit(i,y) = 0 Then ColoreTesto 2 Else ColoreTesto 1 ' gestisco il colore delle sortite
		Call Scrivi(FormatSpace(nTabRit(i,y),3,1) & " ",0,0) ' scrivo il num sortite per ogni rit e ogni num
		Tot(y) = Tot(y) + nTabRit(i,y) ' memorizzo sul vettore il tot delle sortite per una verifica
	Next
	ColoreTesto 0
	Call Scrivi(FormatSpace(i,3,1))
Next
Call Scrivi("Tot ",1,0)
For i = 1 To 90
	Call Scrivi(FormatSpace(Tot(i),2,1) & " ",0,0) ' scrivo come ultima riga il tot sortite per ogni numero
Next
Scrivi		
End Sub
 
Grazie della velocità con cui hai fatto lo script Rosanna, hai la possibilità di farne uno che restituisca USCITE, RITARDO ATTUALE E RITARDO STORICO, (sempre parlando dei ritardi).....immettendo UNICAMENTE il Numero che si vuole scansionare?

Es: Bari, 10(il nr) 7(il ritardo)....dovrebbe restituire:

Bari Uscite 2...R.Attuale 21...R.Storico 77 <----dati non reali inseriti.

----------------------------------------------------------------------------------------------------------

Ancora grazie.
 
Ultima modifica:
Ho solo aggiunto qualche riga. :)

Per il nuovo listato numero e ruota da soli non bastano. Serve anche il periodo. Il primo ritardo se non completo andrebbe scartato...(per amor di precisione...)
Ci avevi pensato?
Vedo un po'... sull' output, è così semplice che personalmente opterei x l'elenco dei 90 per ruota...

adesso vado a fare altro... ciao
 
Dopo aver visionato il risultato dei 90 numeri, volevo visionare solo il numero che al momento potesse essere preso in considerazione, se guardi l'11 a Torino sono 123 volte che quando esce non si ripete il colpo successivo, ora non sappiamo se questo è il suo massimo storico o gli altri numeri hanno un riatrdo superiore.

Chiedendo al listato questa procedura singolarmente o del SOLO Ritardo "0" si avrebbe una visione ampia della statistica.

Comunque sempre grazie per il tuo impegno(io ho provato a fare delle modifiche al listato, ma il numero unico non sono riuscito a farlo.)

Ciao
 
Sono andata a controllare ed è vero. L'11 di TO è un monello! :D
dal tuo intervento ho capito cosa vuoi vedere, ma a questo punto mi sorge il dubbio che il max rit sto che vuoi tu sia di altro livello... (il problema degli esempi con i dati inventati è proprio questo... che è facile fraintendere... mentre con degli esempi reali, si ha un punto di riferimento utile sia per capire che per controllare il lavoro).

Ci studio su... a mente fredda... ciao
 
Dati Reali per capirci meglio:

Bari 10

Dal 08/07/1939 è uscito 284 volte

-------Posizione come Ritardo "7"--------------

nelle ultime 123 estrazioni è uscito 3 volte

ritardo attuale 4

Rit. Massimo 55 (eventualmente 56 se il programma legge anche quando viene estratto).

Grazie mille Rosanna.
 
Ultima modifica:
parmando ha scritto:
Dati Reali per capirci meglio:

nelle ultime 123 estrazioni è uscito 3 volte
Clicca per espandere...

quel dato non mi quadra...

Ecco l'output
Codice: 
RICERCA SORTITE DEL NUM 10 CON IL RITARDO 7 SU BA
ARCHIVIO ANALIZZATO DAL 08.07.1939(3575)

Estrazione/Data - sortita - RitardoII
3584 09.09.1939    1°        1
3890 21.07.1945    2°       16
3910 07.12.1945    3°        1
4361 31.07.1954    4°       33
4631 03.10.1959    5°       15
5117 01.02.1969    6°       19
6165 04.03.1989    7°       50
6462 12.11.1994    8°       16
6474 04.02.1995    9°        1
6876 29.12.1999   10°       21
7070 07.11.2001   11°       17
7440 04.05.2005   12°       22
8639 15.01.2013   13°       55

Sortite totali del num 10 -> 284
sortite del 10 con rit 7 -> 13
Ritardo attuale x la sortita del num 10 con rit 7 => 4 (Max: 55)

il listato
Codice: 
Option Explicit
Sub Main
	
'0904_18 Rosanna x parmando.ls
'http://forum.lottoced.com/f12/script-interessante-106405/index2.html


Dim ini,es,r,num,nRit,nSor,nSorRit,nRitII,nMaxII
Dim ru(1),nu(1)
	
r = ScegliRuota
num = CInt(InputBox("Quale NUMERO vuoi analizzare?",,10)) ' sortite di cui rilevare il ritardo
nRit = CInt(InputBox("Quale RITARDO per estratto vuoi analizzare?",,7)) ' sortite di cui rilevare il ritardo

ru(1) = r
nu(1) = num
ini=3575 ' inizio dal 8/7/39 archivio completo 10 Ruote (attenzione CA-GE)
nSor=0 ' conta le sortite del numero
nSorRit=0 ' conta le sortite del numero con il ritardo scelto
nRitII=0 ' ritardo della sortita del num con il ritardo scelto

Call Scrivi("RICERCA SORTITE DEL NUM " & num & " CON IL RITARDO "& nRit & " SU "& SiglaRuota(r),1)
Call Scrivi("ARCHIVIO ANALIZZATO DAL " & DataEstrazione(ini)& "("&ini&")",1)
Call Scrivi 
Call Scrivi ("Estrazione/Data - sortita - RitardoII",1)
'--------------------------------------------------------------------------
For es= ini To EstrazioneFin
	If Posizione(es,r,num)>0 Then
		nSor=nSor+1
		If SerieRitardo(1,es-1,nu,ru,1)=nRit Then
			nSorRit=nSorRit+1 ' conteggio le sortite con quel ritardo
			If nRitII> nMaxII Then nMaxII=nRitII
			Call Scrivi (es & " "& DataEstrazione(es) &" "& FormatSpace(nSorRit,4,1) & "° "& FormatSpace(nRitII,8,1))
			nRitII=0 ' ad ogni sortita inizializza il ritardo
		Else
			nRitII=nRitII+1
		End If	
	End If
Next
Call Scrivi	
Call Scrivi ("Sortite totali del num "& num& " -> "& nSor)
Call Scrivi ("sortite del " & num &" con rit "& nRit & " -> "& nSorRit)
Call Scrivi ("Ritardo attuale x la sortita del num "& num& " con rit "& nRit & " => "& nRitII & " (Max: "& nMaxII&")") 

End Sub

L'11 su TO con rit 0, aveva un max di 40... al momento è a 123 come hai segnalato. Vedi un po'... se va bene...
Alla fine l'ho lasciato semplice ma con il dettaglio delle varie sortite...
 
Ultima modifica:
caro parmando hai abbandonato il mondo della rula e ti sei dai al lotto? proprio ora che si è trovato un buon metodo per giocare guarda sul tubo battere il processore con la statistica
 
Ti faccio i miei più sinceri complimenti per aver completato lo script da me richiesto. Grazie ancora

n.b.: si, le presenze del rit.7 sono 4(e nn 3), erroneamente ho visto la riga del rit.8.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto