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
    martedì 17 febbraio 2026
    Bari
    40
    72
    47
    39
    63
    Cagliari
    03
    66
    47
    27
    35
    Firenze
    14
    62
    53
    08
    51
    Genova
    55
    12
    81
    52
    04
    Milano
    41
    31
    55
    23
    59
    Napoli
    30
    09
    38
    14
    50
    Palermo
    19
    86
    40
    32
    07
    Roma
    65
    88
    51
    42
    41
    Torino
    10
    06
    34
    84
    81
    Venezia
    06
    25
    82
    24
    52
    Nazionale
    10
    74
    04
    29
    88
    Estrazione Simbolotto
    Cagliari
    01
    41
    21
    44
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto