VERSION  5 . 00 
Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "msscript.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =    6915 
   ClientLeft      =    60 
   ClientTop       =    345 
   ClientWidth     =    10335 
   LinkTopic       =   "Form1"
   ScaleHeight     =    6915 
   ScaleWidth      =    10335 
   StartUpPosition =    3   'Windows Default
   Begin VB.TextBox Text2 
      Appearance      =    0   'Flat
      Height          =    330 
      Left            =    7020 
      TabIndex        =    5 
      Text            =   "20"
      Top             =    45 
      Width           =    1140 
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H8000000E&
      Height          =    6405 
      Left            =    0 
      ScaleHeight     =    6345 
      ScaleWidth      =    10260 
      TabIndex        =    2 
      Top             =    495 
      Width           =    10320 
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Plot"
      Height          =    375 
      Left            =    4455 
      TabIndex        =    1 
      Top             =    45 
      Width           =    1635 
   End
   Begin VB.TextBox Text1 
      Appearance      =    0   'Flat
      Height          =    330 
      Left            =    675 
      TabIndex        =    0 
      Text            =   "x^3-x/17+8"
      Top             =    45 
      Width           =    3705 
   End
   Begin MSScriptControlCtl.ScriptControl ScriptControl1 
      Left            =    135 
      Top             =    2565 
      _ExtentX        =    1005 
      _ExtentY        =    1005 
   End
   Begin VB.Label Label2 
      BackStyle       =    0   'Transparent
      Caption         =   "Качество:"
      Height          =    330 
      Left            =    6165 
      TabIndex        =    4 
      Top             =    90 
      Width           =    960 
   End
   Begin VB.Label Label1 
      Alignment       =    1   'Right Justify
      BackStyle       =    0   'Transparent
      Caption         =   "Y="
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =    9 . 75 
         Charset         =    204 
         Weight          =    700 
         Underline       =    0    'False
         Italic          =    0    'False
         Strikethrough   =    0    'False
      EndProperty
      Height          =    240 
      Left            =    135 
      TabIndex        =    3 
      Top             =    90 
      Width           =    465 
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Inputs:To plot a graph with this code, you'll need to input the graph equation
'     of te Y-X type. eg. X-5, X^2+3*X, etc. VB functions such as Exp(X) are also supported
'
' Returns:The main function returns values of Y relative to X from the equation.
'     This is then converted to co-ordinates and plotted using the LINE statement
'
'Side Effects:
'      Making the SpeedMark variable higher increases plotting quality but reduces plotting speed.
'      Setting it too high can make the program look as if it has hung. Set it between 20-150!
'      SpeedMark=(20-150)
'**************************************
Dim XMax As Single, YMax As Single, YMin As Single, XMin As Single, XScale As Single, YScale As Single
'

Public Sub DrawGraph _
    (GraphPaper As PictureBox, _
    ByVal GraphEquation As String, _
    ScriptCtrl As ScriptControl, _
    Optional ByVal SpeedMark As Integer =  20 , _
    Optional ByVal GraphColor As Long = vbRed)

Dim X As Single
Dim Y As Single
Dim X1 As Single
Dim Y1 As Single
Dim X2 As Single
Dim Y2 As Single
Dim TempX As Single
Dim TempY As Single
Dim s As String
Dim iColor As Long

On Error GoTo Err_debug

    Screen.MousePointer =  11 

    'Use these to change the size and scale of graph
    XScale =  10  'Scale in pixels per unit
    YScale =  1 
    XMin = - 200  'Minimum values
    YMin = - 100 
    XMax =  200  'Maximum value
    YMax =  100 
    
    'These next lines fit the graph to the graph
    'area and lets you manually change the picture
    'box size without affecting the plotting
    With GraphPaper
        .ScaleHeight = YMax
        .ScaleWidth = XMax
        YMax = YMax + YMin /  2 
        XMax = XMax + XMin /  2 
    End With
    GraphPaper.Cls 'Clear all previous graphs
    
    'This part draws the two axes
    GraphPaper.Line ( 0 , ConvertToYUnits( 0 ))-(XMax - XMin, ConvertToYUnits( 0 ))    'X-axis
    GraphPaper.Line (XMax, YMax - YMin)-(XMax,  0 ) 'Y-axis
    
    'This part is for plotting the graph
    For X = -SpeedMark To SpeedMark Step  1  / SpeedMark

        s = X
        s = VBA.Replace(s, ",", ".")
        s = "X = " & s
        With ScriptCtrl 'This part evaluates the y-values of the equation that will be used in plotting
            .ExecuteStatement (s)
            Y = .Eval(GraphEquation)
        End With
        
        'This is the main part which draws the entire graphs step-by-step by joining tiny lines together, based on the values from the equation
        On Error Resume Next
        If X <> -SpeedMark Then 'Error handling
            X1 = ConvertToXUnits(X)
            X2 = ConvertToXUnits(TempX)
            Y1 = ConvertToYUnits(Y)
            Y2 = ConvertToYUnits(TempY)
            GraphPaper.Line (X1, Y1)-(X2, Y2), GraphColor 'Make plotted line red
        End If
        On Error GoTo  0 
        'These two TempX, TempY are used to set
        '     the next point for the line to continue
        'i.e. Line goes from 0,0 to 1,1. Then it
        '     goes from 1,1 to 2,2 etc
        TempX = X
        TempY = Y
    Next
    

lb_out:
    Screen.MousePointer =  0 
    Exit Sub

Err_debug:
    MsgBox Err.Number & ": " & Err.Description, vbCritical
    Resume lb_out
    
End Sub

'These two functions convert equation values to values that can be plotted correctly on the picture control
Private Function ConvertToXUnits(ByVal ValueToChange As Single) As Single
    ConvertToXUnits = XMax + (ValueToChange * XScale)
End Function

Private Function ConvertToYUnits(ByVal ValueToChange As Single) As Single
    ConvertToYUnits = YMax - (ValueToChange * YScale)
End Function

Private Sub Command1_Click()
Dim i As Long

    i = CLng( 0  & Me.Text2.Text)
    If i <  20  Or i >  150  Then
        i =  20 
    End If
    Me.DrawGraph Me.Picture1, Me.Text1.Text, Me.ScriptControl1, i
    
End Sub

Private Sub Form_Resize()
On Error Resume Next
    If Me.WindowState = vbMinimized Then Exit Sub
    If Me.Height <  1500  Then Me.Height =  1500 
    Me.Picture1.Move  0 , Me.Picture1.Top, Me.ScaleWidth, Me.ScaleHeight
End Sub