Metodo personale "1RO + 2RO = 5RO" - con script allegato X 3 colpi

[DDBid]

Ciao,
questo metodo da giocare per soli 3 colpi:

Quando la somma del 1 estratto di RO + il 2 estratto di RO risulta esattamente il 5 estratto di RO (va calcolato il Fuori90), si mettono in gioco i seguenti numeri fissi su BA/VE per 9 colpi:
Ambata 77
Abbinamenti 01-05-53

Dal 30/05/2009 ad oggi: 8 casi vincenti su 8
Vinte 24 ambate e 8 ambi entro i 9 colpi

Ultima condizione rilevata il 24/08/2013 - in corso per 3 colpi.. (6 colpi gia' andati)

---------------------------
Da giocare su BA/VE
Ambata: 77
Ambi: 77-01 / 77-05 / 77-53
---------------------------

Allego script da me creato:

Sub Main()
	Scrivi " METODO ** R1 + R2 = R5 ** - CREATO CON LOTTOGEOS II, scripted by DDBid ",1,2,1,3
	Dim ru(2),posta(1),poste(5),ambata(1)
	Dim ambo1(2),ambo2(2),ambo3(2),Quartina(4)
	posta(1) = 1
	poste(2) = 1
	'poste(3) = 1
	ru(1) = 1
	ru(2) = 10
	k = 9
	Ini = InputBox("Da quale estrazione inizio il controllo?","ID Estrazione",8071)
	fin = EstrazioneFin
	Scrivi " Resoconto dal " & DataEstrazione(ini) & " (" &(Ini) & " estr.)" & " al " & _
	DataEstrazione(fin) & " (" &(fin) & " estr.)",1
	Scrivi
	Casi = 0
	For es = ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		For p = 1 To 1
			a = Estratto(es,RO_,p)
			For p1 = p + 1 To 2
				b = Estratto(es,RO_,p1)
				For p2 = 5 To 5
					c = Estratto(es,RO_,p2)
					If Fuori90(a + b) = c Then
						casi = casi + 1
						ambata(1) = 77
						ambo1(1) = ambata(1)
						ambo1(2) = 05
						ambo2(1) = ambata(1)
						ambo2(2) = 53
						ambo3(1) = ambata(1)
						ambo3(2) = 01
						' X Terno
						Quartina(1) = ambata(1)
						Quartina(2) = ambo1(2)
						Quartina(3) = ambo2(2)
						Quartina(4) = ambo3(2)
						Scrivi " ***** Caso nr. - " & casi & " *****"
						ReDim MatriceCaselleDaEvid(5,1)
						' Primo elemento
						MatriceCaselleDaEvid(1,0) = 2 ' ruota prima
						MatriceCaselleDaEvid(1,1) = p ' Pos. Estratto
						' secondo elemento
						MatriceCaselleDaEvid(2,0) = 3 ' ruota seconda
						MatriceCaselleDaEvid(2,1) = p1 ' Pos. Estratto
						' terzo elemento
						MatriceCaselleDaEvid(3,0) = 2 ' ruota del Bivalente
						MatriceCaselleDaEvid(3,1) = p2 ' Pos. Estratto
						Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
						ImpostaGiocata 1,ambata,ru,posta,k,1
						ImpostaGiocata 2,ambo1,ru,poste,k,2
						ImpostaGiocata 3,ambo2,ru,poste,k,2
						ImpostaGiocata 4,ambo3,ru,poste,k,2
						'ImpostaGiocata 5,Quartina,ru,poste,k,3
						Gioca es,1
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
End Sub

Io gioco x 3 colpi, ho buone sensazioni..
Ciao a tutti

 

[venesian]

ciao ,x questa volta è andata non bene, attendiamo altre 3 estrazioni o lasciamo perdere. grazie

 

[maury]

Io sto' aspettando il 77 a BA ed è all'ultimo colpo.....speren

 

[DDBid]

Scusa venesian ma non ho capito il tuo intervento...
La mia proposta e' di giocare per 3 colpi da stasera 10/09 visto che 6 colpi sono gia' andati ed entro i 9 colpi sinora il metodo ha vinto 8 volte su 8.. Cosa intendi con "questa volta 'e andata non bene"..??!?

 

[DDBid]

Domani ultimo colpo, vediamo che succede...

 

[DDBid]

Chiusa con esito negativo