DDBid
Member
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:
Io gioco x 3 colpi, ho buone sensazioni..
Ciao a tutti
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:
Codice:
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 SubIo gioco x 3 colpi, ho buone sensazioni..
Ciao a tutti
