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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto