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
    sabato 11 ottobre 2025
    Bari
    04
    25
    41
    83
    90
    Cagliari
    16
    81
    09
    87
    82
    Firenze
    67
    13
    08
    49
    39
    Genova
    29
    61
    54
    15
    22
    Milano
    06
    11
    08
    48
    53
    Napoli
    60
    13
    46
    67
    63
    Palermo
    78
    72
    54
    02
    58
    Roma
    35
    47
    89
    25
    77
    Torino
    39
    27
    35
    30
    85
    Venezia
    36
    32
    47
    63
    73
    Nazionale
    17
    33
    10
    51
    28
    Estrazione Simbolotto
    10
    11
    43
    13
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto