Novità

Per Mike 58

S

Serpico 90

Advanced Member >GOLD<
Salve,cortesemente possiamo creare uno script sulla legge del terzo?.
Che mi dia la possiblità di verificare su ruota unica e su 10 numeri da me inseriti quale numero, sempre in funzione della legge del terzo ,sia piu prevedibile all'uscita.
Se per caso ne sei già in possesso ,se ti va, potresti postarlo?


Conoscendo la tua disponibilità ,sono in attesa di una gradita risposta.
Grazie
Saluti
Serpico 90
 
Ultima modifica:
Ciao Serpico, mi pare che in passato abbiamo provato a fare qualcosa di simile, però non sono sicuro.
prova questo e vedi se risponde alle aspettative.

Ciao

Codice: 
Sub Main
	'est = InputBox("QUANTE ESTRAZIONI ANALIZZO",,54)
	Dim Nu(90,12),kk(3)
	Ini = EstrazioneFin - 54 : Fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi"Analisi dei Numeri Estratti su un range di " & Tot & " **** Script By Mike58 **** forum LottoCed ****  Legge del Terzo(Simulazione) **** ",True,True,2,4,2
	Scrivi
	For Es = Ini To fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = True
			Next
		Next
	Next
	Scrivi "Numeri Presenti Totali.....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,2
		For E = 1 To 90
			If EstrattoFrequenza(r,e,Ini,fin) > 0 Then
				k = k + 1
				Scrivi Format2(E) & " ",0,0
			Else
				Scrivi ".. ",0,0
			End If
		Next
		Scrivi " conta " & k,0,0
		Scrivi " " & SiglaRuota(R) & " ",1,0,,2
		k = 0
		Scrivi
	Next
	Scrivi
	Scrivi "Numeri Assenti Totali....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,Ini,fin) = 0 Then
				k = k + 1
				Scrivi Format2(E) & " ",True,False,,2,3
			End If
		Next
		Scrivi "(" & k & ")",1,0,,1,3
		k = 0
		Scrivi
	Next
	Scrivi
	Scrivi "Numeri Assenti ciclo 01-18....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 18,fin) = 0 Then
				k1 = k1 + 1
				Scrivi Format2(E) & " ",1,0
			End If
		Next
		Scrivi "(" & k1 & ")",1,0,,1,3
		kk(1) = k1
		k1 = 0
		Scrivi
	Next
	Scrivi
	Scrivi "Numeri Assenti ciclo 01-36....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 36,fin) = 0 Then
				k2 = k2 + 1
				Scrivi Format2(E) & " ",1,0
			End If
		Next
		Scrivi "(" & k2 & ")",1,0,,1,3
		kk(2) = k2
		k2 = 0
		Scrivi
	Next
	Scrivi
	Scrivi
	Scrivi "Numeri Assenti ciclo 01-54....................",1
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 54,fin) = 0 Then
				k3 = k3 + 1
				Scrivi Format2(E) & " ",1,0
			End If
		Next
		Scrivi "(" & k3 & ")",1,0,,1,3
		kk(3) = k3
		k3 = 0
		Scrivi
	Next
	Scrivi
	Scrivi"--------------------------------"
	Scrivi "Assenze per ciclo di 18 estrazioni"
	Scrivi
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0,,1,3
		For E = 1 To 90
			If EstrattoFrequenza(r,e,fin - 54,fin) = 0 Then
				k4 = k4 + 1
			End If
			
			If EstrattoFrequenza(r,e,fin - 36,fin) = 0 Then
				k5 = k5 + 1
			End If
			
			If EstrattoFrequenza(r,e,fin - 18,fin) = 0 Then
				k6 = k6 + 1
			End If
		Next
		Scrivi Format2(k6) & "." & Format2(k5) & "." & Format2(k4),1,0,,7,3
		k4 = 0
		k5 = 0
		k6 = 0
		Scrivi
	Next
End Sub

Dopo Provo con il personalizzato su ruota e scelta numeri.
 
Ultima modifica:
Ciao Mike ,in passato hai creato altro tipo di script, era per altro tipo di ricerca.
Questo che hai postato e si per la ricerca del terzo,ma io desidero altro tipo di script se è possibile.
Mi spiego: estrazione 103 e 104 ruota di BARI questi i numeri: 26-59-76-51-19--25-23-50-68-70--
In autopt inserisco i dieci numeri
Inserisco la ruota
Con eventuale formula(che io non conosco e non sono capace a costruire) lo script andrebbe a creare una classifica di quale numero in funzione della legge del terzo potrebbe essere prevedibile all'uscita.

