omarmf
asked on
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
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
ASKER
Can you please make a more simple one
like one line ( y= x^2)
thank you
Omar
like one line ( y= x^2)
thank you
Omar
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
ok done
than you
Omar
than you
Omar
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