11ª estrazione mensile

Questo è il metodo che ha fatto
l'ambo secco 73-85 nella gara "LA PROVA DEL 5"


Ruota di Ricerca: Ca

Ruota/e di Gioco: Ba/Ca
Estrazione di calcolo: 11ª estrazione mensile

Ambata : 5° di Ca + 4

1° abbinamento: 4° di Ge + 50

2° abbinamento: 3° di Ge + 15


tentativo di terno


1° di Ba + 72


3° di Fi + 59

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim numeri3(10)
Dim posta(5)
Dim posto(5)
Dim poste(5)
posta(2)=1
posto(2)=3
posto(3)=1.5
posto(4)=0.4
posto(5)=0.1
poste(1)=1
ruote(1)=1
ruote(2)=2
k=14
For n=7623 To EstrazioneFin
If IndiceMensile(n)=11 Then
numeri1(1)=Fuori90(Estratto(n,2,5)+4)
ImpostaGiocata 1,numeri1,ruote,poste,k,3
numeri2(1)=Fuori90(Estratto(n,2,5)+4)
numeri2(2)=Fuori90(Estratto(n,4,4)+50)
ImpostaGiocata 2,numeri2,ruote,posta,k,3
numeri2(2)=Fuori90(Estratto(n,4,3)+15)
ImpostaGiocata 3,numeri2,ruote,posta,k,3
numeri2(2)=Fuori90(Estratto(n,1,1)+72)
ImpostaGiocata 4,numeri2,ruote,posta,k,3
numeri2(2)=Fuori90(Estratto(n,3,3)+59)
ImpostaGiocata 5,numeri2,ruote,posta,k,3
numeri3(1)=Fuori90(Estratto(n,2,5)+4)
numeri3(2)=Fuori90(Estratto(n,4,4)+50)
numeri3(3)=Fuori90(Estratto(n,4,3)+15)
numeri3(4)=Fuori90(Estratto(n,1,1)+72)
numeri3(5)=Fuori90(Estratto(n,3,3)+59)
ImpostaGiocata 10,numeri3,ruote,posto,k,3
For a=2 To 9
For b=2 To 9
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

Buon Lavoro

[size=9]
gio 25.06.2009 [8082]

G 1: M 16 Ba Ca 0/10

n.i. (10 colpi)

G 2: A 16.41 Ba Ca 0/10

n.i. (10 colpi)

G 3: A 16.78 Ba Ca 0/10

n.i. (10 colpi)

G 4: A 16.45 Ba Ca 0/10

n.i. (10 colpi)

G 5: A 16.66 Ba Ca 0/10

n.i. (10 colpi)

G 10: ATQC 16.41.78.45.66 Ba Ca 0/10

n.i. (10 colpi)
[/size]

grazie anche a Graan scaricato il foglio