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
    lunedì 05 maggio 2025
    Bari
    62
    19
    47
    49
    66
    Cagliari
    59
    73
    56
    14
    29
    Firenze
    21
    36
    80
    15
    87
    Genova
    66
    36
    20
    63
    83
    Milano
    88
    60
    04
    34
    05
    Napoli
    70
    36
    85
    44
    04
    Palermo
    41
    75
    63
    59
    20
    Roma
    19
    53
    63
    18
    09
    Torino
    38
    47
    06
    69
    82
    Venezia
    78
    87
    31
    06
    13
    Nazionale
    60
    42
    79
    67
    64
    Estrazione Simbolotto
    Milano
    34
    15
    22
    12
    39

Ultimi Messaggi

Indietro
Alto