Sub Main()
Scrivi " metodo per ambata determinata di bibbolotto ",1 ' - http://forum.lottoced.com/f8/metodo-per-ambata-determinata-110972/ -
Dim ruote(2)
Dim nu1(1)
Dim posta(1),posta1(10),posta2(10)
posta(1) = 1
k = 13
ini = 8633
fin = EstrazioneFin
For es = ini To fin
Messaggio " elab. estr. [" &(es) & "] del " & DataEstrazione(es)
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
b = Estratto(es,r2,p1)
If a = b Then
For r3 = 1 To 11
If r3 = 11 Then r3 = 12
For p2 = 1 To 5
c = Estratto(es,r3,p2)
If c = Vert(a) Then
If r3 = r1 Or r3 = r2 Then
casi = casi + 1
Scrivi String(67,"=") & " caso n° " &(casi)
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " Estratto il Numero [" & Format2(a) & _
"] in " & Format2(p1) & "° posizione",1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " Estratto Isotopo [" & Format2(b) & _
"] In " & Format2(p1) & "° Posizione",1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r3) & " - " & StringaEstratti(es,r3) & " Estratto il Vertibile [" & Format2(c) & _
"] In " & Format2(p2) & "° Posizione",1
ruote(1) = r1
ruote(2) = r2
ok = 0
If p1 = 1 Then posta1(06) = 1 :posta1(07) = 0:posta1(08) = 0:posta1(09) = 0:posta1(10) = 0:ok = 1
If p1 = 2 Then posta1(07) = 1 :posta1(08) = 0:posta1(09) = 0:posta1(10) = 0:posta1(06) = 0:ok = 1
If p1 = 3 Then posta1(08) = 1 :posta1(09) = 0:posta1(10) = 0:posta1(06) = 0:posta1(07) = 0:ok = 1
If p1 = 4 Then posta1(09) = 1 :posta1(10) = 0:posta1(06) = 0:posta1(07) = 0:posta1(08) = 0:ok = 1
If p1 = 5 Then posta1(10) = 1 :posta1(06) = 0:posta1(07) = 0:posta1(08) = 0:posta1(09) = 0:ok = 1
'----------------------------------------------------------------------------------------
If p2 = 1 Then posta2(06) = 1 :posta2(07) = 0:posta2(08) = 0:posta2(09) = 0:posta2(10) = 0:ok = 1
If p2 = 2 Then posta2(07) = 1 :posta2(08) = 0:posta2(09) = 0:posta2(10) = 0:posta2(06) = 0:ok = 1
If p2 = 3 Then posta2(08) = 1 :posta2(09) = 0:posta2(10) = 0:posta2(06) = 0:posta2(07) = 0:ok = 1
If p2 = 4 Then posta2(09) = 1 :posta2(10) = 0:posta2(06) = 0:posta2(07) = 0:posta2(08) = 0:ok = 1
If p2 = 5 Then posta2(10) = 1 :posta2(06) = 0:posta2(07) = 0:posta2(08) = 0:posta2(09) = 0:ok = 1
If ok = 1 Then
nu1(1) = Fuori90(a + b)
ImpostaGiocata 1,nu1,ruote,posta,k,1
ImpostaGiocata 2,nu1,ruote,posta1,k,1
ImpostaGiocata 3,nu1,ruote,posta2,k,1
Gioca es,True,,1
End If
End If
End If
Next
Next
End If
Next
Next
Next
Next
Scrivi String(52,"=") & "",1
ScriviResoconto
End Sub