Novità

Aiuto x script x ambo a ruota

hettro

Banned
Ciao a tutti gli scriptci del forum.

Sarei interessato ad un aiuto per uno script che faccia quanto segue:

1 - da una ruota qualsiasi (in InputBox) diciamo BARI
2 - data una estrazione (in InputBox) diciamo 3959
3 - in un ciclo a ritroso (in InputBox) diciamo 9 estrazioni
4 - mi cerchi a ritroso i numeri ripetuti minimo 2 volte e li memorizza
i numeri trovati devono essere divisi e memorizzati per presenza (5 volte, 4 volte, 3 volte, 2 volte)
deve tralasciare quelli sortiti una sola volta.
5 - se trova almeno un numero ripetuto 3 volte deve giocare (dopo spiego cosa)
6 - se non trova almeno un numero ripetuto 3 volte deve saltate 9 estrazioni e ricominciare dal punto 4
7 - se invece ha rispettato il punto 5 e memorizzato correttamente i ripetuti gioca:
a) i numeri con più frequenza (5 - 4 - 3 volte) come capo gioco
b) i numeri soriti 2 volte come abbinamento
in definitiva deve formare tanti ambi secchi aventi come capo gioco i numeri sortiti + di 2 volte
ed abbinamento i numeri sortiti solo 2 volte
8 - non interessa quanti AMBI SECCHI vengono formati deve giocarli tutti
9 - I colpi di gioco devono essere 9 e la sospensione di gioco Ambo (il primo ambo sortito ferma tutto)
10 - solito resoconto finale

Chi se la sente di fare lo script, ringrazio fin d'ora, Hettro
 
In attesa di commenti...................................

Siamo arrivati a 124 visite e nessun scriptico.

Di sicuro però il metodo è stato copiato, ci scommetterei al 110%.
 
Ultima modifica:
hettro... Parentesi: (certe tue battute fanno passare l'entusiasmo... ). Chiusa.

Listato. controlla se ok... vedi che ho messo un periodo breve
fin = ini + 90 ' EstrazioneFin
giusto per verifica poi fa tu...

Codice:
Option Explicit
Sub Main
'0904_26 Rosanna per Hettro
' link http://forum.lottoced.com/f12/aiuto-x-script-x-ambo-ruota-107424/

Dim ini,fin,ini1,es,ciclo,colpi,i,y
Dim kCG,kAbb,kGiocate 'contatori capigioco, abbinamenti, giocate
Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2)
ReDim aFreq(90),aCapoG(0),aAbbin(0) 'array per le frequenze nel ciclo, i CG (freq>2), gli abbin(freq=2)


aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,"3959"))
fin = ini + 90 ' EstrazioneFin
ciclo = 9 : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = 9 'colpi di gioco
aPosta(2)=1

For es = ini To fin Step 9 ' analizzo l'archivo a blocchi di 9 estrazioni
	Call AvanzamentoElab(ini,fin,es)
	ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
	
	kCG = 0 : kAbb = 0 ' ad ogni nuovo ciclo azzero i contatori
	ReDim aFreq(90),aCapoG(0),aAbbin(0) ' e riazzero gli array prima di ogni ciclo
	
	For i = 1 To 90 ' verifico la frequenza dei 90 numeri su ogni ciclo
		aNum(1) = i
		aFreq(i) = SerieFreqTurbo(ini1,es,aNum,aRuota,1)
	Next
		
	For i = 1 To 90 ' ad ogni nuovo ciclo controllo e memorizzo quali num hanno freq>2 o =2
		
		If aFreq(i) > 2 Then
			kCG = kCG + 1
			ReDim Preserve aCapoG(kCG)
			aCapoG(kCG) = i
			Else If aFreq(i) = 2 Then
				kAbb = kAbb + 1
				ReDim Preserve aAbbin(kAbb)
				aAbbin(kAbb) = i
			End If
		End If
	Next
	
	If kCG > 0 Then ' se trova almeno un capogioco ovvero un numero con freq>2
		ColoreTesto 1
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")",1)
		Call Scrivi("Capigioco: " & StringaNumeri(aCapoG),1)
		Call Scrivi("Abbinamenti: " & StringaNumeri(aAbbin),1)
		Call Scrivi
			
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatotore delle giocate
		For i = 1 To kCG 'imposto le giocate
			aAmbo(1) = aCapoG(i)			
			For y = 1 To kAbb
				aAmbo(2) = aAbbin(y)
				kGiocate = kGiocate + 1
				Call ImpostaGiocata(kGiocate,aAmbo,aRuota,aPosta,colpi,2)				
			Next
		Next		

		For i = 1 To kGiocate
			For y = i+1 To kGiocate
				ImpostaInterruzioni i,y,2
				ImpostaInterruzioni y,i,2				
			Next
		Next
		Gioca es,True				
	End If
	If ScriptInterrotto Then Exit For		
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Ho eliminato un passaggio su un array... di cui si può fare a meno e aggiunto un output rosso per i cicli dove non ci sono giocate così puoi verificare meglio.

Per la versione LD sostituisci SeriefreqTurbo con Seriefreq
e metti apice davanti a if scriptinterrotto then... (a fine listato)
ciao

Codice:
Option Explicit
Sub Main
'0904_26b Rosanna per Hettro
' link http://forum.lottoced.com/f12/aiuto-x-script-x-ambo-ruota-107424/

Dim ini,fin,ini1,es,ciclo,colpi,i,y
Dim kCG,kAbb,kGiocate 'contatori capigioco, abbinamenti, giocate
Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2)
ReDim aCapoG(0),aAbbin(0) 'array per i CG (freq>2), gli abbin(freq=2)


aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,"3959"))
fin = ini + 90 ' EstrazioneFin
ciclo = 9 : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = 9 'colpi di gioco
aPosta(2) = 1

For es = ini To fin Step 9 ' analizzo l'archivo a blocchi di 9 estrazioni
	Messaggio es
	Call AvanzamentoElab(ini,fin,es)
	ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
	
	kCG = 0 : kAbb = 0 ' ad ogni nuovo ciclo azzero i contatori
	ReDim aCapoG(0),aAbbin(0) ' e riazzero gli array prima di ogni ciclo
	
	For i = 1 To 90 ' verifico la frequenza dei 90 numeri su ogni ciclo
		aNum(1) = i
		If SerieFreqTurbo(ini1,es,aNum,aRuota,1) = 2 Then
			kAbb = kAbb + 1
			ReDim Preserve aAbbin(kAbb)
			aAbbin(kAbb) = i
			Else If SerieFreqTurbo(ini1,es,aNum,aRuota,1) > 2 Then
				kCG = kCG + 1
				ReDim Preserve aCapoG(kCG)
				aCapoG(kCG) = i
			End If
		End If
	Next
		
	If kCG > 0 Then ' se trova almeno un capogioco ovvero un numero con freq>2
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi (String(60,"-"))
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")",1)
		Call Scrivi("Capigioco: " & StringaNumeri(aCapoG),1)
		Call Scrivi("Abbinamenti: " & StringaNumeri(aAbbin),1)
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatotore delle giocate
		For i = 1 To kCG 'imposto le giocate
			aAmbo(1) = aCapoG(i)			
			For y = 1 To kAbb
				aAmbo(2) = aAbbin(y)
				kGiocate = kGiocate + 1
				Call ImpostaGiocata(kGiocate,aAmbo,aRuota,aPosta,colpi,2)				
			Next
		Next		

		For i = 1 To kGiocate
			For y = i + 1 To kGiocate
				Call ImpostaInterruzioni(i,y,2)
				Call ImpostaInterruzioni(y,i,2)				
			Next
		Next
		Call Gioca(es,True)
		
	Else
		Call ColoreTesto(2)
		Call Scrivi
		Call Scrivi (String(60,"-"))
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")",1)
		Call Scrivi("Nessun superfrequente	come CG")
		Call ColoreTesto(0)			
	End If
	If ScriptInterrotto Then Exit For		
Next
Call ScriviResoconto
End Sub
 
Ciao, ripeto che non è rivolto a te ed ad altri che conosco.

(Il fatto che vi sia un alto numero di visualizzazioni è l'assoluto silenzio lascia da pensare) ..... CHIUSO

Perfetto, I cicli che hai impostato sono una prova sufficiente.
Potresti inserire il contatore dei casi ?

Mi puoi spiegare come si inserisce il " Ciclo di ricerca all'indietro "?
E' una cosa che non riesco a realizzare, grazie

PS: Hai notato che è POSITIVO ? (non è una BUFALA),
 
Ultima modifica:
Se non ci sono esclusioni.. gli scripter che leggono...leggono tutti.

Mi puoi spiegare come si inserisce il " Ciclo di ricerca all'indietro "?

beh dipende dal contesto. In questo caso è molto semplice.
C'è un for es principale che scorre in avanti l'archivio...partendo da Ini.

Graficamente posso sintetizzarlo così:

Ini ..........es..........>

ad ogni ciclo si analizza una es o a step di 1 o come da tue disposizioni a step di 9 colpi avanti...In pratica scorre in avanti....

Dovendo analizzare le freq di un ciclo indietro di 9 colpi(compresa l'es in esame) e potendolo fare con Seriefreq, è sufficiente impostare una variabile di inizio di quel ciclo indietro, che io ho chiamato ini1. Al primo giro... es sarà uguale ad ini..perchè parte da ini... e ini1 sarà sempre 8 colpi indietro a es...(es è il 9°)

1° ciclo.........: Ini1-------Ini(es).................>
cicli successivi: Ini...................ini1-------es................>

al primo ciclo ini1 sarà anteriore ad ini... poi man mano che si scorre in avanti... anche ini1 scorre in avanti...perchè è parametrizzata su es..

ini1=es-ciclo

Ci sono altri contesti in cui non potendo usare seriefreq, uso in altro ciclo for. L'importante è avere ben chiaro i parametri di inizio e fine dei cicli...

esempio... potrei avere necessità di cercare qualcosa in un ciclo anteriore ad es ma che non comprenda es....
in tal caso oltre a ini e fin per il ciclo principale... avrò altri due parametri per il ciclo indietro perchè ini1 sarà es- ciclo e fin 1 sarà sempre es-1


1° ciclo.........: Ini1<------Fin1|Ini(es).................>
cicli successivi: Ini...................ini1<-------Fin1|es................>

aggiungo...in questo caso avrò

for es= ini to fin ' e scorre in avanti....
for esp= fin1 to ini1 step-1 '(se vogliamo farlo partire da fin1 e scorrere indietro una es alla volta)

oppure

for es= ini to fin ' e scorre in avanti....
for esp= ini1 to fin1 '(se vogliamo farlo partire da ini1 e scorrere in avanti una esp alla volta)

di solito uno i nomi es per l'id estrazione del for principale
esf quando scorro in avanti... f=futuro
esp quando scorro indietro... p=passato

ma questi sono accorgimenti soggettivi... l'importante è avere chiaro in mente cosa si deve fare.
Se vai a vedere la richiesta di nelson, lì addirittura ne abbiamo 3 di cicli che non si dovevano accavallare quindi avevo impostato 6 variabili solo per gli inizi/fine dei cicli.
 
Ultima modifica:
grazie Rosanna,

Mi sono fatto un txt del tuo post, me lo devo studiare con calma.

In merito al contatore degli eventi, mi interessa sapere i casi positivi e quelli negativi.

si può integrare lo script?

Ciao, Hettro

PS: si potrebbe usare lo stesso script modificandolo per l'analisi di una sola estrazione (l'estrazione es) analizzandola in toto controllando sempre i ripetuti (5 volte, 4 volte, 3 volte, 2 volte) e con lo stesso metodo del precedente mettere in gioco gli ambi per un solo colpo su TUTTE. Nessun ciclo, sequenziale una estrazione alla volta e contando gli eventi positivi e negativi.
Grazie.
 
Ultima modifica:
eh si possono fare veramente un sacco di cose...

Li avevi già nel resoconto ma ti ho aggiunto il conteggio dei casi giocabili e positivi nonchè gestito il controllo degli esiti con VerificaEsitoTurbo
disabilitando le istruzioni per le giocate. In questo modo è molto veloce... e controlli tutto l'archivio...

Prova e controlla se rilevi delle inesattezze. Ciao

Codice:
Option Explicit
Sub Main
'0904_26c Rosanna per Hettro
' link http://forum.lottoced.com/f12/aiuto-x-script-x-ambo-ruota-107424/

Dim ini,fin,ini1,es,ciclo,colpi,i,y
Dim bEsito
Dim kCG,kAbb,kGiocate,kCasi,kCasiPos,kAmbi 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2)
Dim RetEsito,RetColpi,RetEstratti
ReDim aCapoG(0),aAbbin(0) 'array per i CG (freq>2), gli abbin(freq=2)


aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,"3959"))
fin = EstrazioneFin
ciclo = 9 : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = 9 'colpi di gioco
aPosta(2) = 1

