Novità

X MIKE58

T

trivellatomariotretre33

Super Member >PLATINUM<
CIAO MIKE POTRESTI REALIZZARE QUESTO SCRIPT ME LO A PASSATO UN AMICO IN RETE


ITER OPERATIVO

Per poter applicare il giusto pronostico dovremo attendere l’uscita del 28 sulla Ruota Di Bari in Seconda posizione


Attenzione : se una somma supera il 90 si effettua la regola del fuori 90 onde ottenere un numero giocabile.




Condizioni: Numeri spia: 28 Ruote spia: Bari Presenze: 1 Posizioni estrattivespie: 2 Ruote di gioco: Bari-Milano
Colpi di gioco: 4
CALCOLO DELLE COMBINAZIONI
PER CALCOLARE L’AMBATA
Ambata :
06
(SI CONSIGLIA DI GIOCARE L’AMBATA PER RECUPERO)

PER CALCOLARE GLI ABBINAMENTI PER AMBO
(I numeri uscenti vengono abbinati all’ambata capogioco)

1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
4° Abbinamento: 2° Estratto di Milano+1° Estratto di Torino+11
5° Abbinamento: 4° Estratto di Milano+3° Estratto di Napoli+26

SE PUOI FARLO ANCHE IN LUNGHETTA SORTE SUPERIORE GRAZIE MIKE58
 
Eccolo Trivellato sembra funzionare.

Però permettimi la mia solita riflessione, proprio perché trattasi di una condizione non facile a verificarsi trovare gli algoritmi di abbinamento per ambo è facile per ogni programma calcolarli sul passato, il problema è se saranno ancora presenti in futuro.

Comunque buona fortuna ( per me di cuore ).

Codice: 
Sub Main
	Dim Nu(6),Nn(1),Sp(1),Ru(1),Rt(2),posta(1),poste(5)
	posta(1) = 1
	poste(2) = 1.5
	poste(3) = .5
	qt = CInt(InputBox("Quante Estrazioni Verifico",,1000))
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	spia = 28
	pos = 2
	Ru(1) = BA_
	Rt(1) = BA_
	Rt(2) = MI_
	Sp(1) = Spia
	'CALCOLO DELLE Combinazioni
	'PER CALCOLARE L’AMBATA
	'Ambata :
	'06
	'(SI CONSIGLIA DI GIOCARE L’AMBATA PER RECUPERO)
	Nn(1) = 6
	For es = Ini To fin
		If Estratto(es,1,pos) = spia Then
			k = k + 1
			'1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
			'2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
			'3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
			'4° Abbinamento: 2° Estratto di Milano+1° Estratto di Torino+11
			'5° Abbinamento: 4° Estratto di Milano+3° Estratto di Napoli+26
			Nu(1) = Fuori90(Estratto(es,1,2) +(Estratto(es,3,5) + 27))
			Nu(2) = Fuori90(Estratto(es,3,5) +(Estratto(es,8,3) + 3))
			Nu(3) = Fuori90(Estratto(es,3,3) +(Estratto(es,4,3) + 13))
			Nu(4) = Fuori90(Estratto(es,5,2) +(Estratto(es,9,1) + 11))
			Nu(5) = Fuori90(Estratto(es,5,4) +(Estratto(es,6,3) + 26))
			Nu(6) = Nn(1)
			Scrivi String(130,"=")
			Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,Ru(1)) & vbTab & StringaNumeri(Sp,,1),1
			Scrivi "Numero per Ambata : " & Nn(1),1,1,,1,3
			Scrivi "Numeri per Ambo   : " & StringaNumeri(Nu,,1),1,1,,1,3
			Scrivi String(120,"-") & " Caso N. " & k
			ImpostaGiocata 1,Nn,Rt,posta,4,1
			ImpostaGiocata 2,Nu,Rt,poste,4,2
			Gioca es,1,,1
			Scrivi "Spesa parziale   : " & GetSpesa(False),1,1,,1,2
			Scrivi "Vincita Parziale : " & GetVincita(False),1,1,,2,2
			Scrivi "Utile Parziale   : " & GetGuadagno(False),1,1,,7,2
		End If
	Next
	ScriviResoconto
End Sub
 
miche58
ce qualcosa che non torna nei calcoli altre volte ci sono state quaterne e anche con lultima estrazione ci e stata quaterna in lunghetta


ULTIMI ESITI POSITIVI DEL METODO GIOCANDO LA PREVISIONE IN AMBI
mar 02.09.2008 Ambata 6 Abbinamenti per ambo: 47.23.83.84.74. Esiti: gio 04.09.2008 al 1 colpo su Ba ambata 6 gio 04.09.2008 al 1 colpo su Ba ambo 6 - 83 sab 07.11.2009 Ambata 6 Abbinamenti per ambo: 19.14.31.59.84. Esiti: sab 14.11.2009 al 3 colpo su Ba ambata 6 sab 14.11.2009 al 3 colpo su Ba ambo 6 - 31 sab 14.11.2009 al 3 colpo su Ba ambo 6 - 84 sab 14.11.2009 al 3 colpo su Ba ambo 6 - 19 mer 09.12.2009 Ambata 6 Abbinamenti per ambo: 83.89.13.71.34. Esiti: ESITO NEGATIVO gio 07.04.2011 Ambata 6 Abbinamenti per ambo: 13.86.73.21.74. Esiti: mar 12.04.2011 al 2 colpo su Ba ambata 6 mar 12.04.2011 al 2 colpo su Ba ambo 6 - 74 sab 22.10.2011 Ambata 6 Abbinamenti per ambo: 43.39.41.50.40. Esiti: mer 02.11.2011 al 4 colpo su Ba ambata 6 mar 24.01.2012 Ambata 6 Abbinamenti per ambo: 27.14.7.8.84. Esiti: gio 26.01.2012 al 1 colpo su Mi ambata 6 gio 26.01.2012 al 1 colpo su Mi ambo 6 - 7 gio 26.01.2012 al 1 colpo su Mi ambo 6 - 27 gio 26.01.2012 al 1 colpo su Mi ambo 6 - 14 mar 27.11.2012 Ambata 6 Abbinamenti per ambo: 69.21.83.70.11. Esiti: gio 29.11.2012 al 1 colpo su Mi ambata 6 gio 29.11.2012 al 1 colpo su Mi ambo 6 - 69 gio 29.11.2012 al 1 colpo su Mi ambo 6 - 21 mar 14.01.2014 Ambata 6 Abbinamenti per ambo: 29.30.65.24.82. Esiti: gio 16.01.2014 al 1 colpo su Ba ambata 6 gio 16.01.2014 al 1 colpo su Ba ambo 6 - 65 gio 16.01.2014 al 1 colpo su Ba ambo 6 - 24 gio 23.01.2014 al 4 colpo su Mi ambata 6 gio 23.01.2014 al 4 colpo su Mi ambo 6 - 29 gio 23.01.2014 al 4 colpo su Mi ambo 6 - 82 gio 23.01.2014 al 4 colpo su Mi ambo 6 - 30 mar 16.09.2014 Ambata 6 Abbinamenti per ambo: 13.31.32.73.84. Esiti: sab 20.09.2014 al 2 colpo su Mi ambata 6 sab 20.09.2014 al 2 colpo su Mi ambo 6 - 13 sab 20.09.2014 al 2 colpo su Mi ambo 6 - 84 sab 20.09.2014 al 2 colpo su Mi ambo 6 - 31 gio 22.01.2015 Ambata 6 Abbinamenti per ambo: 81.76.50.15.74. Esiti: IN CORSO ... Casi esaminati : 10 Ambate vinte : 9 Ambi vinti : 18

ULTIMI ESITI POSITIVI GIOCANDO LA PREVISIONE IN LUNGHETTA

mar 02.09.2008 6.47.23.83.84.74. Esiti: gio 04.09.2008 al 1 colpo su Ba Ambo 6.83. sab 07.11.2009 6.19.14.31.59.84. Esiti: sab 14.11.2009 al 3 colpo su Ba Quaterna 31.84.19.6. mer 09.12.2009 6.83.89.13.71.34. Esiti: ESITO NEGATIVO gio 07.04.2011 6.13.86.73.21.74. Esiti: mar 12.04.2011 al 2 colpo su Ba Ambo 6.74. sab 22.10.2011 6.43.39.41.50.40. Esiti: ESITO NEGATIVO mar 24.01.2012 6.27.14.7.8.84. Esiti: gio 26.01.2012 al 1 colpo su Mi Quaterna 7.27.6.14. mar 27.11.2012 6.69.21.83.70.11. Esiti: gio 29.11.2012 al 1 colpo su Mi Terno 69.21.6. mar 14.01.2014 6.29.30.65.24.82. Esiti: gio 16.01.2014 al 1 colpo su Ba Terno 6.65.24. gio 23.01.2014 al 4 colpo su Mi Quaterna 29.6.82.30. mar 16.09.2014 6.13.31.32.73.84. Esiti: sab 20.09.2014 al 2 colpo su Mi Quaterna 6.13.84.31. gio 22.01.2015 6.81.76.50.15.74. Esiti: quaterna ieri a bari
 
Ultima modifica:
Si hai ragione avevo fatto gli abbinamenti con tutte le somme, invece c'era qualche moltiplicativo.

eccolo corretto.

Codice: 
Sub Main
	Dim Nu(6),Nn(1),Sp(1),Ru(1),Rt(2),posta(1),poste(5)
	posta(1) = 1
	poste(2) = 1.5
	poste(3) = .5
	poste(4) = .4
	poste(5) = .1
	qt = CInt(InputBox("Quante Estrazioni Verifico",,1000))
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	spia = 28
	pos = 2
	Ru(1) = BA_
	Rt(1) = BA_
	Rt(2) = MI_
	Sp(1) = Spia
	'CALCOLO DELLE Combinazioni
	'PER CALCOLARE L’AMBATA
	'Ambata :
	'06
	'(SI CONSIGLIA DI GIOCARE L’AMBATA PER RECUPERO)
	Nn(1) = 6
	For es = Ini To fin
		If Estratto(es,1,pos) = spia Then
			k = k + 1
			'1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
			'2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
			'3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
			'4° Abbinamento: 2° Estratto di Milano + 1° Estratto di Torino+11
			'5° Abbinamento: 4° Estratto di Milano + 3° Estratto di Napoli+26
			Nu(1) = Fuori90(Estratto(es,1,2) * (Estratto(es,3,5) + 27))
			Nu(2) = Fuori90(Estratto(es,3,5) + (Estratto(es,8,3) + 3))
			Nu(3) = Fuori90(Estratto(es,3,3) *(Estratto(es,4,3) + 13))
			Nu(4) = Fuori90(Estratto(es,5,2) +(Estratto(es,9,1) + 11))
			Nu(5) = Fuori90(Estratto(es,5,4) +(Estratto(es,6,3) + 26))
			Nu(6) = Nn(1)
			Scrivi String(130,"=")
			Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,Ru(1)) & vbTab & StringaNumeri(Sp,,1),1
			Scrivi "Numero per Ambata : " & Nn(1),1,1,,1,3
			Scrivi "Numeri per Ambo   : " & StringaNumeri(Nu,,1),1,1,,1,3
			Scrivi String(120,"-") & " Caso N. " & k
			ImpostaGiocata 1,Nn,Rt,posta,4,1
			ImpostaGiocata 2,Nu,Rt,poste,10,4
			Gioca es,1,,1
			Scrivi "Spesa parziale   : " & GetSpesa(False),1,1,,1,2
			Scrivi "Vincita Parziale : " & GetVincita(False),1,1,,2,2
			Scrivi "Utile Parziale   : " & GetGuadagno(False),1,1,,7,2
		End If
	Next
	ScriviResoconto
End Sub
 
SCUSAMI MIKE PREVISIONE
gio 22.01.2015 6.81.76.50.15.74. Esiti: quaterna ieri a bari 6.81.76.15
CE QUALCOSA CHE NON VA ANCHE PER LE ALTRE QUATERNE
SCUSAMI SE PUOI ANCORA UNA SBIRCIATINA GRAZIE DI CUORE.

CALCOLI CORRETTI ABBINAMENTI
1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
4° Abbinamento: 2° Estratto di Milano+1° Estratto di Torino+11
5° Abbinamento: 4° Estratto di Milano+3° Estratto di Napoli+26
 
Ultima modifica:
ok Trivellato adesso ci siamo, ho ancora modificato il calcolo prima sommando o moltiplicando gli estratti e poi sommando il sommativo.

Codice: 
Sub Main
	Dim Nu(6),Nn(1),Sp(1),Ru(1),Rt(2),posta(1),poste(5)
	posta(1) = 1
	poste(2) = 1.5
	poste(3) = .5
	poste(4) = .4
	poste(5) = .1
	qt = CInt(InputBox("Quante Estrazioni Verifico",,1000))
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	spia = 28
	pos = 2
	Ru(1) = BA_
	Rt(1) = BA_
	Rt(2) = MI_
	Sp(1) = Spia
	'CALCOLO DELLE Combinazioni
	'PER CALCOLARE L’AMBATA
	'Ambata :
	'06
	'(SI CONSIGLIA DI GIOCARE L’AMBATA PER RECUPERO)
	Nn(1) = 6
	For es = Ini To fin
		If Estratto(es,1,pos) = spia Then
			k = k + 1
			'1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
			'2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
			'3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
			'4° Abbinamento: 2° Estratto di Milano + 1° Estratto di Torino+11
			'5° Abbinamento: 4° Estratto di Milano + 3° Estratto di Napoli+26
			Nu(1) = Fuori90(Estratto(es,1,2) * (Estratto(es,3,5))+27)
			Nu(2) = Fuori90(Estratto(es,3,5) + (Estratto(es,8,3))+3)
			Nu(3) = Fuori90(Estratto(es,3,3) *(Estratto(es,4,3))+13)
			Nu(4) = Fuori90(Estratto(es,5,2) +(Estratto(es,9,1))+11)
			Nu(5) = Fuori90(Estratto(es,5,4) +(Estratto(es,6,3))+26)
			Nu(6) = Nn(1)

			
			Scrivi String(130,"=")
			Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,Ru(1)) & "  " & SiglaRuota(Ru(1)) & vbTab & StringaNumeri(Sp,,1),1
			Scrivi "Numero per Ambata : " & Nn(1),1,1,,1,3
			Scrivi "Numeri per Ambo   : " & StringaNumeri(Nu,,1),1,1,,1,3
			Scrivi String(120,"-") & " Caso N. " & k
			ImpostaGiocata 1,Nn,Rt,posta,4,1
			ImpostaGiocata 2,Nu,Rt,poste,10,4
			Gioca es,1,,1
			Scrivi "Spesa parziale   : " & GetSpesa(False),1,1,,1,2
			Scrivi "Vincita Parziale : " & GetVincita(False),1,1,,2,2
			Scrivi "Utile Parziale   : " & GetGuadagno(False),1,1,,7,2
		End If
	Next
	ScriviResoconto
End Sub
 
Ti posto anche la mia versione in tabella.

Codice: 
Sub Main
	Dim Nu(6),Nn(1),Sp(1),Ru(1),Rt(2),posta(1),poste(5)
	posta(1) = 1
	poste(2) = 1.5
	poste(3) = .5
	poste(4) = .4
	poste(5) = .1
	qt = CInt(InputBox("Quante Estrazioni Verifico",,2000))
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	spia = 28
	posiz = 2
	Ru(1) = BA_
	Rt(1) = BA_
	Rt(2) = MI_
	Sp(1) = Spia
	'CALCOLO DELLE Combinazioni
	'PER CALCOLARE L’AMBATA
	'Ambata :
	'06
	'(SI CONSIGLIA DI GIOCARE L’AMBATA PER RECUPERO)
	Nn(1) = 6
	ReDim T(14)
	T(1) = " Caso "
	T(2) = " Info estrazione "
	T(3) = " Ruota & Spia "
	T(4) = " Posiz. "
	T(5) = " Estratti "
	T(6) = " Ambata "
	T(7) = " Esito "
	T(8) = " colpo "
	T(9) = " Lunghetta "
	T(10) = " Esito " & " su " & StringaRuote(Rt)
	T(11) = " colpo "
	T(12) = " Spesa "
	T(13) = " Vincita "
	T(14) = " Utile "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		If Estratto(es,1,posiz) = spia Then
			k = k + 1
			'1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
			'2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
			'3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
			'4° Abbinamento: 2° Estratto di Milano + 1° Estratto di Torino+11
			'5° Abbinamento: 4° Estratto di Milano + 3° Estratto di Napoli+26
			Nu(1) = Fuori90(Estratto(es,1,2) * (Estratto(es,3,5))+27)
			Nu(2) = Fuori90(Estratto(es,3,5) + (Estratto(es,8,3))+3)
			Nu(3) = Fuori90(Estratto(es,3,3) *(Estratto(es,4,3))+13)
			Nu(4) = Fuori90(Estratto(es,5,2) +(Estratto(es,9,1))+11)
			Nu(5) = Fuori90(Estratto(es,5,4) +(Estratto(es,6,3))+26)
			Nu(6) = Nn(1)
			Call VerificaEsito(Nn,Rt,es+1,1,6,,esito,clp,estratti,id)
			Call VerificaEsito(Nu,Rt,es+1,2,10,,esitoA,clpA,estrattiA,idA)
			ImpostaGiocata 1,Nn,Rt,posta,4,1
			ImpostaGiocata 2,Nu,Rt,poste,10,4
			Gioca es,1,,1,,False
			ReDim V(14)
			V(1) = k
			V(2) = GetInfoEstrazione(es)
			V(3) = SiglaRuota(Ru(1)) & " = " & Spia
			V(4) = posiz
			V(5) = StringaEstratti(es,Ru(1))
			V(6) = Nn(1)
			V(7) = esito & "  " & estratti
			V(8) = clp
			V(9) = StringaNumeri(Nu,,1)
			V(10) = esitoA & "  " & estrattiA
			V(11) = clpA
			V(12) = GetSpesa(False)
			V(13) = GetVincita(False)
			V(14) = GetGuadagno(False)
			Call AddRigaTabella(V,,,2)
			'Scrivi String(130,"=")
			
			'Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,Ru(1)) & "  " & SiglaRuota(Ru(1)) & vbTab & StringaNumeri(Sp,,1),1
			'Scrivi "Numero per Ambata : " & Nn(1),1,1,,1,3
			'Scrivi "Numeri per Ambo   : " & StringaNumeri(Nu,,1),1,1,,1,3
			'Scrivi String(120,"-") & " Caso N. " & k
			
			'Scrivi "Spesa parziale   : " & GetSpesa(False),1,1,,1,2
			'Scrivi "Vincita Parziale : " & GetVincita(False),1,1,,2,2
			'Scrivi "Utile Parziale   : " & GetGuadagno(False),1,1,,7,2
		End If
	Next
	
	Call SetTableWidth("100%")
	Call CreaTabella()
	ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 luglio 2025
    Bari
    25
    89
    22
    77
    56
    Cagliari
    05
    87
    46
    70
    49
    Firenze
    17
    85
    66
    59
    54
    Genova
    90
    65
    07
    44
    62
    Milano
    60
    84
    26
    78
    43
    Napoli
    71
    78
    86
    76
    84
    Palermo
    23
    42
    82
    60
    88
    Roma
    86
    60
    85
    19
    01
    Torino
    59
    30
    54
    29
    60
    Venezia
    90
    20
    71
    03
    81
    Nazionale
    70
    36
    74
    27
    38
    Estrazione Simbolotto
    Nazionale
    02
    32
    40
    16
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto