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
    giovedì 19 giugno 2025
    Bari
    32
    64
    67
    30
    17
    Cagliari
    39
    56
    77
    12
    35
    Firenze
    11
    16
    59
    72
    02
    Genova
    80
    79
    05
    03
    33
    Milano
    09
    87
    23
    88
    82
    Napoli
    56
    74
    85
    16
    61
    Palermo
    84
    21
    08
    18
    85
    Roma
    71
    84
    20
    54
    86
    Torino
    28
    36
    68
    49
    53
    Venezia
    14
    45
    39
    43
    42
    Nazionale
    73
    11
    46
    20
    26
    Estrazione Simbolotto
    Napoli
    43
    35
    11
    26
    40
Indietro
Alto