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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto