SUPER LOTTO

Metodo "cazzeggio" By el Pantero

« Older   Newer »
  Share  
Pink_Panther
CAT_IMG Posted on 25/3/2012, 19:49




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
 
Top
0 replies since 25/3/2012, 19:49   313 views
  Share