How to implement graphs/charts using crystal reports with visual basic 5.0

[tany]

Hi...
I have problem that how to design graphs in vb 5.0 crystal reports and how to use then in vb 6.0 on button click.I am using vb 5.0 crystal reports in vb 6.0.
Can any one plz let me the procedure to create graphs and implement then in vb6.0 on a button click

[Hack]

Moved to reporting section.

[shakti5385]

Function FunctionEval1(ByVal X As Double) As Double
    ScriptControl1.ExecuteStatement "X=" & X
    FunctionEval1 = ScriptControl1.Eval(Trim(Text1.Text))
End Function
 
Function FunctionEval2(ByVal X As Double) As Double
    ScriptControl1.AddCode "X=" & X
    FunctionEval2 = ScriptControl1.Eval(Trim(Text2.Text))
End Function
 
Private Sub Command1_Click()
Dim t As Double
Dim XMin As Double, XMax As Double, YMin As Double, YMax As Double
Dim XPixels As Integer
 
On Error GoTo FncError
    YMin = 1E+101: YMax = -1E+101
    XMin = 2: XMax = 10
    Picture1.Cls
    Picture1.ScaleMode = 3
    XPixels = Picture1.ScaleWidth - 1
    Me.Caption = "Calculating range..."
    Screen.MousePointer = vbHourglass
    ' Calculate Min and Max for Y axis
    For i = 1 To XPixels
        t = XMin + (XMax - XMin) * i / XPixels
        functionVal = FunctionEval1(t)
        If functionVal > YMax Then YMax = functionVal
        If functionVal < YMin Then YMin = functionVal
    Next
    Me.Caption = "Plotting function..."
    ' Set up a user defined scale mode
    Picture1.Scale (XMin, YMin)-(XMax, YMax)
    Picture1.ForeColor = RGB(0, 0, 255)
    ' Move to the first point
    Picture1.PSet (XMin, FunctionEval1(XMin))
    ' Plot the function
    For i = 0 To XPixels
        t = XMin + (XMax - XMin) * i / XPixels
        'Picture1.PSet (t, FunctionEval1(t))
        Picture1.Line -(t, FunctionEval1(t))
    Next
    Me.Caption = "Function Plot"
    Screen.MousePointer = vbDefault
    Exit Sub
FncError:
    MsgBox "There was an error in evaluating the function"
    Screen.MousePointer = vbDefault
End Sub
 
Private Sub Command2_Click()
Dim t As Double
Dim XMin As Double, XMax As Double, YMin As Double, YMax As Double
Dim XPixels As Integer
 
    YMin = 1E+101: YMax = -1E+101
    XMin = 2: XMax = 10
    Picture1.Cls
    Picture1.ScaleMode = 3
    XPixels = Picture1.ScaleWidth - 1
    Me.Caption = "Calculating range..."
    Screen.MousePointer = vbHourglass
    ' Calculate Min and Max for Y axis
    For i = 0 To XPixels
        t = XMin + (XMax - XMin) * i / XPixels
        functionVal = FunctionEval2(t)
        If functionVal > YMax Then YMax = functionVal
        If functionVal < YMin Then YMin = functionVal
    Next
    Me.Caption = "Plotting function..."
    ' Set up a user defined scale mode
        Picture1.Scale (XMin, YMin)-(XMax, YMax)
    Picture1.ForeColor = RGB(255, 0, 0)
    ' Move to the first point
    Picture1.PSet (XMin, FunctionEval1(XMin))
    ' Plot the function
    For i = 0 To XPixels - 1
        t = XMin + (XMax - XMin) * i / XPixels
        functionVal = FunctionEval2(t)
        'Picture1.PSet (t, functionVal)
        Picture1.Line -(t, functionVal)
    Next
    Me.Caption = "Function Plot"
    Screen.MousePointer = vbDefault
    Exit Sub
FncError:
    MsgBox "There was an error in evaluating the function"
    Screen.MousePointer = vbDefault
End Sub
 
Private Sub Command3_Click()
Dim t As Double
Dim XMin As Double, XMax As Double, YMin As Double, YMax As Double
Dim XPixels As Integer
 
    YMin = 1E+101: YMax = -1E+101
    XMin = 2: XMax = 10
    Picture1.Cls
    Picture1.ScaleMode = 3
    XPixels = Picture1.ScaleWidth - 1
    Me.Caption = "Calculating range..."
    Screen.MousePointer = vbHourglass
    ' Calculate Min and Max for Y axis
    For i = 1 To XPixels
        t = XMin + (XMax - XMin) * i / XPixels
        functionVal = FunctionEval1(t)
        If functionVal > YMax Then YMax = functionVal
        If functionVal < YMin Then YMin = functionVal
    Next
 
    Me.Caption = "Plotting functions..."
    ' Set up a user defined scale mode
    Picture1.Scale (XMin, YMin)-(XMax, YMax)
 
    Picture1.ForeColor = RGB(0, 0, 255)
    ' Move to the first point
    Picture1.PSet (XMin, FunctionEval1(XMin))
    ' Plot the function
    For i = 0 To XPixels
        t = XMin + (XMax - XMin) * i / XPixels
        'Picture1.PSet (t, FunctionEval1(t))
        Picture1.Line -(t, FunctionEval1(t))
    Next
 
    Picture1.ForeColor = RGB(255, 0, 0)
    Picture1.PSet (XMin, FunctionEval2(XMin))
    ' Plot the function
    For i = 0 To XPixels
        t = XMin + (XMax - XMin) * i / XPixels
        'Picture1.PSet (t, FunctionEval2(t))
        Picture1.Line -(t, FunctionEval2(t))
    Next
    Me.Caption = "Function Plot"
    Screen.MousePointer = vbDefault
    Exit Sub
FncError:
    MsgBox "There was an error in evaluating the function"
    Screen.MousePointer = vbHourglass
End Sub
 
Private Sub ScriptControl1_Error()
    Debug.Print ScriptControl1.Error.Number
    Debug.Print ScriptControl1.Error.Text
End Sub

[tany]

ok sure i will mark it.
Can anyone reply back soon.

[tany]

i didnt get the code
can anyone plz
1. how to create a graph by using crystal report in visual basic 5.0
2. on a button click to display the graph according to the database in vb 6.0

[shakti5385]

if u want to create graph then make it there in the crystal report section and call it on vb

[tany]

i created the graph in crystal report.But how to view the graph on button click in vb 6.0.
Can anyone plz tell the steps to create the graph using crystal report (version 4.6) in vb5.0

[shakti5385]

Dim report as new crystal report
Crystalreport1.path=”path of graph”
Crystalreport1.action=1
Don’t forget to add crystal report control at your form

[tany]

I design the graph and include crystal report on the form and written the code.But on button click the report the not coming.
1. can anyone please tell steps to crystal report(version 4.6) in vb 5.0
2. How to print the graph on button click in vb 6.0
Note: I included crystal report in vb6.0

[tany]

can anyone plz get me soon?