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 01 agosto 2026
    Bari
    46
    54
    36
    47
    01
    Cagliari
    77
    30
    04
    79
    18
    Firenze
    84
    76
    10
    27
    44
    Genova
    32
    13
    71
    38
    46
    Milano
    10
    23
    18
    20
    03
    Napoli
    73
    36
    10
    90
    07
    Palermo
    61
    46
    24
    57
    32
    Roma
    89
    78
    23
    07
    35
    Torino
    21
    59
    34
    73
    86
    Venezia
    74
    01
    30
    46
    54
    Nazionale
    71
    65
    17
    09
    20
    Estrazione Simbolotto
    Nazionale
    03
    09
    37
    30
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto