Novità

Chiedo cortesemente questo listato

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Ciao
In pratica quello che io chiedo è il seguente:
il listato mi dovrà chiedere la ruota da analizzare
la decina
quanti cicli (da 18)da considerare

dovra poi darmi il risultato seguente:

frequenza dei numeri di quella decina per ogni ciclo
ed infine riportare il totale delle frequenze di tutti i cicli considerati.

Provo a fare un esempio:

Ruota di Ba
cicli considerati 3
decina 81....90
1 ciclo frequenza decina 8
2 ciclo frequenza decina 12
3 ciclo frequenza decina 10
Totale frequenza dei tre cicli.....30
Questo è tutto
Grazie
 
Codice: 
Option Explicit
Sub Main
	Dim Ruota
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	ReDim aNum(10)
	ReDim aRuote(1)
	
	
	Ruota = ScegliRuota
	nCicli = Int(InputBox("Inserire il numero dei cicli da 18",,10))
	idDecina = ScegliDecina
	Inizio =(EstrazioneFin -(nCicli * 18)) + 1
	Fine = EstrazioneFin - 17
	
	
	
	If nCicli > 0 And Inizio > 0 And idDecina > 0 And Ruota > 0 Then
		aRuote(1) = Ruota
		Call AlimentaNumeri(idDecina,aNum)
		ReDim aTitoli(2)
		aTitoli(1) = "   Range       "
		aTitoli(2) = "   Frequenza   "
		Call InitTabella(aTitoli)
		For idEstr = Inizio To Fine Step 18
			ReDim aValori(2)
			aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 17)
			aValori(2) = SerieFreq(idEstr,idEstr + 17,aNum,aRuote,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 ("Su " & NomeRuota(Ruota))
		
		Call Scrivi ("Decina analizzata " & StringaNumeri (aNum ))
		
		Call Scrivi 
		
		Call CreaTabella
	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 Ruota <= 0 Then
			sErr = "Nessuna ruota selezionata"
		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
 
ciao Luigi,Intanto mille grazie
perfetto, se non chiedo troppo questo listato ovviamente con le dovute modifiche può analizzare tutte le decine ? anzichè procedere all'analisi una per una.
se non è possibile non importa.

Ciao e buona serata
 
Codice: 
Option Explicit
Sub Main
	Dim Ruota
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	ReDim aNum(10)
	ReDim aRuote(1)
	
	
	Ruota = ScegliRuota
	nCicli = Int(InputBox("Inserire il numero dei cicli da 18",,10))
	
	Inizio =(EstrazioneFin -(nCicli * 18)) + 1
	Fine = EstrazioneFin - 17
	
	
	
	If nCicli > 0 And Inizio > 0  And Ruota > 0 Then
		
		aRuote(1) = Ruota
		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 18
				ReDim aValori(2)
				aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 17)
				aValori(2) = SerieFreq(idEstr,idEstr + 17,aNum,aRuote,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("Su " & NomeRuota(Ruota))
			
			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 Ruota <= 0 Then
			sErr = "Nessuna ruota selezionata"
		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
 
Ciao Solare,
siccome anch'io sono un appassionata di studi riguardanti le decine naturali,potresti spiegarmi come usi le frequenze nei cicli?
Grazie:)
 
Ciao Debora73, per quanto riguarda i cicli ci sono un infinità di situazioni interessanti, comunque ti posso suggerire di analizzare gli ultimi 3 cicli se la somma è intorno al valore 35/40 è interessante comunque fai una prova dall'estrazione del 25/1 sia su Bari che Ca in particolare l'ottantina e vedrai dei risultati interessanti.
Ciao
 
Ciao
volevo chiedere se il listato x le decine naturali richiesto da Solare è applicabile al 10 e lotto con qualche modifica?
chi mi puo aiutare?
-dbr-
 
Codice: 
Option Explicit
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 18",,10))
	TipoArc = ScegliArchivio
	Inizio =(EstrazioniArchivioDL -(nCicli * 18)) + 1
	Fine = EstrazioniArchivioDL - 17
	
	
	
	If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
		
		Call ImpostaArchivio10ELotto(TipoArc)
		
		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 18
				ReDim aValori(2)
				aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + 17)
				aValori(2) = SerieFreqDL(idEstr,idEstr + 17,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("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 Luigi
grazie x il listato ma mi da errore mi chiede archivio
e io non so come fare non ci capisco niente di listati
lo so che dovrei applicarmi un po di piu ma il tempo a disposizione è poco -dbr-
 
scusa ma la richiesta è una semplice scelta tra archivio 10 e lotto e archivio 10 elotto 5 min ... dov'è che da errore ? A me funziona...
 
ciao
il problema è che non so come inserirla
comunque non importa grazie lo stesso
-dbr-
 
che vuol dire come inserirla ? Esce una mascherina tu selezioni la voce
che ti interessa nel menu a tendina e poi premi il tasto verde ...
Forse non ho capito io ... mi pare cosi banale ...
 
Luigi a sostegno di quanto dice dbr anche a me da errore su scelta archivio e la mascherina di scelta non compare.

forse mancano queste voci prelevate da altri script?

Function ScegliArchivio()

ReDim aVoci(1)

aVoci(0) = "10 e lotto"
aVoci(1) = "10 e lotto 5 min"

Ultimamente stiamo andando tutti in bambola !!!

Mike58
 
accidenti ... sto creando dei mostri !! Bravo Mike , non mi ero accorto che avevo omesso quella funzione... hai ragione bravo !!!
Bene basta aggingere quella funzione allla fine dello script dopo end sub , comunque ora lo correggo !
 
ho corretto lo script ..scusate ... si vede che mi sono impicciato col copia e incolla...
 
Ciao Luigi, ovviamente sempre con grande cortesia ti chiedo:

Sai che questo listato "lotto" dopo aver analizzato la ruota indica
Range Freq..>>>>alla fine riporta il totale delle frequenze di una determinata decina ok.
Dal momento che io analizzo un periodo di circa 100 cicli ovviamente ho una lista di risultati relativi alla frequenza es. 7-8-11-14-8-18</u> ecc naturalmente se il periodo da me analizzato è breve si intuisce a colpo d'occhio qualè la frequenza continua max inferiore a 10 nel periodo indicato in rosso è 2 come si può capire ho analizzato 6 cicli ed ho constatato che la frequenza continua max inferiore a 10 è 2 perchè dopo la frequenza 7 e 8 abbiamo 11.
Spero di non averti creato confusione.
Naturalmente chiedo se possibile riportare questa variazione al listato.
Grazie e buona giornata
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 agosto 2025
    Bari
    41
    55
    23
    09
    54
    Cagliari
    52
    26
    51
    34
    47
    Firenze
    23
    78
    17
    35
    86
    Genova
    82
    15
    07
    44
    70
    Milano
    19
    86
    22
    77
    73
    Napoli
    39
    48
    82
    70
    15
    Palermo
    05
    25
    88
    54
    87
    Roma
    54
    19
    24
    62
    09
    Torino
    29
    83
    49
    59
    74
    Venezia
    65
    01
    45
    72
    55
    Nazionale
    10
    60
    88
    55
    37
    Estrazione Simbolotto
    Nazionale
    20
    24
    28
    33
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto