Novità

X Joe91

solare

solare

Advanced Member >PLATINUM<
Vorrei chiedere una cortesia sempre che sia possibile. Il listato che segue è stato fatto da lei, se non ricordo male.
Chiedo una modifica allo stesso. Il listato evidenzia le presenze degli ultimi 5 cicli da 18 estrazioni. Io vorrei conoscere le presenze "solo dell'ultimo ciclo" sia nelle 18 estrazioni che nelle ultime 9 estrazioni del ciclo "chiamandolo semiciclo".
es. presenze ultimo ciclo da 18 estrazioni 32 ultimo semiciclo da 9 estrazioni presenze 20. Questo serve a capire se la decina tende ad aumentare le presenze.
Grazie
Sub Main
Dim TipoArc
Dim nCicli
Dim Inizio,Fine
Dim idEstr
Dim idDecina
Dim sErr
Dim nTotale
ReDim aNum(10)
ReDim aRuote(1)
nCicli = Int(InputBox("Inserire il numero dei cicli da 5",,5))
TipoArc = ScegliArchivio
Call ImpostaArchivio10ELotto(TipoArc)
Inizio =(EstrazioniArchivioDL -(nCicli * 5)) + 1
Fine = EstrazioniArchivioDL - 4
If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then

For idDecina = 1 To 9
nTotale = 0
Call AlimentaNumeri(idDecina,aNum)
ReDim aTitoli(2)
aTitoli(1) = " Range "
aTitoli(2) = " Frequenza "
Call InitTabella(aTitoli)
For idEstr = Inizio To Fine Step 5
ReDim aValori(2)
aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 4)
aValori(2) = SerieFreqDL(idEstr,idEstr + 4,aNum,1)
nTotale = nTotale + CLng(aValori(2))
Call AddRigaTabella(aValori)
Next
ReDim aValori(2)
aValori(1) = "Totale"
aValori(2) = nTotale
Call AddRigaTabella(aValori,vbYellow)
Call Scrivi(" la sortita teorica di un numero è 4,5 quindi per essere in media deve avere 10 quindi nei 5 cicli il tot dovrebbe essere 50 ")
Call Scrivi("Decina analizzata " & StringaNumeri(aNum))
Call Scrivi
Call CreaTabella
Next
Else
If nCicli <= 0 Then
sErr = "Numero di cicli non valido"
End If
If Inizio <= 0 Then
sErr = "Troppi cicli rispetto alle estrazioni del range"
End If
If idDecina <= 0 Then
sErr = "Nessuna decina selezionata"
End If
If TipoArc <= 0 Then
sErr = "Specificare quale archivio 10 e lotto"
End If
MsgBox sErr,vbCritical
End If
End Sub
Function ScegliDecina()
ReDim aVoci(8)
Dim k,i
For k = 1 To 81 Step 10
aVoci(i) = "Decina " & k & " - " & k + 9
i = i + 1
Next
ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
Dim i,k,y
i =((idDecina - 1) * 10) + 1
For k = i To(i - 1) + 10
y = y + 1
aNum(y) = k
Next
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "Dieci e lotto"
aVoci(1) = "Dieci e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function
 
Ciao Solare,

Buon Giorno a tutte/i.

No il listato non è mio, e da com'è ... dovrebbe essere di Luigi.

Quello che chiedi non è impossibile, infatti si tratterebbe "solo" di riorganizzare tutto.

Tuttavia, ci sono molte differenze tra quanto hai descritto e quanto mi pare faccia lo script.

Peraltro sono ricerche che non seguo e quindi non ho esperienza. Ma, si va oltre.

Quindi direi di descrivere sinteticamente ... il problema.

Tipo di gioco.

Formazioni (Le decine vanno bene così ?)

Lunghezza del Ciclo / Semiciclo

ecc. ecc.

Così ben esplicito il punto di partenza e la meta, una soluzione dovrebbe trovarsi.

:) Cordiali saluti.
 
Ultima modifica:
Il gioco riguarda 10elotto ogni 5 minuti, le decine vanno bene così disposte
la lunghezza del ciclo 18 semiciclo 9 estrazioni.
quindi il listato dovrà dirmi per ogni decina il totale presenze nelle ultime 18 estrazioni e totale presenze "Semiciclo" ultime 9 estrazioni.
 
Ciao.

I "Semicicli" e quanto calcola (per ora) è giusto ?

Codice: 
Sub Main
	Dim TipoArc
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	ReDim aNum(10)
	ReDim aRuote(1)
	nCicli = Int(InputBox("Inserire il numero dei cicli da 9",,10))
	TipoArc = ScegliArchivio
	Call ImpostaArchivio10ELotto(TipoArc)
	Inizio =(EstrazioniArchivioDL -(nCicli * 9)) + 1
	Fine = EstrazioniArchivioDL - 8
	If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
		For idDecina = 1 To 9
			nTotale = 0
			Call AlimentaNumeri(idDecina,aNum)
			ReDim aTitoli(2)
			aTitoli(1) = " Range "
			aTitoli(2) = " Frequenza "
			Call InitTabella(aTitoli)
			For idEstr = Inizio To Fine Step 9
				ReDim aValori(2)
				aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 8)
				aValori(2) = SerieFreqDL(idEstr,idEstr + 9,aNum,1)
				nTotale = nTotale + CLng(aValori(2))
				Call AddRigaTabella(aValori)
			Next
			ReDim aValori(2)
			aValori(1) = "Totale"
			aValori(2) = nTotale
			Call AddRigaTabella(aValori,vbYellow)
			'Call Scrivi(" la sortita teorica di un numero è 4,5 quindi per essere in media deve avere 10 quindi nei 5 cicli il tot dovrebbe essere 50 ")
			Call Scrivi("Decina analizzata " & StringaNumeri(aNum))
			Call Scrivi
			Call CreaTabella
		Next
	Else
		If nCicli <= 0 Then
			sErr = "Numero di cicli non valido"
		End If
		If Inizio <= 0 Then
			sErr = "Troppi cicli rispetto alle estrazioni del range"
		End If
		If idDecina <= 0 Then
			sErr = "Nessuna decina selezionata"
		End If
		If TipoArc <= 0 Then
			sErr = "Specificare quale archivio 10 e lotto"
		End If
		MsgBox sErr,vbCritical
	End If
End Sub
Function ScegliDecina()
	ReDim aVoci(8)
	Dim k,i
	For k = 1 To 81 Step 10
		aVoci(i) = "Decina " & k & " - " & k + 9
		i = i + 1
	Next
	ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
	Dim i,k,y
	i =((idDecina - 1) * 10) + 1
	For k = i To(i - 1) + 10
		y = y + 1
		aNum(y) = k
	Next
End Sub
Function ScegliArchivio()
	ReDim aVoci(1)
	aVoci(0) = "Dieci e lotto"
	aVoci(1) = "Dieci e lotto 5 min"
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function
 
Ciao ...

Dovresti provare questo ... con molta attenzione, perchè ...

NON HO CONTROLLATO LA CORRETTEZZA dei suoi risultati.

Codice: 
Option Explicit

'Ricerca Semiciclica By Joe Rev 2.0 (su script di LuigiB ?).

Sub Main
	Dim TipoArc
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	Dim nTotale2
	Dim nTotale3
	Dim nTotale4
	Dim CL
	ReDim aNum(10)
	ReDim aRuote(1)
	CL = 9 'SemiciCiclo di 9 Estrazioni
	nCicli = Int(InputBox("Inserire il numero dei cicli da " & CL,,5))
	TipoArc = ScegliArchivio
	Call ImpostaArchivio10ELotto(TipoArc)
	Inizio =(EstrazioniArchivioDL -(nCicli * 2 * CL)) + 1
	Fine = EstrazioniArchivioDL - CL + 1
	If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
		For idDecina = 1 To 9
			nTotale = 0
			Call AlimentaNumeri(idDecina,aNum)
			ReDim aTitoli(4)
			aTitoli(1) = " Range (" & CL & "+" & CL & ") Estrazioni."
			aTitoli(2) = "  Primo  "
			aTitoli(3) = " Secondo "
			aTitoli(4) = "  Totali  "
			Call InitTabella(aTitoli)
			For idEstr = Inizio To Fine Step 2 * CL
				ReDim aValori(4)
				aValori(1) = CStr(idEstr) & "-" & CStr(idEstr + CL - 1) & " + " & CStr(idEstr) + CL & "-" & CStr(idEstr + 2  * CL - 1 )
				aValori(2) = SerieFreqDL(idEstr,idEstr + CL - 1,aNum,1)
				aValori(3) = SerieFreqDL(idEstr+ CL,idEstr + 2 * CL - 1,aNum,1)
				aValori(4) = aValori(2) + aValori(3)
				nTotale2 = nTotale2 + CLng(aValori(2))
				nTotale3 = nTotale3 + CLng(aValori(3))
				nTotale4 = nTotale4 + CLng(aValori(4))
				Call AddRigaTabella(aValori)
			Next
			ReDim aValori(4)
			aValori(1) = "T O T A L I"
			aValori(2) = nTotale2
			aValori(3) = nTotale3
			aValori(4) = nTotale4
			Call AddRigaTabella(aValori,vbYellow)
			nTotale2 = 0 
			nTotale3 = 0
			nTotale4 = 0
			Call Scrivi("Pres in Dec : " & StringaNumeri(aNum,,True),True)
			Call Scrivi
			Call CreaTabella
		Next
	Else
		If nCicli <= 0 Then
			sErr = "Numero di cicli non valido"
		End If
		If Inizio <= 0 Then
			sErr = "Troppi cicli rispetto alle estrazioni del range"
		End If
		If idDecina <= 0 Then
			sErr = "Nessuna decina selezionata"
		End If
		If TipoArc <= 0 Then
			sErr = "Specificare quale archivio 10 e lotto"
		End If
		MsgBox sErr,vbCritical
	End If
End Sub
Function ScegliDecina()
	ReDim aVoci(8)
	Dim k,i
	For k = 1 To 81 Step 10
		aVoci(i) = "Decina " & k & " - " & k + 9
		i = i + 1
	Next
	ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
	Dim i,k,y
	i =((idDecina - 1) * 10) + 1
	For k = i To(i - 1) + 10
		y = y + 1
		aNum(y) = k
	Next
End Sub
Function ScegliArchivio()
	ReDim aVoci(1)
	aVoci(0) = "Dieci e lotto"
	aVoci(1) = "Dieci e lotto 5 min"
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function

:)
 
Direi ottimo Joe91 Grazie mille
Ti chiedo un'ultima cosa, sempre che sia possibile, diversamente va benissimo così.
Aggiungere una casella dove mi da la differenza tra il 1 e 2 ciclo es. 1 ciclo presenze 18------2 ciclo presenze 22 (risultato +4)
2 esempio: 1 ciclo presenze 22-------2 ciclo presenze 16 (Risultato -6)
Grazie ancora della disponibilità
 
Ciao Solare,

Buona sera a tutte/i.

Ho aggiunto le differnze tra i semiclicli, come da richiesta.

Codice: 
Option Explicit

'Ricerca BiCiclica By Joe Rev 2.1 (su script di LuigiB ?).

Sub Main
	Dim TipoArc
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	Dim nTotale2
	Dim nTotale3
	Dim nTotale4
	Dim CL
	ReDim aNum(10)
	ReDim aRuote(1)
	CL = 9 'SemiCiclo di 9 Estrazioni
	nCicli = Int(InputBox("Inserire il numero dei cicli da " & CL,,5))
	TipoArc = ScegliArchivio
	Call ImpostaArchivio10ELotto(TipoArc)
	Inizio =(EstrazioniArchivioDL -(nCicli * 2 * CL)) + 1
	Fine = EstrazioniArchivioDL - CL + 1
	If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
		For idDecina = 1 To 9
			nTotale = 0
			Call AlimentaNumeri(idDecina,aNum)
			ReDim aTitoli(5)
			aTitoli(1) = " Range (" & CL & "+" & CL & ") Estrazioni."
			aTitoli(2) = "  Primo  "
			aTitoli(3) = " Secondo "
			aTitoli(4) = "  Totali  "
			aTitoli(5) = "   Delta   "
			Call InitTabella(aTitoli)
			For idEstr = Inizio To Fine Step 2 * CL
				ReDim aValori(5)
				aValori(1) = CStr(idEstr) & "-" & CStr(idEstr + CL - 1) & " + " & CStr(idEstr) + CL & "-" & CStr(idEstr + 2  * CL - 1 )
				aValori(2) = SerieFreqDL(idEstr,idEstr + CL - 1,aNum,1)
				aValori(3) = SerieFreqDL(idEstr+ CL,idEstr + 2 * CL - 1,aNum,1)
				aValori(4) = aValori(2) + aValori(3)
				aValori(5) =  aValori(3) - aValori(2)
				nTotale = nTotale + aValori(5)
				nTotale2 = nTotale2 + CLng(aValori(2))
				nTotale3 = nTotale3 + CLng(aValori(3))
				nTotale4 = nTotale4 + CLng(aValori(4))
				Call AddRigaTabella(aValori)
			Next
			ReDim aValori(5)
			aValori(1) = "T O T A L I"
			aValori(2) = nTotale2
			aValori(3) = nTotale3
			aValori(4) = nTotale4
			aValori(5) = nTotale
			Call AddRigaTabella(aValori,vbYellow)
			nTotale2 = 0 
			nTotale3 = 0
			nTotale4 = 0
			Call Scrivi("Pres in Dec : " & StringaNumeri(aNum,,True),True)
			Call Scrivi
			Call CreaTabella
		Next
	Else
		If nCicli <= 0 Then
			sErr = "Numero di cicli non valido"
		End If
		If Inizio <= 0 Then
			sErr = "Troppi cicli rispetto alle estrazioni del range"
		End If
		If idDecina <= 0 Then
			sErr = "Nessuna decina selezionata"
		End If
		If TipoArc <= 0 Then
			sErr = "Specificare quale archivio 10 e lotto"
		End If
		MsgBox sErr,vbCritical
	End If
End Sub
Function ScegliDecina()
	ReDim aVoci(8)
	Dim k,i
	For k = 1 To 81 Step 10
		aVoci(i) = "Decina " & k & " - " & k + 9
		i = i + 1
	Next
	ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
	Dim i,k,y
	i =((idDecina - 1) * 10) + 1
	For k = i To(i - 1) + 10
		y = y + 1
		aNum(y) = k
	Next
End Sub
Function ScegliArchivio()
	ReDim aVoci(1)
	aVoci(0) = "Dieci e lotto"
	aVoci(1) = "Dieci e lotto 5 min"
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function

:) Cordiali saluti.
 
Ultima modifica:
Ciao Solare.

Sono contento ti sia utile.

x Giorgio, si, penso sia possibile, ma bisognerebbe dividerlo in 10,

o 11 parti, tante sono le ruote, perchè già così sono tanti 10 numeri.

O ... anche, forse, cambiare la sorte ... a tutte. Non so.

Prova a descrivere ... cosa vorresti.

Poi ... si vedrà.

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 24 maggio 2025
    Bari
    72
    84
    53
    64
    12
    Cagliari
    63
    59
    22
    39
    65
    Firenze
    69
    78
    13
    20
    61
    Genova
    62
    48
    82
    03
    65
    Milano
    44
    66
    04
    21
    40
    Napoli
    13
    70
    03
    38
    45
    Palermo
    52
    18
    04
    69
    70
    Roma
    12
    34
    17
    07
    79
    Torino
    27
    44
    49
    05
    32
    Venezia
    72
    62
    87
    34
    02
    Nazionale
    32
    65
    12
    30
    18
    Estrazione Simbolotto
    Milano
    45
    30
    11
    28
    06
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto