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ì 14 ottobre 2025
    Bari
    48
    72
    06
    17
    82
    Cagliari
    28
    15
    25
    20
    34
    Firenze
    07
    17
    49
    62
    04
    Genova
    49
    09
    84
    14
    71
    Milano
    66
    57
    78
    07
    33
    Napoli
    17
    27
    25
    21
    66
    Palermo
    24
    34
    19
    29
    53
    Roma
    82
    53
    47
    25
    55
    Torino
    66
    58
    13
    07
    29
    Venezia
    68
    82
    10
    31
    01
    Nazionale
    19
    76
    15
    45
    26
    Estrazione Simbolotto
    26
    02
    15
    45
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto