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
    lunedì 04 maggio 2026
    Bari
    22
    24
    23
    33
    09
    Cagliari
    40
    15
    22
    90
    51
    Firenze
    70
    02
    71
    41
    40
    Genova
    51
    80
    25
    69
    30
    Milano
    23
    28
    89
    02
    64
    Napoli
    16
    54
    41
    08
    56
    Palermo
    18
    25
    11
    66
    36
    Roma
    28
    07
    03
    47
    76
    Torino
    72
    24
    01
    07
    70
    Venezia
    10
    80
    17
    69
    13
    Nazionale
    06
    39
    41
    42
    38
    Estrazione Simbolotto
    Milano
    18
    31
    25
    04
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto