Verificatore Di Ambetti

[Mike58]

Verifica numeri per Ambetti su scelta Ruota

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

 

[*blacklotto*]

Ciao Mikè,

grazie per il listato !

 

[claudio8]

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]

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]

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]

Bene Claudio è sicuramente una conferma, quindi il codice va gestito per l'occasione.
Ciao

 

[claudio8]

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