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
    giovedì 25 febbraio 2021
    Bari
    17
    74
    14
    27
    05
    Cagliari
    45
    35
    88
    47
    48
    Firenze
    58
    42
    19
    03
    88
    Genova
    42
    52
    19
    01
    51
    Milano
    31
    54
    70
    34
    61
    Napoli
    48
    47
    77
    17
    40
    Palermo
    26
    30
    23
    69
    03
    Roma
    52
    83
    82
    17
    16
    Torino
    62
    85
    88
    40
    43
    Venezia
    26
    68
    39
    63
    42
    Nazionale
    53
    40
    89
    33
    47
    Estrazione Simbolotto
    Cagliari
    13
    29
    12
    28
    37

Ultimi Messaggi

Alto