Novità

Salve si puo fare questo piccolo script

LOTTOLEON

Member
Lo script deve fare questo tipo di ricerca.

inserisco dei numeri a scelta imposto il numero di estrazioni e mi deve dire su quali ruote si e' presentato per ambata.

Inoltre per ciascun numero deve avere la frequenza il ritardo cronologico e lo storico su quelle ruote dove e' uscito.

esempio non reale nelle ultime 10 estrazioni

n. 80 presente su BA-GE-TO FREQ. 4 R.C.= 1 R.S.= 4

n.10 presente su CA-PA-VE FREQ. 3 R.C.= 2 R.S.=3

n.1 presente su CA-PA FREQ. 2 R.C.= 3 R.S.=3

E COSI VIA............... per tutti gli altri numeri inseriti

Grazie per chi vorra cimentarsi:)
 
Ultima modifica:
bhe non so se ti conviene la tariffa è di 100 €


07857ba0fbd3965dc6ab4a9c8f87c61f.gif



tranquillo si trova sempre un'anima buona qua su Ced :p
 
Ultima modifica:
Ciao LottoLeon, prova cosi.

Codice:
Sub Main
	Dim Ru(1),Nu(1),Rit(10),fre(10)
	er = CInt(InputBox("Quante estrazioni a ritroso",,10))
	Ini = EstrazioneFin - er
	fin = EstrazioneFin
	Scrivi "Analisi estrazione da... " & GetInfoEstrazione(Ini) & "  a... " & GetInfoEstrazione(fin) & "    Totali... " & fin - ini + 1,1
	Scrivi
	ScegliNumeri(Nu)
	Scrivi "Numeri selezionati.... " & StringaNumeri(Nu),1,1,,1,3
	Scrivi "Legenta FRE (Rit)",1
	ReDim T(16)
	T(11) = " Numeri "
	For Tt = 1 To 10
		T(Tt) = SiglaRuota(Tt)
	Next
	T(12) = " Somma "
	T(13) = " Media "
	T(14) = " Scompensi "
	T(15) = " Eccessi "
	T(16) = " Rit & (Sto) "
	Call InitTabella(T,1,,3,5)
	For x = 1 To UBound(Nu)
		Nu(1) = Nu(x)
		For r = 1 To 10
			Ru(1) = r
			Sr = EstrattoFrequenza(r,Nu(1),Ini,fin)
			rot = EstrattoRitardo(r,Nu(1),Ini,fin)
			Ritt = EstrattoRitardo(11,Nu(1),Ini,fin)
			sto = EstrattoStorico(11,Nu(1),Ini,fin)
			Rit(r) = Sr
			fre(r) = rot
			'ff = SerieFreq(Ini,fin,Nu,Ru,1)
			'If Sr < tr Then
			Srt = Srt + Sr
			Srm =(Srt/10)
			k = k + 1
			'End If
		Next
		If k = 10 Then
			ReDim v(16)
			v(1) = Rit(1) & "   ( " & fre(1) & " )"
			v(2) = Rit(2) & "   ( " & fre(2) & " )"
			v(3) = Rit(3) & "   ( " & fre(3) & " )"
			v(4) = Rit(4) & "   ( " & fre(4) & " )"
			v(5) = Rit(5) & "   ( " & fre(5) & " )"
			v(6) = Rit(6) & "   ( " & fre(6) & " )"
			v(7) = Rit(7) & "   ( " & fre(7) & " )"
			v(8) = Rit(8) & "   ( " & fre(8) & " )"
			v(9) = Rit(9) & "   ( " & fre(9) & " )"
			v(10) = Rit(10) & "   ( " & fre(10) & " )"
			v(11) = Nu(1)
			v(12) = Srt
			v(13) = Srm
			ReDim rt(10)
			For yy = 1 To 10
				rt(yy) = yy
				If Rit(yy) = 0 Then riga = riga & SiglaRuota(yy) & "  "
				v(14) = riga
				If Rit(yy) > 0 Then rigo = rigo & SiglaRuota(yy) & "  "
				v(15) = rigo
				v(16) = Ritt & "  ( " & sto & " ) "
			Next
			Call AddRigaTabella(v,,,3)
			riga = ""
			rigo = ""
			Call SetColoreCella(11,7,5)
			For xy = 1 To 10
				If(Rit(xy)) = 0 Then Call SetColoreCella((xy),4,1) ' eccessi Giallo
				If(Rit(xy)) > 0 Then Call SetColoreCella((xy),3,1) ' scompensi Verde
			Next
		End If
		Srt = 0
		k = 0
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi "Tabelle Freq & Ritardi **** List Mike58 ***** per LottoLeon ***** ",1
End Sub
 
