Modifica script aiuto

[Folle]

ciao avrei il bisogno di modificare questo script..
http://www.aspitalia.com/articoli/as...ca.aspx?page=2

in pratica da come potete vedere dall'immagine del grafico che trovate nel sito..nn ci sono i valori alla fine della collonina.
Ad esempio la colonna rossa vale 400 ma il blu?? il suo valore preciso quanto è?^
io lo vorrei scritto sopra alla colonna nn so se mi avete capito.
spero di si ..come faccio per far questo modificando questo scritp??
Aiutatemi vi pregoooo

[Raffa62]

aggiungi la riga in grassetto e vedi se è quel che ti serve

for t=0 to 3
dim scritte as new Font("Time News Romans",8)
g.DrawString(mesi(t),scritte,bianco,60+t*90,310)
g.DrawString(visite(t),scritte,bianco,60+t*90,325)

[Folle]

ho un problema nn riesco a vedere il grafico come mai?
Prova anche tu a scaricarlo e poi fammi sapere thk

[Folle]

ciao ok ora funziona..ma il valore nn lo volevo sotto ma sopra alle colonne ad ogni colonna ..mi sarò spiegato male

[Raffa62]

g.DrawString(visite(t),scritte,bianco,60+t*90,285-int(visite(t)*240/max))

[Folle]

scusa se ti stresso..ma avrei ancor bisogno di un mano.
Ho provato ad aprire il db e aggiungere campi..ma quando aggiungo esempio 20 campi lui nn mi crea 20 barre di immagine ??
nn mi visualizza nulla ..come posso gestire + campi??

[Raffa62]

anche se metti 20 campi ma lasci

for t=0 to 3.......

vedrai sempre 4 barre, devi adattare il tutto

[Folle]

c'è un modo di sapere quanti campi mi sputa fuori la select che ho fatto cosi che poi lo metto dentro a una variabile per il for?

[Folle]

Non so se tu hai provato , ma continua chiedermi username e password come mai?? nn riesco a capire xchè lo fa..è quando c'è la pagina grafico.aspx che me lo chiedo ma xchè come faccio a toglierlo???

[Raffa62]

username e password? e di cosa?

comunque devi fare così, all'inizio metti

dim t,max as integer
	dim MyConnection as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+server.mappath("database.mdb"))
	dim myCmd as new OleDbCommand( "select count(id) from visite",MyConnection )
	MyConnection.open()
	dim nrCampi as integer = myCmd.ExecuteScalar()
	MyConnection.close()
	dim mesi(nrCampi) as string
	dim visite(nrCampi) as integer
	dim MyCommand as new OledbCommand("Select * from visite",MyConnection)

la parte in grassetto di rende dinamico il numero dei campi, poi il ciclo for sarà

' Scritte descrittive sul fondo e barre

	Dim colori() As Color = {Color.Red, Color.Blue, Color.Green, Color.Magenta}
    for t=0 to nrCampi - 1

nella parte in grassetto dovrai inserire tanti colori quanti potranno essere al massimo i tuoi campi

ovviamente dovrai modificare la larghezza delle barre e la loro posizione x se vuoi far stare tutto nell'immagine