Grazie se puoi
Saluti
Serpico
 
Ciao Serpico, diversamente non riesco, prova a simularlo con i numeri scelti per cicli voluti e su ruota scelta.

Codice: 
Sub Main
'CICLICITA'
r = InputBox("QUALE RUOTA",,1)
fc = CInt(InputBox("FREQUENZE PER CICLO => a ?",,1))

periodo = InputBox("Lunghezza periodo",,30)
periodi = InputBox("quanti cicli",,3)
aa = Int(fc*periodi)
ft = CInt(InputBox("FREQUENZE TOTALI",,aa))

Scrivi "Frequenze per cicli " & fc,1
Scrivi "Frequenze Totali    " & ft,1
	
	Tot = periodo * periodi
	Ini = EstrazioneFin - Tot
	fin = EstrazioneFin
	Iz = EstrazioneFin - Tot
	fn = EstrazioneFin
	Scrivi "Lunghezza ciclo     " & periodo,1
	Scrivi "Quantità cicli      " & periodi,1
	Scrivi "Ruota di   :        " & NomeRuota(r),1,1,2,4,2
	Scrivi
	ReDim nu(1)
	ScegliNumeri(nu)
	For es = Ini To fin Step periodo
		ess = es + periodo
		For x = 1 To UBound(nu)
			sf = EstrattoFrequenza(r,x,es + 1,ess)
			
			sr = EstrattoRitardo(r,x,es+1,fin)
			If sf >= fc Then
			k = k + 1
				riga = riga & Format2(x) & " "
				rigo = rigo & Format2(sf) & " "
				rita = rita & Format2(sr) & " "
				Nulla = String(40,"-")
			End If
			
		Next
		Scrivi es + 1,1,0
		Scrivi " - " & ess & "  ",1,0
		Scrivi riga & " [ " & k & " ] ",1,1,,2,2
		Scrivi "Frequenze    " & rigo,1,1,,1,2
		Scrivi "Ritardo      " & rita,1,1,,7,2
		Scrivi Nulla
		riga = ""
		rigo = ""
		rita = ""
		k = 0
	Next
	Scrivi "Riepilogo Numeri frequenti su " & periodo*periodi & " Estrazioni ",1
	Scrivi String(40,"=")
	For xx = 1 To UBound(nu)
		sft = EstrattoFrequenza(r,xx,Iz,fn)
		srt = EstrattoRitardo(r,xx,iz,fn)
		If sft >= ft Then
		kk = kk + 1
			rigaT = rigaT & Format2(xx) & " "
			rigaF = rigaF & Format2(sft) & " "
			rigaR = rigaR & Format2(srt) & " "
		End If
	Next
	Scrivi "Numeri...   " & rigaT & " [ " & kk & " ] ",1,1,,2,3
	Scrivi "Frequenze   " & rigaf,1,1,,1,3
	Scrivi "Ritardo     " & rigaR,1,1,,7,3
	rigaT = ""
	rigaF = ""
	rigaR = ""
	kk = 0
End Sub

Il tempo e la concentrazione non mi permettono di fare meglio o esattamente quello che vuoi ottenere.

Ciao
 
Ciao,Mike ,quando inserisco i numeri per la ricerca,non mi da i numeri richiesti ma solo 1.2.3.4.5.6.7.8.9.10
devo fare qualcosa ?
Ciao
 
Buon giorno a tutti,
ho provato lo script con 90 numeri funziona. non ho verificato i risultati ma lo script gira.
Cordiali saluti
I Legend
 
Ciao i legend, prova ad inserire solo 10 numeri,possibilmente dell'ultima e penyultima estrazione ruota di bari.
Vediamo cosa succede.
Grazie
Saluti
Serpico
 
Ciao Raga, effettivamente scriveva i numeri per Q.tà, mi spiace ma sono andato in tilt (ho poca testa e poco tempo).
Accontentatevi, se trovo di meglio e con un po' di concentrazione in più vedrò quello se posso fare di meglio. (Capita):o

Codice: 
Sub Main
'CICLICITA'
r = InputBox("QUALE RUOTA",,1)
fc = CInt(InputBox("FREQUENZE PER CICLO => a ?",,1))

periodo = InputBox("Lunghezza periodo",,18)
periodi = InputBox("quanti cicli",,5)
aa = Int(fc*periodi)
ft = CInt(InputBox("FREQUENZE TOTALI",,aa))

Scrivi "Frequenze per cicli  " & fc,1
Scrivi "Frequenze Totali     " & ft,1
Scrivi "Frequenza x cicli => " & 1
	
	Tot = periodo * periodi
	Ini = EstrazioneFin - Tot
	fin = EstrazioneFin
	Iz = EstrazioneFin - Tot
	fn = EstrazioneFin
	Scrivi "Lunghezza ciclo     " & periodo,1
	Scrivi "Quantità cicli      " & periodi,1
	Scrivi "Ruota di   :        " & NomeRuota(r),1,1,2,4,2
	Scrivi
	ReDim nu(1)
	ScegliNumeri(nu)
	Scrivi"Numeri scelti..." & StringaNumeri(nu),1,1,,1,3
	Scrivi 
	For es = Ini To fin Step periodo
		ess = es + periodo
		For x = 1 To UBound(nu)
			sf = EstrattoFrequenza(r,nu(x),es + 1,ess)
			
			sr = EstrattoRitardo(r,nu(x),Ini,fin)
			'If sf >= fc Then
			k = k + 1
				riga = StringaNumeri(nu) 'riga & Format2(x) & " "
				rigo = rigo & Format2(sf) & " "
				rita = rita & Format2(sr) & " "
				Nulla = String(40,"-")
			'End If
			
		Next
		Scrivi es + 1,1,0
		Scrivi " - " & ess & "  ",1,0
		Scrivi riga & " [ " & k & " ] ",1,1,,2,2
		Scrivi "Frequenze    " & rigo,1,1,,1,2
		Scrivi "Ritardo      " & rita,1,1,,7,2
		Scrivi Nulla
		riga = ""
		rigo = ""
		rita = ""
		k = 0
	Next
	Scrivi "Riepilogo Numeri frequenti su " & periodo*periodi & " Estrazioni ",1
	Scrivi String(40,"=")
	For xx = 1 To UBound(nu)
		sft = EstrattoFrequenza(r,nu(xx),Ini,fin)
		srt = EstrattoRitardo(r,nu(xx),Ini,fin)
		'If sft >= ft Then
		kk = kk + 1
			rigaT = StringaNumeri(nu) 'rigaT & Format2(xx) & " "
			rigaF = rigaF & Format2(sft) & " "
			rigaR = rigaR & Format2(srt) & " "
		'End If
	Next
	Scrivi "Numeri...   " & rigaT & " [ " & kk & " ] ",1,1,,2,3
	Scrivi "Frequenze   " & rigaf,1,1,,1,3
	Scrivi "Ritardo     " & rigaR,1,1,,7,3
	rigaT = ""
	rigaF = ""
	rigaR = ""
	kk = 0
End Sub
 
Ciao Mike,:),Forse il tempo è poco, ma la testa è tanta.
Ciao Serpico, chiedo scusa , avendo evidenziato tutti 90 i numeri a me sembrava corretto.
Cordiali saluti
I Legend
 
Grazie Mike,come al solito sempre disponibile ,ora ci lavorerò, e speriamo che possa aiutarci a far qulache piccola vincita a dispetto della lottomatica.
Certo che mi accontento ........
Ciao i leggend ,sottoscrivo il complimento per Mike e grazie a te per la collaborazione.
Ricambio i cordiali saluti.
Serpico
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 novembre 2025
    Bari
    07
    35
    82
    62
    16
    Cagliari
    60
    42
    25
    31
    51
    Firenze
    48
    36
    03
    35
    25
    Genova
    17
    57
    09
    66
    85
    Milano
    69
    78
    37
    85
    16
    Napoli
    08
    27
    17
    26
    68
    Palermo
    24
    77
    19
    79
    45
    Roma
    45
    14
    27
    21
    07
    Torino
    27
    51
    35
    76
    63
    Venezia
    52
    05
    46
    10
    53
    Nazionale
    23
    69
    01
    02
    38
    Estrazione Simbolotto
    Torino
    24
    44
    23
    21
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto