Metodo Distanza 9

[lottomoney]

Buongiorno, vorrei sottoporre un metodo da eseguire come script, per chi ne ha la capacità ma sopratutto la voglia
In qualsiasi estrazione prendere due numeri isotopi anche se non consecutivi di DISTANZA 9 (esempio: 10/08/2017: FIRENZE 60 - NAPOLI 51) ed eseguire i seguenti calcoli:
90-60=30
90-51=39
30+39 = 69 prima ambata
90-69 = 21 seconda ambata
Abbinamenti:
Prima ambata 69 + 45 = 24 1° abbinamento
Vertibile 1°abbinamento 2° abbinamento
Vertibile 2a ambata 3° abbinamento

Questo calcolo va eseguito per tutte le combinazioni di DISTANZA 9 su due ruote isotope anche non consecutive.
Nella stessa estrazione del 10/08/2017 ci sono 8 combinazioni di cui 3 sono uguali.
Grazie anticipate per chi volesse prendere in considerazione il lavoro.
lottomoney

[Master]

Ciao lottomoney
Prova questo se va bene

Codice: Seleziona tutto

Sub Main()
   Dim ruote(2),posta(5),nu1(10),nu2(10),ruota(2),poste(5)
   posta(1) = 1
   poste(2) = 1:poste(3) = 1:poste(4) = .1
   ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",10))
   k = CInt(InputBox("quanti colpi di gioco?","colpi di gioco",9))
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   For es = ini To fin:Messaggio 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 Distanza(a,b) = 9 Then
                  n5 =(90 - a):n6 =(90 - b)
                  amb = Fuori90(n5 + n6) : amb1 =(90 - amb)
                  casi = casi + 1:Scrivi String(65,"•") & " caso n° " &(casi),1
                  ColoreTesto 1
                  Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                  " ] " & Format2(a) & " " &(p1) & "^ pos.",1
                  Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                  " ] " & Format2(b) & " " &(p1) & "^ pos.",1
                  ColoreTesto 0 : Scrivi String(60,"-")
                  ruote(1) = r1:ruote(2) = r2
                  n1 = Fuori90(a + b)
                  n2 = Diametrale(n1)
                  nu1(1) = amb
                  nu1(2) = amb1
                  ImpostaGiocata 1,nu1,ruote,posta,k
                  nu2(1) = amb
                  nu2(2) = amb1
                  nu2(3) = Fuori90(amb + 45)
                  nu2(4) = Vert(nu2(3))
                  nu2(5) = Vert(amb1)
                  ImpostaGiocata 2,nu2,ruote,poste,k
                  Gioca es
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

[lottomoney]

buonasera Master, va benissimo, grazie mille
lottomoney