cinque chiama nove

[bibbolotto]

attendete sulla ruota di palermo l uscita di un ambo in fig.5

quindi mettete in gioco la fig 9 per ambo e terno sulla stessa ruota
non giocare se nella stessa estrazione vi e' oltre l ambo di fig 5 anche un numero di fig 9

ho controllato 2013 2014 ottimo!

 

[vengio]

Ciao Bibbo, un esempio?

 

[curioso]

ciao bibbo, grazie per quello che ci proponi infatti mi stavo chiedendo quando ci avresti deliziato di qualche altra tua ricerca sempre interessanti, per quanto riguarda questo, per quanti colpi si dovrebbero giocare?

 

[bibbolotto]

estr 15 marzo 2013 palermo 59 87 77 3 42 come vedi 59 e 77 sono di fig 5

estr 18 marzo 2013 palermo 18 20 6 72 14 come vedi ambo in fig 9 18 72

volendo insistere estr 20 marzo palermo 78 56 38 36 90 ambo 36 90 di fig 9

altri esempi sono del 2013

 

[DDBid]

Ciao, di seguito lo script:

Sub Main()
	Scrivi " ** Figura5 chiama Figura9 su PA ** di bibbolotto scripted by DDBid ",1 ' - http://forum.lottoced.com/f8/cinque-chiama-nove-112144/#post1266416 -
	Scrivi
	Dim ruote(10),CinqueNumeri
	Dim n(3),num(10)
	Dim poste(10)
	poste(2) = 4
	poste(3) = 1
	ab = InputBox("Quante estrazioni controllo a ritroso?","Analisi archivio",150)
	klp = InputBox("Per quanti colpi vuoi giocare?","Colpi",6)
	fin = EstrazioneFin
	ini = fin - ab
	r = 7 'PA
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		Messaggio es
		For p = 1 To 4
			a = Estratto(es,r,p)
			If Figura(a) = 5 Then
				For p2 = p + 1 To 5
					b = Estratto(es,r,p2)
					If Figura(b) = 5 Then
						GetArrayNumeriRuota es,r,CinqueNumeri
						If((Figura(CinqueNumeri(1)) <> 9) And(Figura(CinqueNumeri(2)) <> 9) And(Figura(CinqueNumeri(3)) <> 9) And(Figura(CinqueNumeri(4)) <> 9) And(Figura(CinqueNumeri(5)) <> 9)) Then
							num(1) = 9
							num(2) = 18
							num(3) = 27
							num(4) = 36
							num(5) = 45
							num(6) = 54
							num(7) = 63
							num(8) = 72
							num(9) = 81
							num(10) = 90
							ruote(1) = r
							cs = cs + 1
							Scrivi String(106,"=") & " Caso n°" & Format2(cs),1 :ColoreTesto 1
							Scrivi DataEstrazione(es) & " - " & NomeRuota(r) & " - " & StringaEstratti(es,r) & " - Estratto il numero in Fig.5 [" & Format2(a) & "] in " & Format2(p) & "° pos." & " - Estratto il numero in Fig.5 [" & Format2(b) & "] in " & Format2(p2),1
							ColoreTesto 0
							ImpostaGiocata 1,num,ruote,poste,klp,3
							Gioca es,1
						End If
					End If
				Next
			End If
		Next
	Next
	Scrivi:Scrivi
	ScriviResoconto
End Sub

Grazie bibbolotto per aver condiviso la tua ricerca!