For es = ini To fin Step 9 ' analizzo l'archivo a blocchi di 9 estrazioni
	Messaggio es
	Call AvanzamentoElab(ini,fin,es)
	ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
	
	kCG = 0 : kAbb = 0 ' ad ogni nuovo ciclo azzero i contatori
	ReDim aCapoG(0),aAbbin(0) ' e riazzero gli array prima di ogni ciclo
	
	For i = 1 To 90 ' verifico la frequenza dei 90 numeri su ogni ciclo
		aNum(1) = i
		If SerieFreqTurbo(ini1,es,aNum,aRuota,1) = 2 Then
			kAbb = kAbb + 1
			ReDim Preserve aAbbin(kAbb)
			aAbbin(kAbb) = i
			Else If SerieFreqTurbo(ini1,es,aNum,aRuota,1) > 2 Then
				kCG = kCG + 1
				ReDim Preserve aCapoG(kCG)
				aCapoG(kCG) = i
			End If
		End If
	Next
		
	If kCG > 0 Then ' se trova almeno un capogioco ovvero un numero con freq>2
		kCasi=kCasi+1
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(60,"-"))
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")",1)
		Call Scrivi("Capigioco: " & StringaNumeri(aCapoG),1)
		Call Scrivi("Abbinamenti: " & StringaNumeri(aAbbin),1)
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
		bEsito=False
		For i = 1 To kCG 'imposto le giocate
			aAmbo(1) = aCapoG(i)			
			For y = 1 To kAbb
				aAmbo(2) = aAbbin(y)
				'kGiocate = kGiocate + 1
				'Call ImpostaGiocata(kGiocate,aAmbo,aRuota,aPosta,colpi,2)	
				If  VerificaEsitoTurbo(aAmbo,aRuota,es+1,2,9,,RetEsito,RetColpi,RetEstratti)Then
					kAmbi=kAmbi+1
					bEsito=True					
					Call Scrivi(RetColpi&"°"& RetEstratti,1)					
				End If			
			Next
		Next
		If bEsito=False Then
			Call Scrivi ("Esito negativo")
		Else
			kCasiPos=kCasiPos+1
		End If	

		'For i = 1 To kGiocate
		'	For y = i + 1 To kGiocate
		'		Call ImpostaInterruzioni(i,y,2)
		'		Call ImpostaInterruzioni(y,i,2)				
		'	Next
		'Next
		'Call Gioca(es,True)
		
	Else
		Call ColoreTesto(2)
		Call Scrivi
		Call Scrivi(String(60,"-"))
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")",1)
		Call Scrivi("Nessun superfrequente come CG - Caso non giocabile")
		Call ColoreTesto(0)			
	End If
	If ScriptInterrotto Then Exit For		
Next
Call Scrivi
Call Scrivi(String(60,"="))
Call Scrivi ("Casi giocabili "& kCasi & " di cui positivi "& kCasiPos & " (ambi:" & kAmbi&")",1)
'Call ScriviResoconto
End Sub

nb: ho ripostato lo script perchè ho corretto una imprecisione: contava gli ambi sortiti e non i casi. ORa conteggia entrambi
Vedi che su ba hai anche una quaterna... eh eh... vedi di farla uscire anche nel futuro... così si va a fare un buon pranzetto...:p
ciao ciao
 
Ultima modifica:
Ho visto solo ora questa tua...
PS: si potrebbe usare lo stesso script modificandolo per l'analisi di una sola estrazione (l'estrazione es) analizzandola in toto controllando sempre i ripetuti (5 volte, 4 volte, 3 volte, 2 volte) e con lo stesso metodo del precedente mettere in gioco gli ambi per un solo colpo su TUTTE. Nessun ciclo, sequenziale una estrazione alla volta e contando gli eventi positivi e negativi.
Grazie.

Vuoi dire anzichè analizzare un ciclo di 9 estrazioni a ruota, verificare i ripetuti su tutte le ruote di una estrazione?
se sì intendi su 10 o 11 ruote?
Si può fare ma è un altro script.
Se nessuno te lo fa, lo faccio io ma non ora... ho altri impegni personali e non so se riesco a dedicare tempo ai listati prima del 7 ottobre.
ciao
 
Ho visto solo ora questa tua...


Vuoi dire anzichè analizzare un ciclo di 9 estrazioni a ruota, verificare i ripetuti su tutte le ruote di una estrazione?
se sì intendi su 10 o 11 ruote?
Si può fare ma è un altro script.
Se nessuno te lo fa, lo faccio io ma non ora... ho altri impegni personali e non so se riesco a dedicare tempo ai listati prima del 7 ottobre.
ciao

Ciao Rosanna,

Lo so che è un altro script, intendo Tutte (11).

Rosanna ha scritto:
nb: ho ripostato lo script perchè ho corretto una imprecisione: contava gli ambi sortiti e non i casi. ORa conteggia entrambi
Vedi che su ba hai anche una quaterna... eh eh... vedi di farla uscire anche nel futuro... così si va a fare un buon pranzetto...
ciao ciao

Lo vedi che le estrazioni sono DIPENDENTI (mia opinione).

Si ringrazio, Hettro
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
Indietro
Alto