Script sulle cadenze

[jure]

Se entro 5 o 6 estrazioni trovi su una Ruota
es. Cadenza 2
24/05/2014 VE 12
31/05/2014 VE 32 22
verrebbe 12 22 32 per chiudere il quadrato
manca il 42 + 50 "fisso" = 92 - 90 = 2
Perciò VE Ambata 02
Ambo principale 02 42
Ambi secondari 02 32 - 02 22 - 02 12
Cinquina 02 42 12 22 32
il 21/06 Ambo 02 42
Questo anche con le altre Cadenze

 

[jure]

Chi può fare questo script mi sono dimenticato di
inserire la richiesta.
un'altro es.
preso visivamente
VENEZIA
06/05/2014 = 22
20/05/2014 = 42 32
VERREBBERO 22 32 42 CHIUSURA IL 52 + IL FISSO 50
52 + 50 = 102 - 90 = 12
Previsione
Venezia
Ambata 12
Ambo Principale 12 52
Secondari 12 22 - 12 32 - 12 42
Cinquina 12 52 42 32 22
al 2° colpo Ambata 12
al 5° Ambo in cinquina 32 22

 

[Mike58]

eccolo jure.

controlla eventuali errori.

ciao

Sub Main()
	'cerca ambi in cadenza uguale
	Dim nu(90),ru(2),ma(10),Num(5),nu1(1),poste(3),posta(1)
	poste(2) = 9
	poste(3) = 1
	posta(1) = 1
	quante = CInt(InputBox("Quante estrazioni vuoi analizzare","Quante estrazioni",100))
	esPr = CInt(InputBox("QUANTE ESTRAZIONI PRECEDENTI RICERCO NUMERO RETROATTIVO",,6))
	Ini = EstrazioneFin - quante
	fin = EstrazioneFin
	colpi = 13
	Scrivi "Metodo Frequenza_Ciclica cadenze   *** forum-lottoced *** Richiesta Jure **** ",1,0
	Scrivi" Ricerca ambo in cadenza  ",0,0
	ColoreTesto 2
	Scrivi " Listed by Mike58 ",1
	ColoreTesto 0
	For es = Ini To fin
		Messaggio "Estrazioni esaminate " & es & "   --->  script by Mike58"
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 10
			For p = 1 To 4
				For pp = p + 1 To 5
					nu(1) = Estratto(es,r1,p)
					nu(2) = Estratto(es,r1,pp)
					For ex = es-esPr To es-1
					For p3 = 1 To 5
					nu1(1) = Estratto(ex,r1,p3)
					
					min = Minimo(nu(1),nu(2))
					max = Massimo(nu(1),nu(2))
					If Differenza(nu(1),nu(2)) = 10 And (nu1(1)) = min-10 Then
						co = co + 1
						Scrivi String(130,"=")
						ColoreTesto 1
						Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1,0
						ColoreTesto 7
						Scrivi "  ( ambo ambo in cadenza        " & StringaNumeri(nu) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & p & "/" & pp,1
						Scrivi DataEstrazione(ex) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(ex,r1),1,0
						ColoreTesto 7

						Scrivi "  ( Numero in cadenza Estr prec.   " & StringaNumeri(nu1) & " )",1,0
						ColoreTesto 1
						Scrivi" - Posiz. " & p3,1


						ColoreTesto 0
						Scrivi String(120,"=") & " Caso n° " & co
						ru(1) = r1
						ma(1) = Fuori90((max+10)+50)
						ambo5 = Array(ma(1),nu(1),nu(2),nu1(1),(max+10))
						ImpostaGiocata 1,ma,ru,posta,colpi,1
						ImpostaGiocata 2,ambo5,ru,poste,colpi,2
						Gioca es,,,1
						
					End If
					Next
					Next
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[jure]

Ciao Mike58 sei stato velocissimo quando trovi le 3 combinazioni
devi partire dal più piccolo poi alla chiusura devi aggiungere il fisso 50.
es. FI 10/06 = 60
24/06= 70 80
Chiusura 90
90 + il fisso 50 fa 140-90=50
il 50 è l'ambata
il 1° ambo è 50 90
la cinquina è 50 90 60 70 80

Chi può fare questo script mi sono dimenticato di
inserire la richiesta.
un'altro es.
preso visivamente
VENEZIA
06/05/2014 = 22
20/05/2014 = 42 32
VERREBBERO 22 32 42 CHIUSURA IL 52 + IL FISSO 50
52 + 50 = 102 - 90 = 12
Cinquina 12+52 22 42 32
La Chiusura sarebbe il numero Mancante per chiudere
il 4° lato del quadrato al quale si deve sommare il fisso 50
Il risultato della somma sarebbe l'Ambata.

 

[jure]

BRAVISSIMO Scusami Mike58 ho ricontrollato e il listato va benissimo.

 

[Remoto]

Per MIKE58
A distanza di tempo
ho istallato il programma e mi da questo errore
If Differenza(nu(1),nu(2)) = 10 And (nu1(1)) = min-10 Then
errore 13: tipo non corrispondente: "differenza" (riga 32)
mi puoi dire cosa devo fare?
SALUTI REMOTO

 

[Mike58]

Non so Remoto, ho incollato lo script dal post #3 e non riscontro nessun errore, mi auguro che stai usando spaziometria ultime versioni altrimenti il codice differenza non funziona.

Ciao

 

[claudio8]

Per MIKE58
A distanza di tempo
ho istallato il programma e mi da questo errore
If Differenza(nu(1),nu(2)) = 10 And (nu1(1)) = min-10 Then
errore 13: tipo non corrispondente: "differenza" (riga 32)
mi puoi dire cosa devo fare?
SALUTI REMOTO

A me funziona anche con la vers1.3.48

 

[Mike58]

Sappiamo che il codice DIFFERENZA è prerogativa solo di SpazioMetria ed è sempre meglio avere le ultime versioni perché ci sono nuovi codici script che non esistevano nelle versione precedenti.

x claudio se vuoi prova a vedere se ti funziona con la tua versione il codice

verificaesitoconguadagno

 

[LuigiB]

è sempre meglio avere le ultime versioni perché ci sono nuovi codici script che non esistevano nelle versione precedenti.

parole da scolpire nella pietra come i 10 comandamenti .-)

 

[claudio8]

Sappiamo che il codice DIFFERENZA è prerogativa solo di SpazioMetria ed è sempre meglio avere le ultime versioni perché ci sono nuovi codici script che non esistevano nelle versione precedenti.

x claudio se vuoi prova a vedere se ti funziona con la tua versione il codice

verificaesitoconguadagno

Mike, a 8 anni mi hanno fatto mangiare "panini di volpe" a merenda.
La mia era una considerazione sulla richiesta di Remoto.
Tu non sai per cosa utilizzo quella versione e non posso svelarti il segreto.

Luigi, appena capito a dalle tue parti, ti porto la pietra.

 

[Mike58]

Certo Claudio, ognuno ha i suoi "perché" e non è che mi interessano tutti, il mio era solo uno sprono per tutti ad installare sempre gli aggiornamenti cosi da evitare sempre le solite richieste di mal funzionamento script.

Ciao