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 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto