Oppure

Loading
06/09/08 21:59
feddur
Salve, vorrei creare un programma che mi permetta di gestire un grafico, possibilmente non in excel.

Vorrei introdurre dei valori che poi dovranno essere visualizzati tramite grafico.
E' possibile? Avete qualche suggerimento?

Grazie.

edit:
ho trovato questo:

Disegno di linee

Per disegnare una linea tra due coordinate, utilizzare il metodo Line, la cui sintassi è la seguente:

[oggetto.]Line [(x1, y1)]–(x2, y2)[, colore]

PSet [Step] (0, 0)[, colore]

La prima coppia di coordinate (x1, y1) è facoltativa.
Disegna linee e rettangoli su un oggetto.

Sintassi

oggetto.Line [Step] (x1, y1) [Step] - (x2, y2), [colore], [B][F]

Chi me lo spiega o mi fa un esempio?
Grazie.
Ultima modifica effettuata da feddur 06/09/08 22:01
aaa
06/09/08 22:18
P4p3r0g4
allora diciamo che hai una funzione Y() e vuoi disegnare il grafico della funzione.
parti con un bell'indagine sulle Unita di misura che vuoi (io di solito prendo l'intera larghezza del grafico (picture1.scalewidth) divisa per il massimo valore x e similare (picture1.scaleheight) per y)
a questo punto tracci.
for x = 0 to n-1
picture1.line(x*udmx,y(x)*udmy)-((x+1)*udmx,y(x+1)*udmy),rgb(255,255,255)
next
ed eccoti il tuo grafico
aaa
06/09/08 22:21
feddur
Postato originariamente da P4p3r0g4:

allora diciamo che hai una funzione Y() e vuoi disegnare il grafico della funzione.
parti con un bell'indagine sulle Unita di misura che vuoi (io di solito prendo l'intera larghezza del grafico (picture1.scalewidth) divisa per il massimo valore x e similare (picture1.scaleheight) per y)
a questo punto tracci.
for x = 0 to n-1
picture1.line(x*udmx,y(x)*udmy)-((x+1)*udmx,y(x+1)*udmy),rgb(255,255,255)
next
ed eccoti il tuo grafico


grazie per la risposta, vorrei sapere come posso fare a introdurre i valori, così visto che ci sono li salvo in un file così al prossimo avvio del programma posso aggiornare il grafico.
Grazie ancora!

edit:
potresti spiegarmi meglio come creare la funzione y()?
non ci sono riuscito.
se non chiedo molto ti chiederei di buttarmi giù un piccolo esempio.. ti dispiace?
grazie.
Ultima modifica effettuata da feddur 06/09/08 22:34
aaa
06/09/08 22:37
P4p3r0g4
non capisco la domanda.
nel mio esempio i valori erano nell'array Y()
ma possono essere salvati e caricati come ti pare.
poi il grafico che ti ho fatto e` cartesiano per una funzione.
per altri tipi di grafico devi semplicemente ingegnarti con la geometria.
aaa
06/09/08 22:39
feddur
non capisco bene come usare Y() ..
ho provato questo:

Private Sub Form_Load()

Dim n, i As Integer
Dim y(33) As Integer
    For x = 0 To n - 1
    Picture1.Line (x * udmx, y(x) * udmy)-((x + 1) * udmx, y(x + 1) * udmy), RGB(255, 255, 255)
    Next

End Sub


ma mi esce solo un puntino, io vorrei una retta.
come fare?
grazie.
Ultima modifica effettuata da feddur 06/09/08 22:55
aaa
06/09/08 23:10
P4p3r0g4
n deve essere l'indice massimo dell'array Y.
aaa
06/09/08 23:11
antometal
devi inizializzare le variabili che usi
aaa
06/09/08 23:14
feddur
vorrei visualizzare su grafico i valori:
34, 54, 50

come faccio?
chi mi aiuta?
aaa