UN'AGGIUNTA X SALVO50

[kubes]

CIAO Salvo in rete ho trovato questo script, il quale cerca la distanza 30 in verticale sia su ruote continue che non;potresti aggiungere anche la ricerca in diagonale (sia su ruote continue che non )? grazie

Sub Main()
   Dim ruote(2),posta(5),nu1(10),nu2(10),ruota(2),poste(5)
   Dim manca,metti,posa
   posta(2) = 2
   poste(2) = 1:poste(3) = 1:poste(4) = .1
   ce = CInt(InputBox("Quante estrazione vuoi controllare? ","Estrazione",7))
   k = CInt(InputBox("Quanti colpi di gioco?","Colpi di gioco",3))
   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) = 30 Then
                  n5 = Fuori90(a + b)
                  If a > b And(a - b) = 30 Then manca = Fuori90(a + 30)
                  If b > a And(b - a) = 30 Then manca = Fuori90(b + 30)
                  If a > b Then metti = b
                  If b > a Then metti = a
                  If a < b Then posa = b
                  If b < a Then posa = a
                  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
                  nu1(1) = n5
                  nu1(2) = metti
                  ImpostaGiocata 1,nu1,ruote,posta,k
                  nu2(1) = n5
                  nu2(2) = metti
                  nu2(3) = posa
                  nu2(4) = manca
                  ImpostaGiocata 2,nu2,ruote,poste,k
                  Gioca es
               End If
            Next
         Next
     Next
   Next
   ScriviResoconto
End Sub

 

[salvo50]

Ciao a Tutti.

Ciao Kubes, questo script prende un solo estratto sia nella prima ruota che nella seconda ruota, come faccio a prendere la distanza in diagonale, con cosa la devo prendere? Vuoi che aggiungo un altro estratto sia in una ruota che nell'altra?

 

[kubes]

ciao salvo, questo script in sostanza cerca in tutto il quadro estrazionale due numeri che abbiano distanza 30, dopodiche li somma etc etc
ora dovrebbe cercare la distanza 30 anche in diagonale esempio :
estrazione 2 Novembre a Napoli esce 59 (2posiz) a NAZ 89 (1posiz) , lo script dovrebbe trovare anche questi tipi di distanze e procedere come per quelli in verticale ....

 

[salvo50]

OK, ho capito, vuoi che la distanza 30 sia anche non isotopa

 

[salvo50]

Ho anche eliminato i numeri ripetuti nella seconda ricerca, ma mi è rimasto il dubbio che forse non volevi in diagonale tutte le posizioni, ma solo quelle distanza 1, fammi sapere

Sub Main()
   Dim ruote(2),posta(5),nu1(10),nu2(10),ruota(2),poste(5)
   Dim manca,metti,posa
   posta(2) = 2
   poste(2) = 1:poste(3) = 1:poste(4) = .1
   ce = CInt(InputBox("Quante estrazione vuoi controllare? ","Estrazione",7))
   k = CInt(InputBox("Quanti colpi di gioco?","Colpi di gioco",3))
   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
               For p2 = 1 To 5
               b = Estratto(es,r2,p2)
               If Distanza(a,b) = 30 Then
                  n5 = Fuori90(a + b)
                  If a > b And(a - b) = 30 Then manca = Fuori90(a + 30)
                  If b > a And(b - a) = 30 Then manca = Fuori90(b + 30)
                  If a > b Then metti = b
                  If b > a Then metti = a
                  If a < b Then posa = b
                  If b < a Then posa = a
                  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) & " " &(p2) & "^ pos.",1
                  ColoreTesto 0 : Scrivi String(60,"-")
                  ruote(1) = r1:ruote(2) = r2
                  nu1(1) = n5
                  nu1(2) = metti
                  ImpostaGiocata 1,nu1,ruote,posta,k
                  nu2(1) = n5
                  nu2(2) = metti
                  nu2(3) = posa
                  nu2(4) = manca
                  EliminaRipetuti nu2
                  ImpostaGiocata 2,nu2,ruote,poste,k
                  Gioca es
               End If
               Next
            Next
         Next
     Next
   Next
   ScriviResoconto
End Sub

 

[kubes]

è semplicemete perfetto, si le diagonali vanno bene in tutte le posizioni. Grazie infinite .

 

[ciccioriccio]

(Untitled)

se così è sarebbe fantastico se si potesse postare le ambate al più presto grazie a tutti e due