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
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto