Novità

Prova Terno Mi-Na

Giulio Pedrinelli

Super Member >PLATINUM<
Considerando i numeri sotto:

FI 2° +26 +50 8/20 3,75
FI 4° +07 +49 8/20 4,625
GE 1° +72 +83 8/20 5,5
NA 4° +25 +70 8/21 4,625
PA 4° +22 +85 8/20 4,875

(RUOTA / ESTRATTO DA SOMMARE X L'AMBO / CASI POSITIVI/NEGATIVI / USCITE MEDIE DELL'AMBO)
Che sono gli ambi ricavati con una ricerca su MI-Na dal 2/21/2010 al 16/06/2012 all'ultima estrazione del mese.
IL periodo è di 9 colpi.

Per ricavare il 1° ambo = 2° Estratto di FI + 26 / + 50 e di seguito per ricavare gli altri, il procedimento è lo stesso.
Sempre all'ultima estrazione del mese.

Per il calcolo del terno ho usato il 1° estratto di Bari a cui ho sommato un numero (esempio 1) per vedere quale da il miglior risultato nel periodo 2/1/2010-16/06/2012.
Questo numero va aggiunto ai 5 ambi su Mi-Na in modo da avere 5 terni.

La ruota di Bari l'ho quasi "finita".

Sommando il numero 11 del 1° estratto di BA si hanno 4 terni.
Sommando il numero 78 del 1° estratto di BA si hanno 5 terni.
Sommando il numero 53 del 2° estratto di BA si hanno 5 terni.
Sommando il numero 58 del 3° estratto di BA si hanno 4 terni.
Sommando il numero 53 del 4° estratto di BA si hanno 5 terni.
Sommando il numero 41 del 5° estratto di BA si hanno 4 terni.

Per il test ho usato uno script x Spaziometria, se serve lo posterò. ;)
Ciao.
 
Ciao Giulio grazie per questo metodo anche se mi piacerebbe meglio capire come vengono fatti i vari passaggi.
Potresti fare qualche esempio pratico per capire meglio.
Mi farebbe molto comodo lo script che hai utilizzato per il tuo test.
Grazie Sergio
 
Certo vediamo se riesco a chiarire meglio il concetto.
Prendiamo come esempio l'estrazione del 29/4/2010:

2° ESTRATTO DI FI e' il numero 13 + 26 = 39 (1° ambo)
2° ESTRATTO DI FI e' il numero 13 + 50 = 63

4° ESTRATTO DI FI e' il numero 64 + 7 = 71
4° ESTRATTO DI FI e' il numero 64 + 49 = 23 (2° ambo)

1° ESTRATTO DI GE e' il numero 45 + 72 = 27
1° ESTRATTO DI GE e' il numero 45 + 83 = 38 (3° ambo)

4° ESTRATTO DI NA e' il numero 14 + 25 = 39
4° ESTRATTO DI NA e' il numero 14 + 70 = 84 (4° ambo)

4° ESTRATTO DI PA e' il numero 42 + 22 = 64
4° ESTRATTO DI PA e' il numero 42 + 85 = 37 (5° ambo)

per calcolare il terno:

1° ESTRATTO DI BA e' il numero 11 + 11 = 22

Il numero sopra va abbinato ai 5 ambi in modo da formare 5 terni.

39-63-22
71-23-22
27-38-22
39-84-22
64-37-22

Esito 9° Colpo su Napoli 39-64-22

Per gli altri mesi i calcoli sono identici, con lo script è tutto più facile.

Eccolo:

Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(3) = 1
ruote(1) = 5
ruote(2) = 6
k = 9
y = 3
nums = InputBox("Inserisci il numero somma",,1)
For n = 8165 To EstrazioneFin
ng = 0
If IndiceMensile(n + 1) = 1 Then
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,1,1) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 07)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,1,1) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,1) + 72)
numeri1(2) = Fuori90(Estratto(n,4,1) + 43)
numeri1(3) = Fuori90(Estratto(n,1,1) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 3,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,1,1) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 4,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,1,1) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 5,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

Ciao.
Giulio.
 
ciao giulio dimmi una cosa tu che hai il programma spaziometria ci sono 3 voce =
vincite plurine nei cicli di gioco
vincite costanti nel periodo esaminato
vincite plurine e costanti
che significa queste 3 voci me lo spieghi...ciao giulio
 
Considerando i numeri sotto:

FI 2° +26 +50 8/20 3,75
FI 4° +07 +49 8/20 4,625
GE 1° +72 +83 8/20 5,5
NA 4° +25 +70 8/21 4,625
PA 4° +22 +85 8/20 4,875

(RUOTA / ESTRATTO DA SOMMARE X L'AMBO / CASI POSITIVI/NEGATIVI / USCITE MEDIE DELL'AMBO)
Che sono gli ambi ricavati con una ricerca su MI-Na dal 2/21/2010 al 16/06/2012 all'ultima estrazione del mese.
IL periodo è di 9 colpi.

Per ricavare il 1° ambo = 2° Estratto di FI + 26 / + 50 e di seguito per ricavare gli altri, il procedimento è lo stesso.
Sempre all'ultima estrazione del mese.

Per il calcolo del terno ho usato il 1° estratto di Bari a cui ho sommato un numero (esempio 1) per vedere quale da il miglior risultato nel periodo 2/1/2010-16/06/2012.
Questo numero va aggiunto ai 5 ambi su Mi-Na in modo da avere 5 terni.

La ruota di Bari l'ho quasi "finita".


Sommando il numero 11 del 1° estratto di BA si hanno 4 terni.
Sommando il numero 78 del 1° estratto di BA si hanno 5 terni.
Sommando il numero 53 del 2° estratto di BA si hanno 5 terni.
Sommando il numero 58 del 3° estratto di BA si hanno 4 terni.
Sommando il numero 53 del 4° estratto di BA si hanno 5 terni.
Sommando il numero 41 del 5° estratto di BA si hanno 4 terni.

Per il test ho usato uno script x Spaziometria, se serve lo posterò. ;)
Ciao.

CIAO GIULIO, GRAZIE PER IL TUO METODO.
POTRESTI METTERE LO SCRIPT?, CON I CALCOLI SOMMATIVI NON SONO BRAVA, MA RIESCO A LEGGERE LO SCRIPT.
:o

IN ATTESA DI UNA TUA RISPOSTA TI AUGURO UNA BUONA GIORNATA.
;)
 
Prova Terno Mi-Na

Beh per quanto riguarda i numeri da giocare con L'estrazione di sabato 30 li avrete. Quanti metterne in gioco e' un altro discorso, siamo ancora alla fase di studio.

Non sono esperto di statistica, ci provo:

Vincite multiple nel periodo; più vincite nello stesso mese.

Vincite costanti; vince regolarmente no vincite multiple.

Vincite multiple e costanti, come sopra Unione delle due.

Stasera aggiungerò altre info.
Ciao
 
Script x terno MI-NA

Script x terno MI-NA

Ciao raga, ecco lo script x il terno:

Codice:
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(3) = 1
ruote(1) = 5
ruote(2) = 6
k = 9
y = 3
nums = InputBox("Inserisci il numero somma",,1)
For n = 8165 To EstrazioneFin
ng = 0
If IndiceMensile(n + 1) = 1 Then
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,1,5) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 07)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,1,5) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,1) + 72)
numeri1(2) = Fuori90(Estratto(n,4,1) + 43)
numeri1(3) = Fuori90(Estratto(n,1,5) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 3,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,1,5) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 4,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,1,5) + nums)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 5,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

Nota: la riga numeri1(3) = Fuori90(Estratto(n,1,5) + nums) corrisponde al 5° estratto di Bari a cui va sommato un numero a vostra scelta per vedere l'esito del terno secco nel periodo 2010-2012.

Ciao.
 
X Everest62,

porto come esempio questa estrazione, il numero da sommare x il terno è il 5° di BA + il numero fisso 41 (dovrebbe risultarvi 4 terni):

Estrazione generatrice del pronostico 08307 [143 - 30/11/2010]

2° ESTRATTO DI FIRENZE = 06 + 26 = 32
2° ESTRATTO DI FIRENZE = 06 + 50 = 56 (1° AMBO)

4° ESTRATTO DI FIRENZE = 02 + 07 = 09
4° ESTRATTO DI FIRENZE = 02 + 49 = 51 (2° AMBO)

1° ESTRATTO DI GENOVA = 11 + 72 = 83
1° ESTRATTO DI GENOVA = 11 + 83 = 04 (3° AMBO)

4° ESTRATTO DI NAPOLI = 81 + 25 = 16
4° ESTRATTO DI NAPOLI = 81 + 70 = 61 (4° AMBO)

4° ESTRATTO DI PALERMO = 58 + 22 = 80
4° ESTRATTO DI PALERMO = 58 + 85 = 53

In questo caso per calcolare il numero per il terno:

5° estratto di Bari = 68 + 41 = 19

il numero sopra va abbinato ai 5 ambi sopra in modo da ottenere 5 terni.

L'esito al 4° colpo su Milano:

V N. [19.32.56 ] [MI] [.. 32 19 56 ..] C. 4 Terno 08311 [147 - 09/12/2010]

aggiungo una cosa, non tutti gli ambi sono risultati vincenti per il terno.
Considerando il 1° ambo 1A, il 2° 2A eccetera ho fatto una piccola statistica dei numeri da sommare x il terno:

1° BA +11 = 4 TERNI (1A 2A 5A)
1° BA +78 = 4 TERNI (1A 2A 5A)
2° BA +53 = 5 TERNI (1A 4A 5A)
3° BA +58 = 4 TERNI (1A 4A 5A)
4° BA +53 = 5 TERNI (1A 4A 5A 2A)
5° BA +41 = 4 TERNI (1A 2A 5A)

Il 5° ambo (5A) è presente 6 volte, mentre il 1° ambo (1A) è presente 5 volte.
Il 2° ambo (2A) ed il 4° ambo (4A) sono presenti 4 volte e 3 volte.

Se si esclude il 4° ambo che è quello che ha ottenuto il punteggio inferiore, i terni da mettere in gioco sono:

3 + 3 + 2 + 3 + 2 + 2 = 16 le ruote sono due quindi 32 terni.

Ciao.
 
Per avere i numeri fissi per il terno ho fatto diverse prove.
Tramite lo script che ho postato, aprilo in Spaziometria e lo devi modificare se cambi ruota e/o posizione estratto, poniamo che usi il 1° estratto di Bari:

va modificata questa riga

numeri1(3) = Fuori90(Estratto(n,1,1) + nums)

si ripete 5 volte, essendo gli ambi 5 (puoi copiarlo 5 volte)

salvi lo script e lo mandi in esecuzione tramite il simbolo del fulmine (è il 10° a partire da sinistra)

Terno-MINA.jpg

Quando è in esecuzione ti chiederà di inserire un numero, nello script è la variabile nums, lo inserisci e premi invio.
Questo numero lo script lo aggiunge in automatico al 1° estratto di BA e ti mostra quanti terni sono usciti nel periodo 2010-2012.
Per il numero 1 ed il 1° estratto di Bari, non dovrebbero risultarti terni.

Lo mandi di nuovo in esecuzione e cambi numero, quando arriverai al numero 11 dovrebbero risultarti 4 terni e se inserisci il 39 il risultato è 3 terni.

Se vuoi usare il 2° estratto di BA devi fare questa modifica

Cambio-Ruota-N.jpg

Ti ho evidenziato in nero il numero da cambiare per usare il 2° estratto di BA.

Ho fatto diverse prove sempre con BA e con il 5° estratto sono arrivato al numero 62.
Con il numero 41 ed il 5° Estratto di Ba escono 4 terni, il resto è uguale, bisogna procedere a tentativi.

Ciao.
Giulio
 

Allegati

  • Terno-MINA.jpg
    Terno-MINA.jpg
    88,5 KB · Visite: 2
ciao giulio scusami la mia ignoranza...tu hai scritto, clicca su spaziometria per lo script...si deve cliccare su gestione script....poi a me non mi esce nulla lo vorrei inparare..se tu mi fai i passaggi bene per far uscire uno script devo fare prima un metodo per farlo uscire.....grazie giulio...ciao
 
Ah, si scusa, guarda nella 1° pagina di questo post una mia risposta 'Script per terno'.
Dovresti trovare una finestra che contiene lo script.
Vai in cima e lo copi (CTRL+C) in spaziometria.

In spaziometria la sezione degli script è quella che ti ho evidenziato.

Spaziom.jpg

Ti si aprirà una finestra all'interno del programma, devi cancellare quello che c'è all'interno (Option Explicit eccetera) e copi lo script (CTRL+V).
Lo salvi, con il simbolo del dischetto e lo mandi in esecuzione tramite il simbolo del fulmine.

Ciao.
Giulio
 
Ah, dimenticavo io sono già molto avanti :D, sono arrivato al 1° estratto di Genova.

Ho dei dati parziali.

N-TERNO-MINA.jpg

Dai dati sopra mi risultano 38 terni, si sopno tanti ma l'efficacia globale nel periodo è da testare. :)

Oppure riducendo il numero dei terni, penso perderà un pochino la sua efficacia cmq, sotto::cool:

N-TERNO-MINA1.jpg

L'unica cosa è provare, certo la spesa è pesante, non so se ne vale la candela.
Ciao.
Giulio
 
Terno MI-NA

Terno MI-NA

Ecco qua;) inserendo questi dati:

1° BA + 78
2° BA + 53
1° CA + 84
2° CA + 34
2° CA + 52
5° CA + 35

La somma è 30 terni, qui sotto c'è lo script da copiare, in futuro chissà (sono 16 terni su due ruote MI-NA):

Codice:
Sub Main()
Dim ruote(10)
Dim numeri1(51)
Dim poste(5)
poste(2) = 1
ruote(1) = 5
ruote(2) = 6
k = 9
y = 3
For n = 8165 To EstrazioneFin
ng = 0
If IndiceMensile(n + 1) = 1 Then
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,1,1) + 78)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 07)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,1,1) + 78)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,1,1) + 78)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 3,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,1,2) + 53)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 4,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,1,2) + 53)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 5,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,1,2) + 53)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 6,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,1) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 7,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,2,1) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 8,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,2,1) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 9,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,2,2) + 34)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 10,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,2) + 34)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 11,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,4,1) + 72)
numeri1(2) = Fuori90(Estratto(n,4,1) + 43)
numeri1(3) = Fuori90(Estratto(n,2,2) + 34)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 12,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,2,2) + 52)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 13,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,2) + 52)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 14,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,2,2) + 52)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 15,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,5) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 16,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,2,5) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 17,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

Questo invece è il resoconto una volta che è finita l'esecuzione dello script: ;)

Resc-MINA-T.jpg

Ah, io pensavo che uscissero solo terni secchi.
Ciao.
Giulio
 
Ah scusate c'è un piccolo errore, va fatta questa modifica:

Sub Main()
Dim ruote(10)
Dim numeri1(51)
Dim poste(17)
poste(3) = 1

ruote(1) = 5
ruote(2) = 6

Oops, :).
Ciao.

Giulio
 
Terno MI-NA

Terno MI-NA

In più, ciliegina sulla torta, l'ho ottimizzato............

Ecco lo script.

Codice:
Sub Main()
Dim ruote(10)
Dim numeri1(51)
Dim poste(17)
poste(3) = 1
ruote(1) = 5
ruote(2) = 6
k = 9
y = 3
For n = 8165 To EstrazioneFin
ng = 0
If IndiceMensile(n + 1) = 1 Then
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,1,1) + 78)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 1,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 07)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,1,1) + 78)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 2,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,1,1) + 78)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 3,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,1,2) + 53)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 4,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,1,2) + 53)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 5,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,1,2) + 53)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 6,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,1) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 7,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,2,1) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 8,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,2,1) + 84)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 9,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,3,1) + 66)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 10,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,3,1) + 66)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 11,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,2) + 26)
numeri1(2) = Fuori90(Estratto(n,3,2) + 50)
numeri1(3) = Fuori90(Estratto(n,2,2) + 52)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 12,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,2) + 52)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 13,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,7,4) + 22)
numeri1(2) = Fuori90(Estratto(n,7,4) + 85)
numeri1(3) = Fuori90(Estratto(n,2,2) + 52)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 14,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,3,4) + 7)
numeri1(2) = Fuori90(Estratto(n,3,4) + 49)
numeri1(3) = Fuori90(Estratto(n,2,5) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 15,numeri1,ruote,poste,k,y
numeri1(1) = Fuori90(Estratto(n,6,4) + 25)
numeri1(2) = Fuori90(Estratto(n,6,4) + 70)
numeri1(3) = Fuori90(Estratto(n,2,5) + 35)
EliminaRipetuti numeri1
ng = ng + 1
ImpostaGiocata 16,numeri1,ruote,poste,k,y
For a = 1 To ng
For b = 1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

Questa è l'ultima versione: casi positivi 17 su 29, con 26 terni usciti.

Ciao.
Giulio;)
 
ciao giulio vedo che sei molto piu avanti di me...mi fa molto piacere credimi.....ti posso chiedere un favore...se io ti do la mia email..tu mi puoi dare un tuo numero tel..in modo che e meglio parlare che a scrivere..se tu hai piacere... ti ringrazio...ciao giulio
 
Uhmm, di preciso di cosa hai bisogno?
La mia mail è : gpedrinelli@VIOLAZIONE: scambio email non consentito ! , potrei fare una guida sugli script?
Di script ne so abbastanza, poi in Spaziometria ci sono sezioni che non conosco e non potrei dirti di più.

Ciao.
Giulio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 08 novembre 2025
    Bari
    47
    72
    08
    22
    76
    Cagliari
    56
    51
    36
    17
    53
    Firenze
    21
    11
    71
    89
    19
    Genova
    90
    32
    12
    80
    01
    Milano
    10
    57
    72
    21
    17
    Napoli
    59
    01
    76
    09
    61
    Palermo
    75
    10
    80
    24
    25
    Roma
    87
    86
    09
    32
    17
    Torino
    55
    21
    23
    46
    30
    Venezia
    18
    20
    13
    32
    84
    Nazionale
    19
    18
    05
    86
    08
    Estrazione Simbolotto
    Torino
    42
    29
    30
    11
    09

Ultimi Messaggi

Indietro
Alto