Sub Main()
Scrivi "Metodo i legend http://forum.lottoced.com/f8/napoli_palermo-119680/ -",True,,,0,4:Scrivi
Dim ruote(10)
Dim n1(1): Dim n2(3): Dim n3(5)
Dim posta(1)
Dim poste(2): Dim postee(5)
posta(1) = 1 : poste(2) = 1
postee(2) = 1 : postee(3) = 0.8 : postee(4) = 0.2
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",5000)
k = InputBox("per quanti colpi?","colpi di gioco",11)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 6 To 6
For r2 = 7 To 7
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,6,p1)
b = Estratto(es,7,p2)
If a = 1 And b = 1 Then
ok = 1
If ok = 1 Then
n1(1) = 31
'--------------
n2(1) = 31 : n2(2) = 19 : n2(3) = 64
'--------------
n3(1) = 31 :n3(2) = 35 : n3(3) = 40 : n3(4) = 45 : n3(5) = 85
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ]" & " Posizione : " & " [ " & Format2(p1) & " ] "
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] [ " & Format2(b) & " ]" & " Posizione : " & " [ " & Format2(p2) & " ] "
Scrivi
ruote(1) = 6
ruote(2) = 7
ColoreTesto 0
ImpostaGiocata 1,n1,ruote,posta,k
ImpostaGiocata 2,n2,ruote,poste,k,2
ImpostaGiocata 3,n3,ruote,postee,k,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub
