Novità

Modesto Contributo 10 e lotto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
quote:Originally posted by keeper

rubino scusami perchè mi dice
errore 500 varaibile non definita 'storia'
Clicca per espandere...
ciao keeper , lo script a me funziona benissimo,molto propabilmente
quando lo hai copiato hai dimenticato di togliere "Option Explicit".
Per quanto riguarda Excel per vedere in modo "casareccio" la formattazione condizionale i terni o quaterne o cinquine... ecc
nella formattazione condizionale usa la formula è :
" = NON(VAL.ERRORE (CONFRONTA(B3;$O1$:$T1$;0))) "
dove B3 è l'inizio dell'intervallo dei numeri che tu selezionerai
e $O1$:$T1$ è l''intrevallo di celle dove andrai a mettere i due terni da ricercare in modo tale che per noi spaziometrici di prima maniera si possa controllare almeno parzialmente un intuizione se pò essere meritevole di essere passata allo script perchè questo è sempre migliore per vedere se effettivamente ne vale la pena. Fill
 
non c'è contina l'errore
storia = InputBox("Estrazioni Range Conc. ",,EstrazioneFin)

ma lo script devo copiarlo in spaziometria e lanciarlo
 
quote:Originally posted by keeper

non c'è contina l'errore
storia = InputBox("Estrazioni Range Conc. ",,EstrazioneFin)

ma lo script devo copiarlo in spaziometria e lanciarlo
Clicca per espandere...
ma lo script devo copiarlo in spaziometria e lanciarlo
SI!!abbi cura però di cancellare in spaziometria queste 3 istruzioni altrimenti te le ritrovi 2 volte e ti da l'errore
Option Explicit
Sub Main

End Sub
 
a me funziona,
mi pare che abbia ancora qualche piccolo difetto.

ma funziona:

stasera provo a riguardarlo e provarlo bene!




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
 
fill l'ulitma cosa
ma non è possibile farlo sull'estrazione della giornata 10lotto5minuti
 
quote:Originally posted by keeper

fill l'ulitma cosa
ma non è possibile farlo sull'estrazione della giornata 10lotto5minuti
Clicca per espandere...
Cosa ?
lo script = SI
oppure
il File di Excel che si riferisce all'estrazione
della giornata 10lotto5minuti = SI
nella 1^ pagina di questo post c'è scritto come ottenere i file di excel 10e lotto normale e 5 min
 
corretto qualche imperfezione:

aggiornato e funzionante

Codice: 
Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'condizione
	'------------
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(20)
	Dim asom(20)
	Dim acolpi(9999)
	storia = InputBox("Estrazioni Range Conc.   ",,EstrazioneFin)
	z = InputBox("Controllo Tempo = conc.n.",,500)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
	fin = storia
	Ini = storia - z
	
	Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Per il 10 E LOTTO "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	
	
	For x = 1 To z
		idestr = storia - x
		riga = ""
		For t = 1 To 20
		asom(t) = ""
		Next
		
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
			num(yy) = Format2(EstrattoDL(idestr,yy))
		Next
		
	If v = 2 Then	
		For b = 1 To 19
		c = Fuori90(Int(num(b)) + Int(num(b + 1)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 19
	End If
	
		If v = 3 Then	
		For b = 1 To 18
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 18
	End If
	
	If v = 4 Then	
		For b = 1 To 17
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 17
	End If
		If v = 5 Then	
		For b = 1 To 16
		c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
		asom(b) = asom(b) & CLng(c)
		Next 					
	lim = 16
	End If
			rsomme = ""
			For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
			Next
				Scrivi "___________________________________________________________________________________________________________________________________________________________"	
		ColoreTesto(0):Scrivi idestr & "    " & riga & "......................." & rsomme	

''''riepilogo terni con somme uguali
		For r = 1 To lim
		For r2 = r + 1 To lim + 1
		If asom(r) = asom(r2) Then
		t1 = Format2(EstrattoDL(idestr,r))
		t2 = Format2(EstrattoDL(idestr,r + 1))
		If v = 3 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		End If
		If v = 4 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		End If
		If v = 5 Then
		t3 = Format2(EstrattoDL(idestr,r + 2))
		t4 = Format2(EstrattoDL(idestr,r + 3))
		t5 = Format2(EstrattoDL(idestr,r + 4))
		End If
		
		u1 = Format2(EstrattoDL(idestr,r2))
		u2 = Format2(EstrattoDL(idestr,r2 + 1))
		If v = 3 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		End If
		If v = 4 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		End If
		If v = 5 Then
		u3 = Format2(EstrattoDL(idestr,r2 + 2))
		u4 = Format2(EstrattoDL(idestr,r2 + 3))
		u5 = Format2(EstrattoDL(idestr,r2 + 4))
		End If
		ColoreTesto(1) : Scrivi "------  somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & "         " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
						ReDim tnm(5)
						tnm(1) = t1
						tnm(2) = t2
						tnm(3) = t3
						tnm(4) = t4
						tnm(5) = t5
						If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
						ColoreTesto 2
						Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
						acolpi(RetColpi) = acolpi(RetColpi) + 1
						ColoreTesto 0
						If RetEsito = "Cinquina" Then
						Cinquitotali = Cinquitotali + 1
						End If
 
Fill non riesco ad effettuare la ricerca su 10lotto5minuti della giornàta odierna e anche con estrai estrazioni del post mi dice estrazione non presente
 
quote:Originally posted by keeper

Fill non riesco ad effettuare la ricerca su 10lotto5minuti della giornàta odierna e anche con estrai estrazioni del post mi dice estrazione non presente
Clicca per espandere...
Non so, la devi aggiornare?
Su base dati ... aggiornamento 10 e lotto 5 min.. segui le finestre...
 
lo chiedo anche a e rubino perchè la ricerca la fa solo sull'archio 10 e lotto cosa devo cambiare per favore spiegatemelo
forse devo aggiungere
Dim num(20)
Dim asom(20)
ImpostaArchivio10ELotto(2)
storia = InputBox("Estrazioni Range Conc. ",,EstrazioneFin)
z = InputBox("Controllo Tempo = conc.n.",,500)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
 
ragazzi vi do un paio di delucidazioni allora per impostare l'archivio 10 e lotto 5 min
bisogna usare la funzione ImpostaArchivio10ELotto(2)
prima di tutte le altre funzioni.


Lo script di Rubino va bene per il 10 e lotto normale ma per il 10 e lotto 5 min va fatto qualche piccolo aggiustamento.
Mi riferisco ad esempio a quelle funzioni che servono per impostare
il range di analisi , come EstrazioneFin ed EstrazioneIni
Queste 2 funzioni infatti si riferiscono all'archivio del lotto e al range (sempre del lotto) gia impostato nel programma.
Nel caso del dieci e lotto classico le due funzioni di cui sopra vanno benissimo lo stesso perche l'estrazione del 10 e lotto dipende
da qulla del lotto , pero se al contrario si opera con il 10 e lotto 5 min eccolo la che queste 2 funzioni non vanno piu bene !
Un modo per ottenere un range valido nel 10 e lotto 5 potrebbe essere
quello di usare la funzione DataEstrToIdEstrDL
questa funzione passando , giorno mese ,anno e numero concorso
torna l'id dell'estrazione corrsipondente.
Quindi ad esempio se volessi analizzare solo la giornata del 7 marzo 2011 dovrei fare qualcosa tipo questa:

Dim Inizio,Fine
Inizio =DataEstrToIdEstrDL(7,3,2011,1)
Fine =DataEstrToIdEstrDL(7,3,2011,204)

for k = inizio to fine
' codice che lavora nei limiti del range
next


Ciao !
 
non ho mai provato ad usare l'archivio dei 5 minuti, ma
mi pare di capire che

basta mettere questa istruzione all'inizio come prima riga
dello script



ImpostaArchivio10ELotto(2)</u>


e quando chiede range estrazioni ho provato a mettere 10950
in effetti elabora fino alle estrazioni oltre i 10000, che dovrebbero essere quelle del 10 e lotto 5 minuti.



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
 
esatto , per fare le cose piu pulite nella scelta del range
usa le funzioni che ti ho suggerito.
 
quote:Originally posted by LuigiB

ragazzi vi do un paio di delucidazioni allora per impostare l'archivio 10 e lotto 5 min
bisogna usare la funzione ImpostaArchivio10ELotto(2)
prima di tutte le altre funzioni.


Lo script di Rubino va bene per il 10 e lotto normale ma per il 10 e lotto 5 min va fatto qualche piccolo aggiustamento.
Mi riferisco ad esempio a quelle funzioni che servono per impostare
il range di analisi , come EstrazioneFin ed EstrazioneIni
Queste 2 funzioni infatti si riferiscono all'archivio del lotto e al range (sempre del lotto) gia impostato nel programma.
Nel caso del dieci e lotto classico le due funzioni di cui sopra vanno benissimo lo stesso perche l'estrazione del 10 e lotto dipende
da qulla del lotto , pero se al contrario si opera con il 10 e lotto 5 min eccolo la che queste 2 funzioni non vanno piu bene !
Un modo per ottenere un range valido nel 10 e lotto 5 potrebbe essere
quello di usare la funzione DataEstrToIdEstrDL
questa funzione passando , giorno mese ,anno e numero concorso
torna l'id dell'estrazione corrsipondente.
Quindi ad esempio se volessi analizzare solo la giornata del 7 marzo 2011 dovrei fare qualcosa tipo questa:

Dim Inizio,Fine
Inizio =DataEstrToIdEstrDL(7,3,2011,1)
Fine =DataEstrToIdEstrDL(7,3,2011,204)

for k = inizio to fine
' codice che lavora nei limiti del range
next


Ciao !
Clicca per espandere...
Ciao Luigi,
non ho capito come impostare il range,
ho capito che devo inserire questa funzione
Dim Inizio,Fine
Inizio =DataEstrToIdEstrDL(7,3,2011,1)
Fine =DataEstrToIdEstrDL(7,3,2011,204)

for k = inizio to fine
' codice che lavora nei limiti del range
next
ma non so inserirlo,potresti postare lo script completo di questa funzione.
Grazie:)
 
Buon giorno a tutti ho fatto questo piccolo file di excel che prende in esame un giorno completo del 10 e lotto 5 (le 240 estrazioni dell'1/2/2011)per vedere in modo immediato quale cinquina in 17 estrazioni ha dato il maggior numero di ambi le cinquine vengono generate in continuazione cliccando sul simbolo della cornucopia
si ferma la ricerca quando trova una cinquina i cui num formano un num di ambi superiori al num che immettete in Y1 : la speranza è che la frequenza rilevata continui giocando la stessa cinquina...
Ovviamente il metodo principe resta lo script ma io sono un estimatore anche di excel che ha il pregio di far vedere
e di stimolare di più la fantasia. L'immagine ovrebbe essere esplicativa ma se volete sapere qualcosa di + ... chiedete!!!!
10el8excel.jpg
 
Ciao Debora , non si trattava di uno script completo ma di un
suggerimento generico per keeper , rubino , filotto i quali stanno
facendo prove con lo script fatto da rubino ma avevano difficoltà col 10 e lotto 5 minuti
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 aprile 2025
    Bari
    82
    36
    16
    03
    81
    Cagliari
    46
    13
    40
    47
    09
    Firenze
    23
    87
    68
    48
    86
    Genova
    12
    68
    63
    41
    17
    Milano
    66
    58
    51
    21
    61
    Napoli
    84
    32
    71
    61
    22
    Palermo
    69
    18
    82
    75
    12
    Roma
    64
    78
    54
    89
    05
    Torino
    68
    49
    86
    23
    25
    Venezia
    29
    18
    44
    25
    47
    Nazionale
    02
    74
    67
    88
    84
    Estrazione Simbolotto
    Genova
    29
    38
    43
    03
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto