Построение графиков в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д