4. Разработка графического интерфейса
4.1 Форма
По условию X>3
По условию X<-3
По условию «в противном случае»
5. Программный код
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form3
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
Sub f_1(ByVal b1 As Single, ByVal c1 As Single, ByVal x1 As Single, ByRef f As Single)
Dim min1 As Single
Dim min2 As Single
Dim min3 As Single
min1 = CSng(b1 * x1 ^ 2)
min2 = CSng(c1 * x1 ^ 2)
min3 = CSng(Max(Sqrt(Abs(c1)), Sqrt(Abs(x1))))
If min1 > min2 And min3 > min2 Then f = min2
If min2 > min1 And min3 > min1 Then f = min1
If min1 > min3 And min2 > min3 Then f = min3
End Sub
Sub f_2(ByVal b1 As Single, ByVal c1 As Single, ByVal x1 As Single, ByRef f As Single)
Dim max1 As Single
Dim max2 As Single
max1 = CSng(b1 + c1 * x1 ^ 2)
max2 = CSng(Exp(x1))
If max1 > max2 Then f = max1 Else f = max2
End Sub
Sub f_3(ByVal c1 As Single, ByVal b1 As Single, ByVal x1 As Single, ByRef f As Single)
f = CSng(Atan(-b1 ^ 2 / (c1 ^ 2 + x1 ^ 2)))
End Sub
Sub vivod(ByVal W As Single, ByRef T As TextBox)
T.Text = CStr(W)
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim x As Single
Dim c As Single
Dim b As Single
Dim f As Single
x = vvod(TextBox1)
c = vvod(TextBox2)
b = vvod(TextBox3)
If x > 3 Then
f_1(x, b, c, f)
vivod(f, TextBox4)
MsgBox(" расчет прошел по условию X>3")
ElseIf x < -3 Then
f_2(x, b, c, f)
vivod(f, TextBox4)
MsgBox(" расчет прошел по условию X< -3")
Else
f_3(b, c, x, f)
vivod(f, TextBox4)
MsgBox(" Расчет прошел по условию в противном случае")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form0.Show()
Hide()
End Sub
End Class
Разработка схемы-алгоритма
Начало
Начало
x=vvod(Textbox1)
b=vvod(Textbox2)
c=vvod(Textbox3)
X>3 ?
нет да
X<-3 ?
F vivod(Textbox4)
да
Вывод по условию x>3
F vivod(Textbox4)
F vivod(Textbox4)
Вывод по условию «в противном
случае»
Вывод по условию x<-3
Конец
Работа
4.5
Тема и название работы:
Программирование алгоритмов регулярных циклических структур – Формирование таблицы значений функции y=f(x) на отрезке [a;b] с шагом h.
Цель работы
Цель данной работы состоит в получении навыков разработки проектов, использующих алгоритмы регулярных циклических структур и освоении стандартного элемента управления ListBox.
Задание на разработку проекта и вариант задания:
Разработка графического интерфейса