Novità

Verificatore Di Ambetti

Mike58

Advanced Member >PLATINUM PLUS<
Verifica numeri per Ambetti su scelta Ruota

Codice:
Sub Main
   Dim Nu(90),Ru(12),elenco(1)
   Ini = EstrazioneFin - 500
   fin = EstrazioneFin
   'r = 3
   r = ScegliRuota
   ScegliNumeri(Nu)
   Scrivi StringaNumeri(Nu) & " Numeri per Ambetto su " & NomeRuota(r),1
   Scrivi String(100,"=")
   Scrivi Space(5) & "Info data" & Space(33) & "Ambetti" & Space(18) & "Vincita" & Space(2) & "Fin-es" & Space(2) & "ElencoRit"
   Scrivi String(100,"=")
   For es = Ini To fin
      ambetto = VerificaAmbetto(Nu,r,es,RetNum,RetVinc)
      If ambetto > 0 Then
         k = k + 1
         ess = fin - es
         ReDim Preserve elencoRit(k)
         elencoRit(k) = ess
         elenco(1) = elencoRit(k - 1) - elencoRit(k)
         If elenco(1) < 0 Then elenco(1) = 0
         ReDim Preserve maxx(k)
         maxx(k) = elenco(1)
         max = MassimoV(maxx)
         Scrivi GetInfoEstrazione(es) & vbTab,0,0
         If ambetto = 2 Then Scrivi retnum & vbTab,0,0
         If ambetto = 1 Then Scrivi retNum & " <> .. .. .. .. .. " & vbTab,0,0
         Scrivi RetVinc & vbTab,0,0
         Scrivi " - " & fin - es & vbTab & "   " & elenco(1)
      End If
   Next
   Scrivi String(100,"=")
   Scrivi "Casi positivi    " & k,1
   Scrivi "Ritardo max      " & max
   Scrivi "Ritardo Corrente " & ess
   Scrivi String(100,"=")
   Scrivi "Script By Mike58",1,,,1,3
End Sub

fatene buon uso

Ciao Mike
 
Ciao Mike, mi pare ci sia un errore nella quantificazione della vincita (nRetVincita) su ambetti composti da numeri consecutivi.

Es: ruota CA numeri in gioco = 40 e 41 essi compongono solo 2 ambi giocabili 40.42 (40.40 non giocabile) e 41.39 (41.41 non giocabile)

La vincita determinata da questa giocata (40 e 41 ad ambetto) è di 1/2 della vincita dell'ambo secco incece di 1/4 che erroneamente restituisce la funzione VerificaAmbetto, non considerando la particolare condizione di numeri consecutivi.

Un saluto
 
Ciao Claudio il codice penso non tenga presente questa situazione, e siccome già con nikor ci eravamo imbattutti in questa discussione, ti domando se realmente tu giocassi una situazione del genere la giocata sarebbe realmente pagata per 1/2 oppure anche qui si comporta per 1/4.

Non saprei, andrebbe verificata con una giocata reale.
 
Mike58;n2138388 ha scritto:
Ciao Claudio il codice penso non tenga presente questa situazione, e siccome già con nikor ci eravamo imbattutti in questa discussione, ti domando se realmente tu giocassi una situazione del genere la giocata sarebbe realmente pagata per 1/2 oppure anche qui si comporta per 1/4.

Non saprei, andrebbe verificata con una giocata reale.

Mike, non ci sono alternative, io con l'ambetto 40 41 su CA sono andato a cassa ed ho incassato 1/2 dell'ambo secco.
Peccato che no ho più il biglietto per dimostrartelo, ma è così.

Con 2 numeri consecutici, si possono costruire solo 2 coppie di ambi e non 4 e quindi la giocata viene divisa x 2 e di conseguenza anche la vincta e non divisa x 4.

Ciao
 
Bene Claudio è sicuramente una conferma, quindi il codice va gestito per l'occasione.
Ciao
 
Mike58;n2138413 ha scritto:
Bene Claudio è sicuramente una conferma, quindi il codice va gestito per l'occasione.
Ciao
Raccomandata A.R
Certamente può essere gestito con il codice a monte del verifica ambetto alimentando la funzione con le combinazioni che si andrebbero a creare, ma a questo punto la funzione stessa in parte cessa di essere "funzionale".

Ciao Mike... e Luigi ;) ;)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
Indietro
Alto