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ì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02
Indietro
Alto