Giocate per Ambo con la decina

[Xeroxs]

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]

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]

Dicevo:

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]

Ciao, Joe,
Grazie come sempre, e come sempre Gentile

 

[Xeroxs]

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]

Reinserito nel modo giusto non trovavo l'opzione

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]

Prova così se va bene

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]

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

 

[Xeroxs]

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.