Список литературы
Алексей Дукин, Антон Пожидаев " Самоучитель Visual Basic 2010" Издательство: БХВ-Петербург Год издания: 2010
Виктор Зиборов "Visual Basic 2010 на примерах" Издательство: БХВ-Петербург Год издания: 2010
Eric A. Smith Active Server® Pages Bible; Высшая школа - Москва, 2016. - 65 c.
Патрик Т. Visual Basic 2005. Рецепты программирования; БХВ-Петербург - М., 2013. - 57 c.
Шевякова Д.А. Самоучитель Visual Basic; БХВ-Петербург - М., 2016. - 43 c.
Якушева Н. М. Введение в программирование на языке Visual Basic. Net; Финансы и статистика - М., 2013. - 40 c.
Приложение Функциональная схема программного продукта.
Подсчёт корня уравнения
Проверка было ли введено
число
Вывод графика функции
Вывод значения выражения
Подсчёт точек графика
функции
Нажатия кнопки для выведения
графика функции
Ввод точности, начало
отрезка и конец отрезка
Программный код, реализующий поставленную задачу.
Public Class Form1
Function F(ByVal xx As Double) As Double
Return (0.25 * xx ^ 3 - xx - 1.2502)
End Function
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If (Asc(e.KeyChar) <> 13 AndAlso Asc(e.KeyChar) <> 8 AndAlso Not IsNumeric(e.KeyChar)) Or Asc(e.KeyChar) = 44 Then
MessageBox.Show("Пожалуйста, вводите только числа")
e.Handled = True
End If
End Sub
Dim x, y, a, b, c, d As Double
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("Заполните все поля")
Else
Dim x, x0, a, b, c, y As Double
Dim count As Integer
a = TextBox2.Text
b = TextBox3.Text
c = TextBox1.Text
count = 0
x = a
While Math.Abs(x - x0) > c
x0 = x
x = x0 - (F(x0) / (F(x0) - F(b))) * (x0 - b)
End While
d = Math.Round(x, TextBox1.Text.Length - 2)
MsgBox(d)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim x, y As Single
Dim graph As Graphics
Dim pen As New Pen(Color.Black)
For x = -10 To 10 Step 0.01
y = 0.25 * x ^ 3 - x - 1.2502
' Рисовать прямоугольник в точке (e.X, e.Y)
Dim Графика = CreateGraphics()
Графика.FillRectangle(New SolidBrush(Color.Red),
x * 50 + 300, -y * 50 + 150, 2, 2) 'Начало координат x=300, y=150
' 10x10 пикселов — размер сплошного прямоугольника
' e.X, e.Y — координаты указателя мыши
Dim Графика1 = CreateGraphics()
Графика1.FillRectangle(New SolidBrush(Color.Red), x * 50, 150, 2, 2)
Dim Графика2 = CreateGraphics()
Графика2.FillRectangle(New SolidBrush(Color.Red), 300, x * 50, 2, 2)
Dim Графика4 = CreateGraphics()
Графика4.FillRectangle(New SolidBrush(Color.Red), x * 5000 - 1, 140, 2, 10)
Dim Графика5 = CreateGraphics()
Графика5.FillRectangle(New SolidBrush(Color.Red), 290 - 1, 100, 20, 2)
Dim Графика6 = CreateGraphics()
Графика6.FillRectangle(New SolidBrush(Color.Red), 290 - 1, 50, 20, 2)
Dim Графика7 = CreateGraphics()
Графика7.FillRectangle(New SolidBrush(Color.Red), 290 - 1, 150, 20, 2)
Dim Графика8 = CreateGraphics()
Графика8.FillRectangle(New SolidBrush(Color.Red), 290 - 1, 200, 20, 2)
Next x
End Sub
End Class