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
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto