Построение графиков в Visual Basic - VB

Узнай цену своей работы

Формулировка задачи:

Необходимо построить график функции

Решение задачи: «Построение графиков в Visual Basic»

textual
Листинг программы
Dim Expr As String
 
Private Sub Command1_Click()
 
        Me.ScriptControl1.Reset
        
        Expr = Me.Text1.Text
 
        Draw
 
End Sub
 
Sub Draw()
Dim n   As Integer
Dim x() As Double
Dim Y() As Double
 
    Me.Picture1.Cls
 
    n = Val(Me.Text4.Text)
 
    ReDim x(1 To n) As Double
    ReDim Y(1 To n) As Double
 
    xmin# = Val(Me.Text2.Text)
    xmax# = Val(Me.Text3.Text)
    
    dx# = (xmax - xmin) / n
    
    xx# = xmin
    
    For i% = 1 To n
        x(i%) = xx#
        Y(i%) = Func(xx#)
        xx# = xx# + dx#
    Next i%
 
    ymax# = Y(1)
    ymin# = Y(1)
 
    For i% = 1 To n
        If Y(i%) > ymax# Then ymax# = Y(i%)
        If Y(i%) < ymin# Then ymin# = Y(i%)
    Next i%
    
    Me.Picture1.Scale (xmin#, ymax#)-(xmax#, ymin#)  '!!!! Нужно так !!!!
 
    Me.Picture1.PSet (x(1), Y(1)), QBColor(12)
 
    For i% = 1 To n
        Me.Picture1.Line -(x(i%), Y(i%)), QBColor(12)
    Next i%
 
    Me.Picture1.Line (xmin, 0)-(xmax, 0), QBColor(0)
    Me.Picture1.Line (0, ymin#)-(0, ymax#), QBColor(0)
 
End Sub
 
Function Func(x As Double) As Double
 
         Me.ScriptControl1.ExecuteStatement ("x=" & Replace$(CStr(x), ",", "."))
         
         Func = Me.ScriptControl1.Eval(Expr)
 
         '''Func = (Sin(x)) ^ 2 '::: Меняй формулу, получишь другие графики...
 
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы