Novità

Script sulle cadenze

  • Creatore Discussione Creatore Discussione jure
  • Data di inizio Data di inizio

jure

Advanced Member >PLATINUM PLUS<
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
 
Ultima modifica:
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
 
eccolo jure.

controlla eventuali errori.

ciao

Codice:
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
 
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.
 
Ultima modifica:
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 :)
 
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
 
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
 
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. :cool::cool:

Luigi, appena capito a dalle tue parti, ti porto la pietra.:D:D
 
Ultima modifica:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto