Salve si puo fare questo piccolo script

LOTTOLEON · 23 Gennaio 2015

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

LOTTOLEON · 24 Gennaio 2015

Ciao qualcuno puo' darmi una mano, help!!!

LOTTOLEON · 26 Gennaio 2015

Ciao Mike, JOE

E' importante questo script potete aiutarmi!?

saluti

LOTTOLEON

LOTTOLEON · 28 Gennaio 2015

Rinnovo richiesta

Qualche anima buona

Alien. · 28 Gennaio 2015

bhe non so se ti conviene la tariffa è di 100 €

tranquillo si trova sempre un'anima buona qua su Ced

LOTTOLEON · 28 Gennaio 2015

Ok Alien ci sper

o

Mike58 · 29 Gennaio 2015

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

LOTTOLEON · 29 Gennaio 2015

Grazie mille Mike58 (mitico)

adesso ci studio un po su

Ciao

R.J.DIO · 30 Gennaio 2015

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

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.

Mike58 · 30 Gennaio 2015

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]

LOTTOLEON · 10 Febbraio 2015

Ciao, Grandissimo

Mike58

Lo potresti ADATTARE per ambo cosi lo spacchiamo!!

LOTTOLEON

Mike58 · 10 Febbraio 2015

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

Cerca

Cerca

Salve si puo fare questo piccolo script

LOTTOLEON

Member

LOTTOLEON

Member

LOTTOLEON

Member

LOTTOLEON

Member

Alien.

Advanced Premium Member

LOTTOLEON

Member

Mike58

Advanced Member >PLATINUM PLUS<

LOTTOLEON

Member

R.J.DIO

Senior Member

Mike58

Advanced Member >PLATINUM PLUS<

LOTTOLEON

Member

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi