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
 

claudio8

Premium Member
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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.
 

claudio8

Premium Member
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
 

Mike58

Advanced Member >PLATINUM PLUS<
Bene Claudio è sicuramente una conferma, quindi il codice va gestito per l'occasione.
Ciao
 

claudio8

Premium Member
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
    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
Alto