# chart, curve

Dear experts

i made a simple application that reads 8 numbers each second, i need to make a moving 8 curves that illustrate the imprted values,

any advice

Omar
Asked:
###### Who is Participating?

Commented:
Here is an "inverted" x^2

Private Sub Command1_Click()
Dim x As Integer
Picture1.ScaleMode = 3
For x = 1000 To 0 Step -1
Picture1.Line (x, x ^ 2)-(x + 1, (x + 1) ^ 2)
Next
End Sub

Dabas
0

Commented:
Hi omarmf:
1) Create a new form to display the chart
2) Add a PictureBox on the form, so it covers most of the form
3) Use Line to plot your points

Here is an example from VB help, that draws on the form itself. In your case use Picture1.Line instead of just Line

Sub Form_Click ()
Dim CX, CY, F, F1, F2, I   ' Declare variables
ScaleMode = 3   ' Set ScaleMode to pixels.
CX = ScaleWidth / 2   ' Get horizontal center.
CY = ScaleHeight / 2   ' Get vertical center.
DrawWidth = 8   ' Set DrawWidth.
For I = 50 To 0 Step -2
F = I / 50   ' Perform interim
F1 = 1 - F: F2 = 1 + F   ' calculations.
Forecolor = QBColor(I Mod 15)   ' Set foreground color.
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents   ' Yield for other processing.
If CY > CX Then   ' Set DrawWidth.
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2   ' Set up loop.
F = I / 50   ' Perform interim
F1 = 1 - F: F2 = 1 + F   ' calculations.
Line (CX * F1, CY)-(CX, CY * F1)   ' Draw upper-left.
Line -(CX * F2, CY)   ' Draw upper-right.
Line -(CX, CY * F2)   ' Draw lower-right.
Line -(CX * F1, CY)   ' Draw lower-left.
Forecolor = QBColor(I Mod 15)   ' Change color each time.
Next I
DoEvents   ' Yield for other processing.
End Sub

Dabas
0

Author Commented:
Can you please make a more simple one

like one line ( y= x^2)

thank you

Omar
0

Author Commented:
ok done

than you

Omar
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

## Already a member? Login.

All Courses

From novice to tech pro — start learning today.