Novità

per Luigi ( Sorte " Ambetto " )

per ora ho corretto la funzione VerificaAmbetto e ne ho inserita pure un'altra che internamente funziona allo stesso modo ma esternamente richiede parametri diversi.
Infatti è questaqq funzione che ho usato per testare la corretta rilevazione degli ambetti sui casi proposti
dal pdf della lottomatica.
Come vincita torna sempre la vincita minima come da parametri stampati sul retro schedina , gli ambetti coi consecutivi li rileva ma la vincita torna sempre quella minima.
Ecco lo script di esempio (ripeto la funzione TestAmbetto internaente funziona come VerificaAmbetto)

Codice:
Option Explicit
Sub Main
	ReDim aNumeri(2)
	aNumeri(1) = 20
	aNumeri(2) = 30
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 20
	aNumeriUsciti(2) = 26
	aNumeriUsciti(3) = 78
	aNumeriUsciti(4) = 31
	aNumeriUsciti(5) = 25
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(2)
	aNumeri(1) = 50
	aNumeri(2) = 60
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 13
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 78
	aNumeriUsciti(4) = 51
	aNumeriUsciti(5) = 25
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(3)
	aNumeri(1) = 40
	aNumeri(2) = 50
	aNumeri(3) = 60
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 20
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 61
	aNumeriUsciti(4) = 49
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(2)
	aNumeri(1) = 40
	aNumeri(2) = 41
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 40
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 61
	aNumeriUsciti(4) = 42
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(2)
	aNumeri(1) = 12
	aNumeri(2) = 14
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 13
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 12
	aNumeriUsciti(4) = 42
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
	ReDim aNumeri(3)
	aNumeri(1) = 20
	aNumeri(2) = 28
	aNumeri(3) = 30
	ReDim aNumeriUsciti(5)
	aNumeriUsciti(1) = 20
	aNumeriUsciti(2) = 50
	aNumeriUsciti(3) = 29
	aNumeriUsciti(4) = 42
	aNumeriUsciti(5) = 39
	Call ScriviRisultato(aNumeri,aNumeriUsciti)
End Sub
Sub ScriviRisultato(aNumeri,aNumeriUsciti)
	Dim sRetNumeri
	Dim nAmbetti
	Dim nRetVincita
	nAmbetti = TestAmbetto(aNumeri,aNumeriUsciti,sRetNumeri,nRetVincita)
	Call Scrivi("Numeri in gioco    : " & StringaNumeri(aNumeri))
	Call Scrivi("Numeri usciti      : " & StringaNumeri(aNumeriUsciti))
	Call Scrivi("Ambetti realizzati : " & nAmbetti)
	Call Scrivi("Con i numeri       : " & sRetNumeri)
	Call Scrivi("Vincita            : " & nRetVincita)
	Call Scrivi(String(50,"-"))
End Sub
 
Ciao Luigi, l'ho provata è sembra tutto ok sia il testAmbetto che il VerificaAmbetto.
Debbo dirti che nel verificaAmbetto la scrittura la preferivo senza il test +/-1, però capisco che ognuno di noi vorrebbe le cose ad ok per sé.
Ti rinnovo la richiesta(non ho ancora verificato) anche per il nRetVincita anche per il verifica esito normale.

Per ora ancora un grazie e un salutissimo
 
Ultima modifica:
Utilizzando lo script di Mike di cui sopra tutte le volte che esce un numero pronosticato per l'ambetto unitamente al num 1 la tabella indica la presenza di ambetti che si formano con un numero pronosticato con 5 volte il numero 1 ?? che cosa non ho capito ?
Codice:
 Estratti ID Estraz.    Comb in gioco    Esito    Colpo    Estratti    Info ID Estraz.    ambetti    Ambetti    Vincita    Estrazioni   71.51.16.59.03  27.7.67.18.77     1        0     0  41.51.20.02.73  78.11.76.59.37  27.7.67.18.77     2        0     0  13.22.19.10.54  48.46.87.25.01  27.7.67.18.77     3        0     0  02.43.56.26.60  37.69.82.38.79  27.7.67.18.77     4        0     0  64.19.47.23.62  48.64.36.33.20  27.7.67.18.77     5        0     0  39.17.04.86.34  56.40.90.86.53  27.7.67.18.77     6        0     0  49.08.19.89.06  14.02.58.57.71  27.7.67.18.77  Estratto  7  CA .. .. .. 18 ..  [08705] [ 73] 18.06.2013  0     0  15.53.57.18.35  15.67.48.09.12  27.7.67.18.77     8        0     0  12.30.58.70.64  18.75.01.30.28  27.7.67.18.77     9        0     0  87.80.64.88.40  32.56.22.29.28  27.7.67.18.77     10        0     0  70.66.79.21.90  76.35.15.82.16  27.7.67.18.77     11        0     0  15.25.04.12.31  58.26.41.59.86  27.7.67.18.77     12        0     0  79.09.73.19.47  15.55.24.27.49  27.7.67.18.77  Estratto  13  CA .. .. 77 .. ..  [08711] [ 79] 02.07.2013  6  [COLOR="#FF0000"][/COLOR][B][/B][B][SIZE=4][COLOR="#FF0000"]77.01/77.01/77.01/77.01/77.01/77.01[/COLOR][/SIZE][/B]  36,66  89.51.77.56.01  34.67.01.56.51  27.7.67.18.77     14        0     0  57.63.05.42.85  34.77.41.05.55  27.7.67.18.77     15        0     0  57.78.82.28.01  14.04.07.78.51  27.7.67.18.77  Estratto  16  CA .. .. 67 .. ..  [08714] [ 82] 09.07.2013  0     0  21.50.67.38.48  54.38.48.12.65  27.7.67.18.77     17        0     0  32.81.36.53.88  15.28.58.80.26  27.7.67.18.77     18        0     0  63.28.44.34.45  31.05.75.44.89  27.7.67.18.77     19        0     0  04.06.83.57.65  28.20.14.80.32  27.7.67.18.77     20        0     0  76.39.60.73.01  14.51.71.30.82  27.7.67.18.77     21        0     0  03.54.06.55.31  49.56.29.70.78  27.7.67.18.77     22        0     0  47.34.02.46.32  82.43.66.06.75  27.7.67.18.77     23        0     0  38.90.73.72.50  18.01.32.39.04  27.7.67.18.77     24        0     0  47.09.79.56.15  50.73.09.33.11  27.7.67.18.77  Estratto  25  CA .. .. 18 .. ..  [08723] [ 91] 30.07.2013  1  18.78  6,11  14.78.18.56.58  35.21.32.83.29  27.7.67.18.77     26        0     0  70.46.48.02.87  30.10.51.86.21  27.7.67.18.77     27        0     0  49.02.73.66.20  22.54.19.20.01  27.7.67.18.77     28        0     0  14.09.88.89.40  39.64.47.81.76  27.7.67.18.77     29        0     0  24.74.28.82.40  52.58.59.25.49  27.7.67.18.77     30        0     0  63.90.54.60.88  80.87.03.50.54  27.7.67.18.77     31        0     0  23.63.46.09.73  37.17.39.59.49  27.7.67.18.77     32        0     0  48.34.08.83.54  31.62.32.25.75  27.7.67.18.77     33        0     0  86.02.30.40.75  47.20.29.26.55  27.7.67.18.77  Estratto  34  CA 27 .. .. .. ..  [08732] [100] 20.08.2013  0     0  27.90.51.85.21  16.89.33.42.08  27.7.67.18.77     35        0     0  88.68.46.71.01  87.41.42.19.16  27.7.67.18.77     36        0     0  56.01.68.17.87  64.02.07.08.29  27.7.67.18.77  Estratto  37  CA .. .. 27 .. ..  [08735] [103] 27.08.2013  1  27.66  6,11  66.11.27.72.30  84.10.50.56.17  27.7.67.18.77     38        0     0  28.79.14.86.24  85.88.18.56.50  27.7.67.18.77     39        0     0  43.20.19.73.55  32.55.39.47.34  27.7.67.18.77     40        0     0  04.58.21.62.48  55.71.16.15.46  27.7.67.18.77  Estratto  41  CA .. 77 .. .. ..  [08739] [107] 05.09.2013  1  77.28  6,11  56.77.90.87.28  79.24.14.88.78  27.7.67.18.77     42        0     0  68.66.21.24.90  61.10.41.25.33  27.7.67.18.77     43        0     0  24.16.80.58.55  61.25.43.47.22  27.7.67.18.77     44        0     0  90.02.76.83.31  16.60.30.34.55  27.7.67.18.77     45        0     0  08.64.43.32.56  48.54.29.07.40  27.7.67.18.77  Estratto  46  CA .. 07 .. .. ..  [08744] [112] 17.09.2013  1  07.17  6,11  15.07.80.17.52  38.49.25.86.79  27.7.67.18.77     47        0     0  60.50.24.47.13  59.06.63.32.15  27.7.67.18.77  Estratto  48  CA .. .. 27 .. ..  [08746] [114] 21.09.2013  1  27.08  6,11  38.08.27.58.74  48.09.51.68.15  27.7.67.18.77     49        0     0  48.25.14.76.06  68.82.41.58.22  27.7.67.18.77     50        0     0  82.60.51.17.86  67.18.88.31.84  27.7.67.18.77     51        0     0  13.70.39.06.41  

Casi totali di gioco 51
Casi Positivi di esito 9
Totali Cinquine....
con l'aggiornamento 1.4.55 non c'è più il problema ...
 
Ultima modifica:
Mike purtroppo se modificassi quella funzione l'effetto collaterale è che doovrei ricompilare tutte le plugin perche ogni volta che si modificano parametri a funzioni gia esistenti cambia la firma del componente e tutti gli eseguibili che lo usano vanno ricompilati , dato che ricompilare tutte le plugin è una discreta rottura di p. non posso farlo ..
ciao
 
Caro Luigi, volevo chiederti avendo installato la versione 1-4-55, se avevi aggiornato con la ricerca sull'ambetto. Io non l'ho trovato.
Grazie per la risposta,
nino
 
puoi sempre scrivere una funzione che cxhiami lei il verificaambetto e che contemporaneamente rimuova dalla stringa dei numeri usciti il +1 -1
 
Caro Luigi, volevo chiederti avendo installato la versione 1-4-55, se avevi aggiornato con la ricerca sull'ambetto. Io non l'ho trovato.
Grazie per la risposta,
nino

l'ambeto vien gestito esclusivamente negli script con le funzioni che ho spiegato. Ciao
 
Antonino forse quest script potra soddisfare la tua esigenza almeno in parte
consente di fare la statistica per ambetto sulle formazioni registrate
ciao
Codice:
Option Explicit
Sub Main
	Dim idEstr,Ruota
	Dim Inizio,Fine
	Dim nClasseFrz
	Dim id,k
	Dim nElemFrz
	Dim nQAmbetti
	Dim nEstrTot
	Dim nFrqMedia
	Dim sNomeFrz
	Inizio = EstrazioneIni
	Fine = EstrazioneFin
	Ruota = ScegliRuota
	nEstrTot =(Fine + 1) - Inizio
	ReDim aElemFormazione(0)
	Call RichiediFormazione(aElemFormazione,nClasseFrz,sNomeFrz)
	nElemFrz = UBound(aElemFormazione)
	ReDim aValStat(nElemFrz,4)
	' indice 0 il ritardo
	'        1 freq
	'        2 ritmax
	'        3 incr rit max
	'        4 presenze
	
	If Ruota > 0 And nClasseFrz > 1 Then
		For id = 1 To nElemFrz
			ReDim aNumInGioco(0)
			Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
			For idEstr = Inizio To Fine
				' inserire qui il codice che analizza l'estrazione corrente
				nQAmbetti = VerificaAmbetto(aNumInGioco,Ruota,idEstr,"",0)
				If nQAmbetti > 0 Then
					aValStat(id,0) = 0
					aValStat(id,1) = aValStat(id,1) + nQAmbetti
					aValStat(id,3) = 0
					aValStat(id,4) = aValStat(id,4) + 1
				Else
					aValStat(id,0) = aValStat(id,0) + 1
					If aValStat(id,0) > aValStat(id,2) Then
						aValStat(id,2) = aValStat(id,0)
						aValStat(id,3) = aValStat(id,3) + 1
					End If
				End If
				If ScriptInterrotto Then Exit For
			Next
			Call AvanzamentoElab(1,nElemFrz,id)
			If ScriptInterrotto Then Exit For
		Next
		Dim aV
		aV = Array("","Formazione","Ritardo","Frequenza","RitardoMax","IncrRitMax","Presenze","I.C.")
		Call InitTabella(aV)
		For id = 1 To nElemFrz
			ReDim aNumInGioco(0)
			Call GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
			aV(1) = StringaNumeri(aNumInGioco)
			aV(2) = aValStat(id,0)
			aV(3) = aValStat(id,1)
			aV(4) = aValStat(id,2)
			aV(5) = aValStat(id,3)
			aV(6) = aValStat(id,4)
			nFrqMedia = Dividi(nEstrTot,aValStat(id,4))
			aV(7) = Round(Dividi(aValStat(id,0),nFrqMedia),3)
			Call AddRigaTabella(aV)
		Next
		
		Call Scrivi("StatisticaAmbetto" )
		Call Scrivi("Analisi su formazione : " & sNomeFrz)
		Call Scrivi("Sulla ruota           : " & NomeRuota(Ruota))
		Call Scrivi("Da                    : " & GetInfoEstrazione(Inizio))
		Call Scrivi("A                     : " & GetInfoEstrazione(Fine))
		Call Scrivi("Totali range          : " & nEstrTot)
		Call Scrivi
		Call CreaTabella(2)
	End If
End Sub
Sub GetNumInGiocoFromElemFrz(id,aElemFormazione,aNumInGioco,nClasseFrz)
	Dim k
	ReDim aNumInGioco(nClasseFrz)
	For k = 1 To nClasseFrz
		aNumInGioco(k) = aElemFormazione(id,k)
	Next
End Sub
Sub RichiediFormazione(aElemFormazione,nClasseFrz,sNome)
	Dim s
	Dim n
	Dim id
	ReDim aNomiForm(0)
	Call ElencoFileInDirectory(GetDirectoryAppData & "formazioni\",aNomiForm,".frz")
	id = ScegliOpzioneMenu(aNomiForm,1,"Selezione formazione")
	If GetElementiFormazione(aNomiForm(id),aElemFormazione) Then
		nClasseFrz = GetClasseFormazione(aNomiForm(id))
		sNome = aNomiForm(id)
	End If
End Sub
 
Ultima modifica di un moderatore:
Mike purtroppo se modificassi quella funzione l'effetto collaterale è che doovrei ricompilare tutte le plugin perche ogni volta che si modificano parametri a funzioni gia esistenti cambia la firma del componente e tutti gli eseguibili che lo usano vanno ricompilati , dato che ricompilare tutte le plugin è una discreta rottura di p. non posso farlo ..
ciao

Si Luigi, questo lo capisco solo per questa tipologia creare una nuova funzione che simulasse e raccogliesse la vincita come in verificaAmbetto in questo modo il tutto non andrebbe ad impattare con i vecchi codici già compilati.

Tranquillo se comporta troppo lavoro non devi preoccuparti, esistono sempre gli escamotage per le simulazioni.

Ciao
 
scaricata nuova versione e testata nuova funzione VerificaEsitoConGuadagno, ottimo.


Grazie Luigi, sempre Bravissimo e sempre Super.
:rolleyes:
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22

Ultimi Messaggi

Indietro
Alto