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ì 29 aprile 2025
    Bari
    03
    07
    32
    05
    33
    Cagliari
    66
    62
    27
    39
    26
    Firenze
    07
    41
    70
    75
    53
    Genova
    10
    26
    64
    44
    74
    Milano
    30
    76
    66
    51
    65
    Napoli
    56
    80
    34
    11
    29
    Palermo
    74
    37
    48
    13
    38
    Roma
    02
    21
    18
    51
    68
    Torino
    64
    06
    32
    88
    54
    Venezia
    66
    01
    11
    74
    54
    Nazionale
    65
    63
    50
    55
    33
    Estrazione Simbolotto
    Genova
    45
    10
    12
    24
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto