Novità

Per Mike 58

Serpico 90

Advanced Member
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:

Mike58

Advanced Member >PLATINUM PLUS<
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:

Serpico 90

Advanced Member
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Serpico 90

Advanced Member
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
 

i legend

Premium Member
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
 

Serpico 90

Advanced Member
Ciao i legend, prova ad inserire solo 10 numeri,possibilmente dell'ultima e penyultima estrazione ruota di bari.
Vediamo cosa succede.
Grazie
Saluti
Serpico
 

Mike58

Advanced Member >PLATINUM PLUS<
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):eek:

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
 

i legend

Premium Member
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
 

Serpico 90

Advanced Member
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto