SUPER LOTTO

1 dei miei tanti metodi

« Older   Newer »
  Share  
Pink_Panther
CAT_IMG Posted on 17/3/2012, 21:50




CODICE
Sub Main()
       Dim ruote(11)
       Dim n1(4)
       Dim n2(4)
       Dim n3(8)
       Dim fi1
       Dim fi2
       Dim poste(10)
       poste(2) = 1
       poste(3) = 1
       fi1 = CInt(InputBox(" Inserisci la prima Figura ",,"1"))
       fi2 = CInt(InputBox(" Inserisci la seconda Figura ",,"6"))
       ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",30)
       k = InputBox("per quanti colpi?","colpi di gioco",9)
       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 4
                                                       For p4 = p3 + 1 To 5
                                                               a = Estratto(es,r1,p1)
                                                               b = Estratto(es,r1,p2)
                                                               c = Estratto(es,r2,p3)
                                                               d = Estratto(es,r2,p4)
                                                               '---------------------------------------------
                                                               If Figura(a) = fi1 And Figura(b) = fi1 Then
                                                                       If Figura(c) = fi2 And Figura(d) = fi2 Then
                                                                               ok = 1
                                                                               '-----------------------------------------------
                                                                               If ok = 1 Then
                                                                                       n1(1) = Fuori90(a + d)
                                                                                       n1(2) = Fuori90(b + c)
                                                                                       n1(3) = Vert(n1(1))
                                                                                       n1(4) = Vert(n1(2))
                                                                                       '--------------------------
                                                                                       n2(1) = Fuori90(a + c)
                                                                                       n2(2) = Fuori90(b + d)
                                                                                       n2(3) = Vert(n2(1))
                                                                                       n2(4) = Vert(n2(2))
                                                                                       '--------------------------
                                                                                       n3(1) = Fuori90(a + d)
                                                                                       n3(2) = Fuori90(b + c)
                                                                                       n3(3) = Vert(n1(1))
                                                                                       n3(4) = Vert(n1(2))
                                                                                       n3(5) = Fuori90(a + c)
                                                                                       n3(6) = Fuori90(b + d)
                                                                                       n3(7) = Vert(n2(1))
                                                                                       n3(8) = Vert(n2(2))
                                                                                       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) & " ]" & "  *   Figure : " & " [ " & Figura(a) & " - " & Figura(b) & " ] ",1
                                                                                       Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                                                                                       " ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & "  *   Figure : " & " [ " & Figura(c) & " - " & Figura(d) & " ] ",1
                                                                                       ruote(1) = r1
                                                                                       ruote(2) = r2
                                                                                       n1(1) = Fuori90(a + d)
                                                                                       n1(2) = Fuori90(b + c)
                                                                                       n1(3) = Vert(n1(1))
                                                                                       n1(4) = Vert(n1(2))
                                                                                       '--------------------------
                                                                                       n2(1) = Fuori90(a + c)
                                                                                       n2(2) = Fuori90(b + d)
                                                                                       n2(3) = Vert(n2(1))
                                                                                       n2(4) = Vert(n2(2))
                                                                                       '--------------------------
                                                                                       n3(1) = Fuori90(a + d)
                                                                                       n3(2) = Fuori90(b + c)
                                                                                       n3(3) = Vert(n1(1))
                                                                                       n3(4) = Vert(n1(2))
                                                                                       n3(5) = Fuori90(a + c)
                                                                                       n3(6) = Fuori90(b + d)
                                                                                       n3(7) = Vert(n2(1))
                                                                                       n3(8) = Vert(n2(2))
                                                                                       ColoreTesto 0
                                                                                       EliminaRipetuti n1
                                                                                       ImpostaGiocata 1,n1,ruote,poste,k,2
                                                                                       EliminaRipetuti n2
                                                                                       ImpostaGiocata 2,n2,ruote,poste,k,2
                                                                                       EliminaRipetuti n3
                                                                                       ImpostaGiocata 3,n3,ruote,poste,k,2
                                                                                       Gioca es,1
                                                                               End If
                                                                       End If
                                                               End If
                                                       Next
                                               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
 
Top
0 replies since 17/3/2012, 21:50   476 views
  Share