Pink_Panther |
|
| CODICE Sub Main() Dim ruote(11) Dim n1(5) Dim ambata(1) Dim posta(1) Dim poste(10) posta(1) = 1 poste(2) = 1 ambata(1) = 1 ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",500) k = InputBox("per quanti colpi?","colpi di gioco",12) 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 = 1 To 9 For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 End If For p1 = 1 To 4 For p2 = p1 + 1 To 5 For p3 = 1 To 5 a = Estratto(es,r1,p1) b = Estratto(es,r1,p2) c = Estratto(es,r2,p3) '--------------------------------------------- If Distanza(a,b) = 45 Then If c = Fuori90(a + b) Then nu1 = Fuori90(a + b) nu2 = Diametrale(nu1) nu3 =(nu2)/2 nu4 = Fuori90(nu3 + 30) nu5 = Fuori90(nu3 + 60) nu6 = Diametrale(nu3) ok = 1 '----------------------------------------------- If ok = 1 Then ambata(1) = nu2 n1(1) = nu2 n1(2) = nu3 n1(3) = nu4 n1(4) = nu5 casi = casi + 1 Scrivi String(100,"°") & " Caso n°" & casi,1 ColoreTesto 1 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _ " ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * estratti : " & " [ " &(a) & " - " &(b) & " ] ",1 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _ " ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * estratti : " & " [ " &(c) & " ] ",1 ruote(1) = r1 ruote(2) = r2 ambata(1) = nu2 n1(1) = nu2 n1(2) = nu3 n1(3) = nu4 n1(4) = nu5 n1(5) = nu6 ColoreTesto 0 ImpostaGiocata 1,ambata,ruote,posta,k,1 ImpostaGiocata 2,n1,ruote,poste,k,2 Gioca es,1 End If End If End If Next 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
|
| |