DDBid
Member
Ciao,
ho creato questo metodo fresco fresco che posto sperando possa farci vincere
Dal 30/05/2009 ad oggi: 8 casi vincenti su 8
Vinte 30 ambate e 11 ambi entro i 9 colpi
Ultima condizione rilevata il 31/08/2013 - in corso per 9 colpi..
Da giocare su CA/MI
Ambata: 59
Ambi: 59-32 / 59-80 / 59-30
Allego script da me creato
In bocca al lupo a chi vorra' seguire il metodo
Saluti a tutto il forum!
ho creato questo metodo fresco fresco che posto sperando possa farci vincere

Dal 30/05/2009 ad oggi: 8 casi vincenti su 8
Vinte 30 ambate e 11 ambi entro i 9 colpi
Ultima condizione rilevata il 31/08/2013 - in corso per 9 colpi..
Da giocare su CA/MI
Ambata: 59
Ambi: 59-32 / 59-80 / 59-30
Allego script da me creato
Codice:
Sub Main()
Scrivi " METODO ** 3GE * 3FI = 3NA ** - 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) = 2 'CA
ru(2) = 5 'MI
k = 9 'colpi
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 = 3 To 3
a = Estratto(es,GE_,p)
b = Estratto(es,FI_,p)
c = Estratto(es,NA_,p)
If Fuori90(a*b) = c Then
casi = casi + 1
ambata(1) = 59
ambo1(1) = ambata(1)
ambo1(2) = 32
ambo2(1) = ambata(1)
ambo2(2) = 80
ambo3(1) = ambata(1)
ambo3(2) = 30
' 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) = 3 ' ruota prima
MatriceCaselleDaEvid(1,1) = p ' Pos. Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = 4 ' ruota seconda
MatriceCaselleDaEvid(2,1) = p ' Pos. Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = 6 ' ruota del Bivalente
MatriceCaselleDaEvid(3,1) = p ' 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
ScriviResoconto
End Sub
In bocca al lupo a chi vorra' seguire il metodo
Saluti a tutto il forum!