Aiuto x script x ambo a ruota

[hettro]

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

 

[hettro]

In attesa di commenti...................................

Siamo arrivati a 124 visite e nessun scriptico.

Di sicuro però il metodo è stato copiato, ci scommetterei al 110%.

 

[Rosanna]

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...

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

 

[Rosanna]

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

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

 

[hettro]

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),

 

[Rosanna]

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.

 

[hettro]

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.

 

[Rosanna]

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

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...
ciao ciao

 

[Rosanna]

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

 

[hettro]

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).

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

 

[Rosanna]

ah ah si sono dipendenti dalla fortuna...

 

[hettro]

ah ah si sono dipendenti dalla fortuna...

Cosa hai capito. Sono i miei 90 DIPENDENTI.

E ogni giorno (estrazione) mi trovo sempre una 40 di DIPENDENTI in malattia.

 

[Rosanna]

Hettro sbaglio o hai già risolto con la seconda richiesta? (grazie ad Enplein... )