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
 
antonino ha scritto:
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
Clicca per espandere...

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
Clicca per espandere...

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:
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto