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
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
Indietro
Alto