Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Giocate per Ambo con la decina

Xeroxs

Super Member >PLATINUM<
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<
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<
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

Super Member >PLATINUM<
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

Super Member >PLATINUM<
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 >GOLD<
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

Super Member >PLATINUM<
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

Super Member >PLATINUM<
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
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto