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