|
|
 | Grafikken mangler
Fra : Nybegynderen |
Dato : 21-07-03 11:10 |
|
Hvorfor får jeg ikke nogen grafik op på skærmen når jeg kører dette lille
skript ??
Sub LineChart(Pic1 As Control, N As Integer, X() As Single, Y() As Single)
Dim Xmin As Single, Xmax As Single
Dim Ymin As Single, Ymax As Single
Dim I As Integer
Xmin = X(0): Xmax = X(0)
Ymin = Y(0): Ymax = Y(0)
For I = 1 To N - 1
If X(I) < Xmin Then Xmin = X(I)
If X(I) > Xmax Then Xmax = X(I)
If Y(I) < Ymin Then Ymin = Y(I)
If Y(I) > Ymax Then Ymax = Y(I)
Next I
Ymin = (1 - 0.05 * Sgn(Ymin)) * Ymin
Ymax = (1 + 0.05 * Sgn(Ymax)) * Ymax
Pic1.Scale (Xmin, Ymax)-(Xmax, Ymin)
Pic1.Cls
For I = 1 To N - 1
Pic1.Line -(X(I), Y(I)), vbBlue
Next I
End Sub
| |
 mhabio (21-07-2003)
| Kommentar
Fra : mhabio |
Dato : 21-07-03 21:00 |
|
Pic1.Line MANGLER NOGET HER -(X(I), Y(I)), vbBlue
Pic1.Line (X(l),Y(l))-(X(I+1), Y(I+1)), vbBlue
mikkel
| |
Nybegynderen (22-07-2003)
| Kommentar
Fra : Nybegynderen |
Dato : 22-07-03 07:35 |
|
Stadig ingen grafik,,,kan jeg have sat noget forkert i 'properties' ?
"mhabio" <mhaNoSpamThnx@imsb.au.dk> wrote in message
news:3f1c44ed$0$1666$ba624c82@nntp05.dk.telia.net...
> Pic1.Line MANGLER NOGET HER -(X(I), Y(I)), vbBlue
>
> Pic1.Line (X(l),Y(l))-(X(I+1), Y(I+1)), vbBlue
>
> mikkel
>
>
| |
 preben nielsen (22-07-2003)
| Kommentar
Fra : preben nielsen |
Dato : 22-07-03 16:58 |
|
"Nybegynderen" <email@not-valid.dk> skrev i en meddelelse
news:3f1cdba1$0$32532$edfadb0f@dread16.news.tele.dk...
> Stadig ingen grafik,,,kan jeg have sat noget forkert i
'properties' ?
>
> "mhabio" <mhaNoSpamThnx@imsb.au.dk> wrote in message
> news:3f1c44ed$0$1666$ba624c82@nntp05.dk.telia.net...
> > Pic1.Line MANGLER NOGET HER -(X(I), Y(I)), vbBlue
> >
> > Pic1.Line (X(l),Y(l))-(X(I+1), Y(I+1)), vbBlue
Har du debugget og set at dine tabeller indeholder de rette
værdier.
Har du styr på koordinatsystemet ?
--
/\ preben nielsen
\/\ prel@post.tele.dk
| |
|
|