Ciao LottoLeon, prova cosi.

Codice:
Sub Main
	Dim Ru(1),Nu(1),Rit(10),fre(10)
	er = CInt(InputBox("Quante estrazioni a ritroso",,10))
	Ini = EstrazioneFin - er
	fin = EstrazioneFin
	Scrivi "Analisi estrazione da... " & GetInfoEstrazione(Ini) & "  a... " & GetInfoEstrazione(fin) & "    Totali... " & fin - ini + 1,1
	Scrivi
	ScegliNumeri(Nu)
	Scrivi "Numeri selezionati.... " & StringaNumeri(Nu),1,1,,1,3
	Scrivi "Legenta FRE (Rit)",1
	ReDim T(16)
	T(11) = " Numeri "
	For Tt = 1 To 10
		T(Tt) = SiglaRuota(Tt)
	Next
	T(12) = " Somma "
	T(13) = " Media "
	T(14) = " Scompensi "
	T(15) = " Eccessi "
	T(16) = " Rit & (Sto) "
	Call InitTabella(T,1,,3,5)
	For x = 1 To UBound(Nu)
		Nu(1) = Nu(x)
		For r = 1 To 10
			Ru(1) = r
			Sr = EstrattoFrequenza(r,Nu(1),Ini,fin)
			rot = EstrattoRitardo(r,Nu(1),Ini,fin)
			Ritt = EstrattoRitardo(11,Nu(1),Ini,fin)
			sto = EstrattoStorico(11,Nu(1),Ini,fin)
			Rit(r) = Sr
			fre(r) = rot
			'ff = SerieFreq(Ini,fin,Nu,Ru,1)
			'If Sr < tr Then
			Srt = Srt + Sr
			Srm =(Srt/10)
			k = k + 1
			'End If
		Next
		If k = 10 Then
			ReDim v(16)
			v(1) = Rit(1) & "   ( " & fre(1) & " )"
			v(2) = Rit(2) & "   ( " & fre(2) & " )"
			v(3) = Rit(3) & "   ( " & fre(3) & " )"
			v(4) = Rit(4) & "   ( " & fre(4) & " )"
			v(5) = Rit(5) & "   ( " & fre(5) & " )"
			v(6) = Rit(6) & "   ( " & fre(6) & " )"
			v(7) = Rit(7) & "   ( " & fre(7) & " )"
			v(8) = Rit(8) & "   ( " & fre(8) & " )"
			v(9) = Rit(9) & "   ( " & fre(9) & " )"
			v(10) = Rit(10) & "   ( " & fre(10) & " )"
			v(11) = Nu(1)
			v(12) = Srt
			v(13) = Srm
			ReDim rt(10)
			For yy = 1 To 10
				rt(yy) = yy
				If Rit(yy) = 0 Then riga = riga & SiglaRuota(yy) & "  "
				v(14) = riga
				If Rit(yy) > 0 Then rigo = rigo & SiglaRuota(yy) & "  "
				v(15) = rigo
				v(16) = Ritt & "  ( " & sto & " ) "
			Next
			Call AddRigaTabella(v,,,3)
			riga = ""
			rigo = ""
			Call SetColoreCella(11,7,5)
			For xy = 1 To 10
				If(Rit(xy)) = 0 Then Call SetColoreCella((xy),4,1) ' eccessi Giallo
				If(Rit(xy)) > 0 Then Call SetColoreCella((xy),3,1) ' scompensi Verde
			Next
		End If
		Srt = 0
		k = 0
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi "Tabelle Freq & Ritardi **** List Mike58 ***** per LottoLeon ***** ",1
End Sub

Buongiorno a tutti,MIKE...ringraziando per questo utilisimo script,avrei una domanda:Nel codice vi e' una imprecisione (forse):

tu dici "eccessi in giallo" e "scompensi in verde",ma lanciado lo script ad esempio il num.22 viene evidenziato in verde,ma nella tabella viene messo sotto eccessi....e' corretto o sono io che non ho' capito???.Grazie.
 
Ciao R.j.Dio , eccessi e scompensi e solo una dicitura, e si può chiamare come si crede.
quello che è il compito dello script e che deve andare a soddisfare la richiesta è che scelto un numero deve evidenziare in quale ruota è uscito (basta una frequenza) e nelle colonne elencare le ruote di presenza e di assenza.

mi sembra che questo sia soddisfatto.

Analisi estrazione da... [08948] [ 3 ] 07.01.2015 a... [08958] [ 13] 29.01.2015 Totali... 11

Numeri selezionati.... 22
Legenta FRE (Rit)


[TD="bgcolor: #0000ff, align: center"] BA [/TD]
[TD="bgcolor: #0000ff, align: center"] CA [/TD]
[TD="bgcolor: #0000ff, align: center"] FI [/TD]
[TD="bgcolor: #0000ff, align: center"] GE [/TD]
[TD="bgcolor: #0000ff, align: center"] MI [/TD]
[TD="bgcolor: #0000ff, align: center"] NA [/TD]
[TD="bgcolor: #0000ff, align: center"] PA [/TD]
[TD="bgcolor: #0000ff, align: center"] RO [/TD]
[TD="bgcolor: #0000ff, align: center"] TO [/TD]
[TD="bgcolor: #0000ff, align: center"] VE [/TD]
[TD="bgcolor: #0000ff, align: center"] Numeri [/TD]
[TD="bgcolor: #0000ff, align: center"] Somma [/TD]
[TD="bgcolor: #0000ff, align: center"] Media [/TD]
[TD="bgcolor: #0000ff, align: center"] Scompensi [/TD]
[TD="bgcolor: #0000ff, align: center"] Eccessi [/TD]
[TD="bgcolor: #0000ff, align: center"] Rit & (Sto) [/TD]

[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #00ff00, align: center"] 1 ( 0 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #00ff00, align: center"] 2 ( 8 ) [/TD]
[TD="bgcolor: #ffff00, align: center"] 0 ( 11 ) [/TD]
[TD="bgcolor: #ff00ff, align: center"] 22 [/TD]
[TD="bgcolor: #ffffff, align: center"] 3 [/TD]
[TD="bgcolor: #ffffff, align: center"] 0,3 [/TD]
[TD="bgcolor: #ffff00, align: center"] BA CA FI GE NA PA RO VE [/TD]
[TD="bgcolor: #00ff00, align: center"] MI TO [/TD]
[TD="bgcolor: #ffffff, align: center"] 0 ( 7 ) [/TD]
 
Non so se fa proprio quello che chiedi, io ho cambiato solo i codici per ambo.

Prova e vi ricordo che in questo periodo ho qualche problema a frequentare il forum per impedimenti personali.

Codice:
Sub Main
	Dim Ru(1),Nu(1),Rit(10),fre(10),rtt(1)
	er = CInt(InputBox("Quante estrazioni a ritroso",,10))
	Ini = EstrazioneFin - er
	fin = EstrazioneFin
	Scrivi "Analisi estrazione da... " & GetInfoEstrazione(Ini) & "  a... " & GetInfoEstrazione(fin) & "    Totali... " & fin - ini + 1,1
	Scrivi
	ScegliNumeri(Nu)
	Scrivi "Numeri selezionati.... " & StringaNumeri(Nu),1,1,,1,3
	Scrivi "Legenta FRE (Rit)",1
	ReDim T(16)
	T(11) = " Numeri "
	For Tt = 1 To 10
		T(Tt) = SiglaRuota(Tt)
	Next
	T(12) = " Somma "
	T(13) = " Media "
	T(14) = " Scompensi "
	T(15) = " Eccessi "
	T(16) = " Rit & (Sto) "
	Call InitTabella(T,1,,3,5)
	For x = 1 To UBound(Nu)
		Nu(1) = Nu(x)
		For r = 1 To 10
			Ru(1) = r
			rtt(1) = 11
			'Sr = EstrattoFrequenza(r,Nu(1),Ini,fin)
			'rot = EstrattoRitardo(r,Nu(1),Ini,fin)
			'Ritt = EstrattoRitardo(11,Nu(1),Ini,fin)
			'sto = EstrattoStorico(11,Nu(1),Ini,fin)
			sr = SerieFreq(Ini,fin,Nu,Ru,2)
			rot = SerieRitardo(Ini,fin,Nu,Ru,2)
			Ritt = SerieRitardo(Ini,fin,Nu,rtt,2)
			sto = SerieStorico(Ini,fin,Nu,rtt,2)
			Rit(r) = Sr
			fre(r) = rot
			'ff = SerieFreq(Ini,fin,Nu,Ru,1)
			'If Sr < tr Then
			Srt = Srt + Sr
			Srm =(Srt/10)
			k = k + 1
			'End If
		Next
		If k = 10 Then
			ReDim v(16)
			v(1) = Rit(1) & "   ( " & fre(1) & " )"
			v(2) = Rit(2) & "   ( " & fre(2) & " )"
			v(3) = Rit(3) & "   ( " & fre(3) & " )"
			v(4) = Rit(4) & "   ( " & fre(4) & " )"
			v(5) = Rit(5) & "   ( " & fre(5) & " )"
			v(6) = Rit(6) & "   ( " & fre(6) & " )"
			v(7) = Rit(7) & "   ( " & fre(7) & " )"
			v(8) = Rit(8) & "   ( " & fre(8) & " )"
			v(9) = Rit(9) & "   ( " & fre(9) & " )"
			v(10) = Rit(10) & "   ( " & fre(10) & " )"
			v(11) = Nu(1)
			v(12) = Srt
			v(13) = Srm
			ReDim rt(10)
			For yy = 1 To 10
				rt(yy) = yy
				If Rit(yy) = 0 Then riga = riga & SiglaRuota(yy) & "  "
				v(14) = riga
				If Rit(yy) > 0 Then rigo = rigo & SiglaRuota(yy) & "  "
				v(15) = rigo
				v(16) = Ritt & "  ( " & sto & " ) "
			Next
			Call AddRigaTabella(v,,,3)
			riga = ""
			rigo = ""
			Call SetColoreCella(11,7,5)
			For xy = 1 To 10
				If(Rit(xy)) = 0 Then Call SetColoreCella((xy),4,1) ' eccessi Giallo
				If(Rit(xy)) > 0 Then Call SetColoreCella((xy),3,1) ' scompensi Verde
			Next
		End If
		Srt = 0
		k = 0
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi "Tabelle Freq & Ritardi **** List Mike58 ***** per LottoLeon ***** ",1
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 24 maggio 2025
    Bari
    72
    84
    53
    64
    12
    Cagliari
    63
    59
    22
    39
    65
    Firenze
    69
    78
    13
    20
    61
    Genova
    62
    48
    82
    03
    65
    Milano
    44
    66
    04
    21
    40
    Napoli
    13
    70
    03
    38
    45
    Palermo
    52
    18
    04
    69
    70
    Roma
    12
    34
    17
    07
    79
    Torino
    27
    44
    49
    05
    32
    Venezia
    72
    62
    87
    34
    02
    Nazionale
    32
    65
    12
    30
    18
    Estrazione Simbolotto
    Milano
    45
    30
    11
    28
    06

Ultimi Messaggi

Indietro
Alto