ricerca Ambi stessa distanza in verticale

[lottomoney]

Buonasera, desideravo sapere se è possibile uno script che ricerchi, su due ruote consecutive, due ambi aventi la stessa distanza (o differenza).
Esempio: estrazione n.54 del 06/05/2017
[img]Bari 15 31 20 78 66
Cagliari 84 33 47 9 45
69 2 27 69 21[/img]


si può notare che tra 15 e 84 e tra 78 e 9 c'è la stessa distanza 69.

Nella stessa estrazione avevamo anche
Milano 12 83 64 62 2
Napoli 15 80 52 5 89
3 3 12 57 87

dove tra 12 e 15 c'è la distanza 3 e tra 83 e 80 c'è la stessa distanza 3.

Grazie per l'aiuto.

[Master]

Ciao lottomoney
distanza e differenza sono due cose diverse..
Lo script l'ho fatto per le differenze come dagli esempi diviso per data di estrazione

Codice: Seleziona tutto

Sub Main
   Dim ru(2),ambo1(2),ambo2(2)
   est = InputBox("QUANTE ESTRAZIONI CONTROLLO",,10)
   Ini = EstrazioneFin - est
   fin = EstrazioneFin
   For es = Ini To fin
      ColoreTesto 2
      Scrivi(es) & " " & DataEstrazione(es) & " " & String(40,"="),1:ColoreTesto 0
      Scrivi
      For r1 = 1 To 10
         r2 = r1 + 1
                                                If r1 = 10 Then r2 = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               ambo1(1) = Estratto(es,r1,p1)
               ambo1(2) = Estratto(es,r1,p2)
               For p3 = 1 To 4
                  For p4 = p3 + 1 To 5
                     ambo2(1) = Estratto(es,r2,p3)
                     ambo2(2) = Estratto(es,r2,p4)
                     d = Differenza(ambo1(1),ambo2(1)) : d1 = Differenza(ambo1(2),ambo2(2))
                     If d = d1 Then
                        '
                        Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,r1) & "  " & SiglaRuota(r1) & "  " & StringaNumeri(ambo1,".",True) & " Pos. " & p1 & "/" & p2 & " Differenza " & d
                        Scrivi DataEstrazione(es) & "  " & StringaEstratti(es,r2) & "  " & SiglaRuota(r2) & "  " & StringaNumeri(ambo2,".",True) & " Pos. " & p3 & "/" & p4 & " Differenza " & d1
                        Scrivi
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub
 

[lottomoney]

Grazie Master, direi che manca solo l'abbinamento VENEZIA/NAZIONALE e poi sarebbe perfetto!!!
grazie mille x la pazienza
lottomoney

[Master]

ciao lottomoney
gli ho aggiunto la nazionale..
ora si può dire che è perfetto
buona domenicaaaa

[lottomoney]

SEI UN GRANDEEEEEE!!!!

Grazie

[lottomoney]

x MASTER

mi sono accorto che lo script funziona in maniera diversa da quanto richiesto,
infatti desideravo ricercare su due ruote consecutive la stessa distanza (o differenza)
come da esempio postato.
Lo script esegue invece il calcolo della differenza (o distanza) tra due numeri della stessa ruota
e li calcola anche sulla ruota consecutiva.

Mi chiedevo se è possibile modificarlo come da richiesta iniziale.
Mi scuso per il ritardo della verifica script.
lottomoney

[lottomoney]

in pratica è una ricerca come questa, però su tutti e 5 gli estratti e non solo sul 1° e 5° estratto, ma sopratutto su due ruote consecutive:

Sub main()
Dim ambata(2),terzina(3),stringal(4),ruote(10),posta(1),postet(3),posteq(4)
posta(1)=1 : postet(2)=1 : postet(3)=1 : posteq(3)=1 : posteq(4)=1
ini=CInt(InputBox("inizio",,8600))
k=CInt(InputBox("colpi",,10))
fin=EstrazioneFin
For es=ini To fin
For r1 = 1 To 10
n1=Estratto(es,r1,1):n2=Estratto(es,r1,5)
For r2 = r1+1 To 12 : If r2 = 11 Then r2=12
n3=Estratto(es,r2,1):n4=Estratto(es,r2,5)
ds1 = Distanza(n1,n3) : ds2=Distanza(n2,n4)
If ds1=ds2 Then
num1=ds1+ds2 '1°ambata
num2=Fuori90(ds1*ds2) '2°ambata
num3=90-(ds1) 'abb x terzina
numq1=Figura(n1)+Figura(n2) 'somma figure n1 e n2 = somma figure n3 e n4
ruote(1)=r1 :ruote(2)=r2
cont=cont+1:scrivi String(99,"=")&" Caso n°"& Format2(cont),1
Scrivi DataEstrazione(es)&" "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" "& Format2(n1)&"-"& Format2(n2)
Scrivi DataEstrazione(es)&" "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" "& Format2(n3)&"-"& Format2(n4)
ambata(1)=num1
ambata(2)=num2
ImpostaGiocata 1,ambata,ruote,posta,k
terzina(1)=num1
terzina(2)=num2
terzina(3)=num3
ImpostaGiocata 2,terzina,ruote,postet,k
stringal(1)=num1
stringal(2)=num2
stringal(3)=num3
stringal(4)=numq1
ImpostaGiocata 3,stringal,ruote,posteq,k
Gioca es,1
End If
Next:next:next
scrivi:scriviresoconto
End Sub