Novità

UN'AGGIUNTA X SALVO50

kubes

Senior Member
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
Codice:
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
 
Ultima modifica:
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?
 
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 ....
 
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

Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 ottobre 2025
    Bari
    23
    03
    54
    34
    30
    Cagliari
    49
    14
    25
    09
    37
    Firenze
    32
    45
    15
    59
    29
    Genova
    03
    66
    68
    90
    85
    Milano
    88
    15
    21
    41
    27
    Napoli
    79
    72
    84
    27
    01
    Palermo
    23
    03
    73
    25
    04
    Roma
    11
    67
    24
    13
    59
    Torino
    72
    59
    84
    75
    26
    Venezia
    81
    08
    18
    76
    25
    Nazionale
    58
    69
    62
    17
    70
    Estrazione Simbolotto
    08
    26
    28
    22
    40
Indietro
Alto