Novità

ci proviamo insieme?

6^ estrazione del mese a napoli

1° genova meno 1° palermo + 24
4° milano meno 5° torino + 89
4° palermo meno 1° roma + 1
5° bari meno 1° firenze + 31
1° genova meno 4° napoli + 30
4° napoli meno 4° palermo + 74

con carta e penna
esiti

14.01.2014 30 32 16 90 7 87 1° colpo ambo 16 87
13.02.2014 57 34 44 3 30 1° colpo ambo (previsione di 5 numeri in quanto uno era ripetuto)
13.03.2014 37 5 38 19 49 64 2° colpo quaterna 5 37 38 49
12.04.2014 75 39 14 2 36 71 sembra negativa
 
Codice:
Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Estratto(Es,4,1) - Estratto(Es,7,1)) + 24) 
			n(2) = Fuori90((Estratto(Es,5,4) - Estratto(Es,9,5)) + 89)
			n(3) = Fuori90(Estratto(Es,7,4) - Estratto(Es,8,1) + 1)
			n(4) = Fuori90(Estratto(Es,1,5) - Estratto(Es,3,1) + 31)
			n(5) = Fuori90(Estratto(Es,4,1) - Estratto(Es,6,4) + 30)
			n(6) = Fuori90(Estratto(Es,6,4) - Estratto(Es,7,4) + 74)
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

Meglio Venezia o Palermo
 
Codice:
Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Estratto(Es,4,1) - Estratto(Es,7,1)) + 24) 
			n(2) = Fuori90((Estratto(Es,5,4) - Estratto(Es,9,5)) + 89)
			n(3) = Fuori90(Estratto(Es,7,4) - Estratto(Es,8,1) + 1)
			n(4) = Fuori90(Estratto(Es,1,5) - Estratto(Es,3,1) + 31)
			n(5) = Fuori90(Estratto(Es,4,1) - Estratto(Es,6,4) + 30)
			n(6) = Fuori90(Estratto(Es,6,4) - Estratto(Es,7,4) + 74)
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

Meglio Venezia o Palermo

Sicuramente non ho ben spiegato il metodo e me ne scuso

dal tuo script (tra l'altro molte grazie) risulta
Estrazione generatrice del pronostico 08820 [ 31 - 13/03/2014]
G 0001 Numeri in gioco : 11.83.54.11.16.46 su NA per Ambo,Terno,Quaterna
Interrotta per raggiunta durata

Facendo conti carta e penna mi trovo una quaterna
13.03.2014 37 5 38 19 49 64 2° colpo quaterna 5 37 38 49

voglio precisare che eseguo le sottrazioni dal numero più grande al più grande al numero più piccolo
esempio 13.03.2014 1° genova (67) meno 1° palermo (80) + 24

80 meno 67 + 24 = 37 primo numero della sestina
e così a seguire
grazie
 
Codice:
Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Differenza(Estratto(Es,4,1),Estratto(Es,7,1))) + 24)
			n(2) = Fuori90((Differenza(Estratto(Es,5,4),Estratto(Es,9,5))) + 89)
			n(3) = Fuori90((Differenza(Estratto(Es,7,4),Estratto(Es,8,1))) + 1)
			n(4) = Fuori90((Differenza(Estratto(Es,1,5),Estratto(Es,3,1))) + 31)
			n(5) = Fuori90((Differenza(Estratto(Es,4,1),Estratto(Es,6,4))) + 30)
			n(6) = Fuori90((Differenza(Estratto(Es,6,4),Estratto(Es,7,4))) + 74)
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

dovrebbe essere così ma comunque non si trovano gli ultimi tre numeri, dai un'occhiata anche tu
 
gentilissimo vengio scusa se ti faccio impazzire

ma in mezzo a tutta la robaccia che avevo in cantina (fatto pulizia totale) ho trovato una mia agenda di molti anni fa dove annotavo varie metodologie per il lotto. Alcune le ricordo (sono ancora un ragazzino di 51 anni) altre buio totale
Mi ha allora fatto sovvenire che gli ultimi tre numeri non sono altro che i vertibili di quelli trovati
puoi provare se è così?

ti inserisco la previsione del 14 gennaio 2014 per avere ulteriore conferma

14 gennaio 2014 30 22 16 90 7 87

grazieeeeee vengio
 
Codice:
Sub Main()
	Dim n(6),Ruote(12),Poste(4)
	'Poste(1) = 3
	Poste(2) = 3
	Poste(3) = 1
	Poste(4) = 0.5
	'Ruote(1) = 1
	'Ruote(2) = 2
	'Ruote(3) = 3
	'Ruote(4) = 4
	'Ruote(5) = 5
	Ruote(6) = 6
	'Ruote(7) = 7
	'Ruote(8) = 8
	'Ruote(9) = 9
	'Ruote(10) = 10
	'Ruote(12) = 12
	For es = EstrazioneFin - 200 To EstrazioneFin
		If IndiceMensile(es) = 6 Then
			K = K + 1 : Scrivi String(105,"=") & " " & K,1
			n(1) = Fuori90((Differenza(Estratto(Es,4,1),Estratto(Es,7,1))) + 24)
			n(2) = Fuori90((Differenza(Estratto(Es,5,4),Estratto(Es,9,5))) + 89)
			n(3) = Fuori90((Differenza(Estratto(Es,7,4),Estratto(Es,8,1))) + 1)
			n(4) = Fuori90(Vert((Differenza(Estratto(Es,1,5),Estratto(Es,3,1))) + 31))
			n(5) = Fuori90(Vert((Differenza(Estratto(Es,4,1),Estratto(Es,6,4))) + 30))
			n(6) = Fuori90(Vert((Differenza(Estratto(Es,6,4),Estratto(Es,7,4))) + 74))
			EliminaRipetuti n
			ImpostaGiocata 1,n,Ruote,Poste,13
			Gioca Es,1
		End If
	Next
	ScriviResoconto
End Sub

Adesso è ok.
 
scusa ma a me risultano diversi i tuoi numeri i primi tre vanno bene ma gli altri 3 sono: 72-63-17. Che mi rispondi? A me vengono questi 6 numeri: 75-39-14-72-63-17- Tu che ne pensi?
 
ciao deaebe come o capito io i ultimi 3 numeri devi fare i vertibili che sono 27|36|71 buona giornata a tutti
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 giugno 2025
    Bari
    76
    01
    50
    74
    87
    Cagliari
    13
    76
    67
    43
    59
    Firenze
    37
    17
    71
    48
    23
    Genova
    54
    58
    44
    48
    46
    Milano
    48
    09
    86
    77
    44
    Napoli
    38
    25
    17
    19
    82
    Palermo
    81
    66
    78
    72
    05
    Roma
    70
    27
    83
    44
    71
    Torino
    79
    86
    53
    03
    89
    Venezia
    78
    18
    33
    79
    38
    Nazionale
    49
    63
    48
    86
    68
    Estrazione Simbolotto
    Napoli
    43
    08
    01
    35
    15
Indietro
Alto