Qualquno ricorda questo metodo?

[simj]

grazie!!!

 

[RISCHIO]

Buona sera Rosce , secondo me la previsione a dato i suoi frutti in quanto si e formata nella ruota di FI il 7-1-2014 con l'uscita del 16 e dopo alcune estrazioni ha dato l'ambo .

 

[DDBid]

Script - Metodo 12 Ambi di Baffoblu

Script - Metodo 12 Ambi di Baffoblu

Ecco lo script:

Sub Main
	Dim Numero,Pos,Poste(10),Ruota(12)
	Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2),Ambo7(2),Ambo8(2),Ambo9(2),Ambo10(2),Ambo11(2),Ambo12(2)
	Dim flagProg,Annetto,Mesetto,es,estr
	TestoInBandaPassante "Metodo di BAFFOBLU' **** 12 Ambi **** scripted by DDBid",1,3,1
	Poste(2) = 1 'Per ambo
	Annetto = CInt(InputBox("Quale anno vuoi controllare?","Anno",2014))
	'ab = CInt(InputBox("Quante estrazioni vuoi controllare?","Check",300))
	Fine = EstrazioneFin
	Inizio = EstrazioneFin - 3000	
	k = CInt(InputBox("Per quanti colpi vuoi giocare?","Giocata",12))
	
	'---------- Imposta Ambi ----------
	Ambo1(1) = 14
	Ambo1(2) = 15
	Ambo2(1) = 08
	Ambo2(2) = 17
	Ambo3(1) = 11
	Ambo3(2) = 56
	Ambo4(1) = 37
	Ambo4(2) = 88
	Ambo5(1) = 49
	Ambo5(2) = 66
	Ambo6(1) = 33
	Ambo6(2) = 66
	Ambo7(1) = 66
	Ambo7(2) = 74
	Ambo8(1) = 54
	Ambo8(2) = 88
	Ambo9(1) = 66
	Ambo9(2) = 86
	Ambo10(1) = 36
	Ambo10(2) = 84
	Ambo11(1) = 24
	Ambo11(2) = 66
	Ambo12(1) = 08
	Ambo12(2) = 64
	'-------------------------------------------
	
	For es = Inizio To Fine
		AvanzamentoElab Inizio,Fine,es
		Messaggio es
		Mesetto = Mese(es)
		If((Anno(es) = Annetto) And(IndiceAnnuale(es) = 1)) Then
			Numero = Estratto(es,1,1)
		End If

		If(Anno(es) = Annetto And Mesetto > 1) Then
			r = Mesetto + 1
			If r <= 9 Then
				If IsNumeroPresenteInEstrazione(es,r,Numero,Pos) Then
					Scrivi "Primo numero dell'anno estratto in Pos I su BA: " & Numero
					Scrivi "OK" & " Estraz:" & es & " - " & SiglaRuota(r) & " - Numero:" & Numero & " - Posizione:" & Pos
					Scrivi
					Ruota(1) = BA_ 'la prima ruota di gioco é sempra BA
					Ruota(2) = r
					
						ImpostaGiocata 1,Ambo1,Ruota,Poste,k,2,,1
						ImpostaGiocata 2,Ambo2,Ruota,Poste,k,2,,1
						ImpostaGiocata 3,Ambo3,Ruota,Poste,k,2,,1
						ImpostaGiocata 4,Ambo4,Ruota,Poste,k,2,,1
						ImpostaGiocata 5,Ambo5,Ruota,Poste,k,2,,1
						ImpostaGiocata 6,Ambo6,Ruota,Poste,k,2,,1
						ImpostaGiocata 7,Ambo7,Ruota,Poste,k,2,,1
						ImpostaGiocata 8,Ambo8,Ruota,Poste,k,2,,1
						ImpostaGiocata 9,Ambo9,Ruota,Poste,k,2,,1
						ImpostaGiocata 10,Ambo10,Ruota,Poste,k,2,,1
						ImpostaGiocata 11,Ambo11,Ruota,Poste,k,2,,1
						ImpostaGiocata 12,Ambo12,Ruota,Poste,k,2,,1
						Gioca es,1
					
					Scrivi
					Scrivi " Spesa giocata..... " & GetSpesa(True)
					Scrivi " Totale vincita....." & GetVincita(True)
					Scrivi " Totale utile......." & GetGuadagno(True)
					Scrivi
					ScriviResoconto
					Exit Sub
				End If
			End If
		End If
	Next
	ScriviResoconto
End Sub

Alcune note:
- Al prompt, è sufficiente inserire l'anno di controllo e lo script rileverá il primo numero estratto su BA nell'anno in questione, per poi mettere in gioco gli ambi non appena la condizione risulta giocabile
- Ho impostato lo script affinché interrompa tutte le giocate alla sortita del primo ambo a ruota. Per forzare tutte le 12 giocate per la durata dei colpi prescelti, eliminare per ogni giocata ",,1" al termine della riga -> (ImpostaGiocata 1,Ambo1,Ruota,Poste,k,2,,1 deve diventare ImpostaGiocata 1,Ambo1,Ruota,Poste,k,2)
- Ho impostato il default a 12 colpi anziché 9 solo perché nel 2013, dopo 20 anni nei primi 9 colpi, l'ambo é uscito all'11o colpo)

Spero lo script possa tornarvi utile! (é testato per la versione 1.4.61 di Spaziometria)

Ciao

 

[DDBid]

Per rischio:
il numero da ricercare comincia da Febbraio su Firenze (mai da Gennaio)

Bye

 

[rosce14]

Buona sera Rosce , secondo me la previsione a dato i suoi frutti in quanto si e formata nella ruota di FI il 7-1-2014 con l'uscita del 16 e dopo alcune estrazioni ha dato l'ambo .

No! La ricerca inizia a febbraio.
Leggi il metodo dall'inizio.

 

[franca46]

Ecco lo script:

Ciao

 

[franca46]

No! La ricerca inizia a febbraio.
Leggi il metodo dall'inizio.

ciao rosche è corretto

 

[rosce14]

Per rischio:
il numero da ricercare comincia da Febbraio su Firenze (mai da Gennaio)

Bye

X LO SCRIPT

 

[DDBid]

Per chi intende seguire questo metodo, sabato sarà il 4o colpo
In bocca al lupo!

 

[RISCHIO]

Ciao Rosce , ti ringrazio perché non ricordavo più il metodo. A BUON RENDERE

 

[DDBid]

Ho tenuto controllato, giusto per curiosità..
Andato anche il 12 colpo = esito negativo per quest'anno