Novità

Giocate per Ambo con la decina

Xeroxs

Advanced Member >GOLD<
Buongiorno a Tutti Voi,

Vorrei un aiuto per poter abbinare a due ambate la decina completa della prima ambata cosa posso fare?, faccio un esempio

Se ho
Ambata 1 = 43
Ambata 2 = 34 (il Suo Vertibile)

Per ambo vorrei impostare la giocata con le due ambate l'intera decina della prima ambata

43 con tutta la decina del 40
34 con tutta la decina del 40


le due ambate risultano frutto di calcoli e sono diverse a seconda dei casi

per cui se ho
Ambata 1 = 26
Ambata 2 = 62 (il Suo Vertibile)

dovrò giocare le ambate con la decina intera del 20

Come posso impostare il tutto in modo automatico?

Non so proprio come fare

Grazie fin da ora, come sempre
 

joe

Advanced Member >PLATINUM PLUS<
Si .... ma questa tua amica !?!?!

Leggi la decina dell' ambata1

Poi la moltiplichi per 10

e ci aggiungi una ad una le 10 unità da zero a 9.

Eventualmente dovrai escludere la cadenza già presente

con cui non si può fare un Ambo valido.

:)
 

joe

Advanced Member >PLATINUM PLUS<
Dicevo:

Codice:
Option Explicit
Sub Main
'Abbinamenti in decina By Joe
  Dim R,V,D,N,G,A
  R = NumeroCasuale(1,90) : V = Vert(R)
  D = Decina(R)
  For N = 0 To 9
    A = Fuori90(10*D + N)
    If A <> R And A <> V Then
      G = G + 1
      Scrivi Format2(G) & ") " & Format2(R) & "." & Format2(A)
      G = G + 1
      Scrivi Format2(G) & ") " & Format2(V) & "." & Format2(A)
      Scrivi
    End If
  Next
End Sub

:)
 

Xeroxs

Advanced Member >GOLD<
Buongiorno a Tutti,
Rieccomi qui, Nell'elaborare questo metodo si è aggiunto per me un nuovo modo di abbinare alle ambate qualcosa di nuovo, ma ho riscontrato delle difficoltà nel impostarlo nel modo giusto, fino all'ambata tutto sembrava filare liscio, ma volendo incastrare quella opzione che comunque fa parte del metodo ilo script è diventato lento, genera più volte la giocata dell'estratto e non mi riporta la giocata dell'ambo, sicuramente qualche ciclo for... Next è stato da me inserito nel modo sbagliato o va ad incrociarsi nel modo sbagliato, ho messo volutamente le note sui next e l' IF per capire dove sbaglio, le variabili sembrano giuste ma l'inserimento dei For certamente sbagliato rallenta il tutto è non espone l'esito desiderato...

Ho bisogno di un vostro Intervento prima di ridurre le condizioni di ricerca che mi sembrano troppe ma questo sarà fatto nella fase successiva all'eventuale vostro aiuto.

Vi Posto lo script.... Sparate pure.... purchè a salve.... 😭😭


Vi Ringrazio fin da ora
 

Xeroxs

Advanced Member >GOLD<
Reinserito nel modo giusto non trovavo l'opzione

Codice:
Option Explicit
Sub Main()
   Dim p1,p2,p3,n1,n2,n3,A,B,C,D,E,F,G,H,N
   Dim r1,r2,ruote(2),ambata(4),ambo1(2),ambo2(2),posta(1),poste(5),Clp,K
   Dim ini,fin,es
   ini = EstrazioneFin - 10
   fin = EstrazioneFin
   posta(1) = 1
   poste(2) = 1
   Clp = 9
   For es = ini To EstrazioneFin
      For r1 = 1 To 11
         If r1 = 11 Then r1 = 12
         For p1 = 1 To 4
            'For p2 = p1 + 1 To 5 ' Per Ambo non Unito = Tutte le Posizioni
            p2 = p1 + 1 ' Ricerca Ambo Unito
            n1 = Estratto(es,r1,p1)
            n2 = Estratto(es,r1,p2)
            If Cadenza(n1) = Decina(n2) Then
               For r2 = 1 To 11
                  If r2 = 11 Then r2 = 12
                  If r1 <> r2 Then
                     For p3 = 1 To 5
                        If p3 = p1 Or p3 = p2 Then ' Ricerca Isotopa del 3° Numero
                           n3 = Estratto(es,r2,p3)
                           If Decina(n3) = Decina(n2) Or Decina(n3) = Decina(n1) Then
                              ruote(1) = r1
                              ruote(2) = r2
                              ColoreTesto 1
                              K = K + 1 : Scrivi String(96,"*") & " Caso n°" & Format2(K),1
                              Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  Ambo Unito  " & " ----------------> " & Format2(n1) & "-" & Format2(n2)
                              Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "  3°Numero Stessa Decina Isotopo  " & Format2(n3)
                              Scrivi String(106,"*"),1
                              Scrivi
                              ColoreTesto 0
                                 '-------------------------------------------------------------------- Calcoli
                                 For N = 0 To 9
                                 A = Fuori90((n1 + n2) - n3)
                                 B = Fuori90((n1 + n3) - n2)
                                 C = Fuori90((n2 + n3) - n1)
                                 D = Fuori90(A + B + C)
                                 E = Vert(D)
                                 F = Cadenza(D)
                                 G = Decina(D)
                                 '-------------------------------------------------------------------- Ambata ed Ambi
                                 ambata(1) = D
                                 ambata(2) = E
                                 '-----------------
                                 H = Fuori90(10*G + N) ' Gioco la Decina della prima ambata
                                 If H <> D And H <> E Then
                                 ambo1(1) = D
                                 ambo1(2) = H
                                 ambo2(1) = E
                                 ambo2(2) = G
                                 '--------------------------------------------------------------------
                                 ImpostaGiocata 1,ambata,ruote,posta,Clp' Se vuoi interrompere alla 1° vincita aggiungi ,1
                                 ImpostaGiocata 2,ambo1,ruote,poste,Clp ' Se vuoi interrompere alla 1° vincita aggiungi ,1
                                 'ImpostaGiocata 3,ambo2,ruote,poste,Clp ' Se vuoi interrompere alla 1° vincita aggiungi ,1
                                 Gioca es,True
                                 Scrivi
                                 End If ' Chiude H
                              Next 'Chiude N
                           End If ' Chiude Decina =
                        End If ' Chiude = Ricerca Isotopa del 3° Numero
                     Next 'Chiude p3
                  End If ' Chiude r1 <> r2
               Next 'Chiude r2
             End If 'Chiude Cadenza = Decina
              Next '---------------------------------------------------------------------------------------------------------------------------------------------------------------------->>>> Non Capisco perchè se lo lascio  a che serve, se lo tolgo non va
            'Next ' Chiude Ambo non Unito
         Next 'Chiude p1
      Next ' Chiude r1
   ScriviResoconto
End Sub
 

Master

Advanced Member >PLATINUM<
Prova così se va bene


Codice:
Option Explicit
Sub Main()
   Dim p1,p2,p3,n1,n2,n3,A,B,C,D,E,F,G,H,N,Z
   Dim r1,r2,ruote(2),ambata(4),ambo1(2),ambo2(2),posta(1),poste(5),Clp,K
   Dim ini,fin,es
   ini = EstrazioneFin - 10
   fin = EstrazioneFin
   posta(1) = 1
   poste(2) = 1
   Clp = 9
   For es = ini To EstrazioneFin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 10
         'If r1 = 11 Then r1 = 12
         For p1 = 1 To 4
            'For p2 = p1 + 1 To 5 ' Per Ambo non Unito = Tutte le Posizioni
            p2 = p1 + 1 ' Ricerca Ambo Unito
            n1 = Estratto(es,r1,p1)
            n2 = Estratto(es,r1,p2)
            If Cadenza(n1) = Decina(n2) Then
               For r2 = r1 + 1 To 11
                  If r2 = 11 Then r2 = 12
                  'If r1 <> r2 Then
                  For p3 = 1 To 5
                     If p3 = p1 Or p3 = p2 Then ' Ricerca Isotopa del 3° Numero
                        n3 = Estratto(es,r2,p3)
                        If Decina(n3) = Decina(n2) Or Decina(n3) = Decina(n1) Then
                           ruote(1) = r1
                           ruote(2) = r2
                           ColoreTesto 1
                           K = K + 1 : Scrivi String(96,"*") & " Caso n°" & Format2(K),1
                           Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & "  Ambo Unito  " & " ----------------> " & Format2(n1) & "-" & Format2(n2)
                           Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & "  3°Numero Stessa Decina Isotopo  " & Format2(n3)
                           Scrivi String(106,"*"),1
                           Scrivi
                           ColoreTesto 0
                           '-------------------------------------------------------------------- Calcoli
                           ' For N = 0 To 9
                           A = Fuori90((n1 + n2) - n3)
                           B = Fuori90((n1 + n3) - n2)
                           C = Fuori90((n2 + n3) - n1)
                           D = Fuori90(A + B + C)
                           E = Vert(D)
                           F = Cadenza(D)
                           G = Decina(D)
                           '-------------------------------------------------------------------- Ambata ed Ambi
                           ambata(1) = D
                           ambata(2) = E
                           '-----------------
                           ImpostaGiocata 1,ambata,ruote,posta,Clp' Se vuoi interrompere alla 1° vincita aggiungi ,1
                           Z = 1
                           For N = 0 To 9
                              H = Fuori90(10*G + N) ' Gioco la Decina della prima ambata
                              If H <> D And H <> E Then
                                 Z = Z + 1
                                 ambo1(1) = D
                                 ambo1(2) = H
                                 '--------------------------------------------------------------------
                                 ImpostaGiocata Z,ambo1,ruote,poste,Clp ' Se vuoi interrompere alla 1° vincita aggiungi ,1
                                 Z = Z + 1
                                 ambo2(1) = E
                                 ambo2(2) = H
                                 '--------------------------------------------------------------------
                                 ImpostaGiocata Z,ambo2,ruote,poste,Clp ' Se vuoi interrompere alla 1° vincita aggiungi ,1
                              End If ' Chiude H
                           Next 'Chiude N
                           'ImpostaGiocata 3,ambo2,ruote,poste,Clp ' Se vuoi interrompere alla 1° vincita aggiungi ,1
                           Gioca es,True
                           Scrivi
                           'End If ' Chiude H
                           ' Next 'Chiude N
                        End If ' Chiude Decina =
                     End If ' Chiude = Ricerca Isotopa del 3° Numero
                  Next 'Chiude p3
                  ' End If ' Chiude r1 <> r2
               Next 'Chiude r2
            End If 'Chiude Cadenza = Decina
         Next '---------------------------------------------------------------------------------------------------------------------------------------------------------------------->>>> Non Capisco perchè se lo lascio  a che serve, se lo tolgo non va
         'Next ' Chiude Ambo non Unito
      Next 'Chiude p1
   Next ' Chiude r1
   ScriviResoconto
End Sub
 

Xeroxs

Advanced Member >GOLD<
Che Dire, Master
Grazie davvero.

Ora mi paragono la tua correzione con il mio "confuso" Script cosi farò certamente tesoro di quanto hai scritto.
Grazie a Te e a Joe ho imparato anche un ulteriore passo nel comprendere la potenzialità reale del programma

Buona Serata (y)
 

Xeroxs

Advanced Member >GOLD<
Dando un Occhiata ai miei errori ed alla correzione di Master ho capito dove sbagliavo e non solo quello, compreso l'impostazione delle ruote, lo Stesso Joe mi aveva indirizzato sulla strada Giusta ma essendo ancora Io un po grezzo nel capire certe logiche avevo sbagliato direzione.

Grazie davvero Joe, Grazie Davvero Master.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto