Novità

Salve si puo fare questo piccolo script

L

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
 
Mike58 ha scritto:
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
Clicca per espandere...

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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 31 maggio 2025
    Bari
    72
    01
    07
    20
    16
    Cagliari
    39
    04
    81
    79
    09
    Firenze
    87
    73
    57
    72
    63
    Genova
    80
    81
    32
    30
    75
    Milano
    07
    63
    39
    57
    64
    Napoli
    47
    06
    11
    26
    66
    Palermo
    04
    81
    15
    76
    48
    Roma
    84
    15
    52
    56
    25
    Torino
    12
    34
    06
    54
    26
    Venezia
    44
    86
    74
    48
    80
    Nazionale
    44
    77
    11
    58
    62
    Estrazione Simbolotto
    Milano
    41
    25
    12
    08
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto