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ì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto