Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Sub proc2()
z = (10 * (Log(y ^ 2) - (Abs(x - y)) ^ (1 / 4)) / (1 - (Cos(y)) ^ 3))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Объявление элементов'
Dim x, y, a As Double
Dim i, j As Integer
Dim p As Single
Dim s1, s2 As String
'Ввод данных'
x = CDbl(Val(TextBox1.Text))
y = CDbl(Val(TextBox2.Text))
'Вычисление'
a = funtik(x, y)
i = CInt(a)
j = CInt(Fix(a))
p = CSng(a)
s1 = CStr(a)
s2 = CStr(p)
'Вывод'
TextBox3.Text = CStr(a)
TextBox4.Text = CStr(i)
TextBox5.Text = CStr(j)
TextBox6.Text = CStr(Int(a))
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(a + p)
TextBox9.Text = s1 + s2
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Очистка'
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Выход'
Application.Exit()
End Sub
End Class
Проверка правильности выполнения проекта.
Второе задание.
Создайте приложение с именем Проект 3.4, для вычисления сторон треугольника заданного величинами своих углов и радиусом описанной окружности.
Формализация и уточнение задания:
Для решения задачи существуют известные формулы:
A = 2R * sin(alpha)
Где r – радиус, alpha – угол, противолежащий стороне; A – сторонa треугольника.
В соответствии с требованиями задания разобьем решение задачи на несколько отдельных задач и создадим процедуры пользователя, реализующие эти задачи:
· процедуру- Function Sootn(), вычисляющую сторону по радиусу и углу треугольника;
· процедуру- Function vvod() для ввода действительного числа из объекта типа TextBox;
· процедуру- Sub vivod() для вывода действительного числа в объект типа TextBox.
Выбор типа процедуры (Function или Sub) определяется следующими критериями. Процедуры-функции Function предназначены для вычислений и могут быть частью выражения. Результатом выполнения процедуры- Function является значение какой-либо одной величины числового, строкового или логического типа, которое функция возвращает или через свое имя, или оператором Return. Следовательно, ДлинаОтрезка() и vvod() – это процедуры типа Function.
Если же процедура должна вычислить и возвратить несколько величин (PS()), или просто выполнить определенные действия, не возвращая никаких значений (vivod()), то такую процедуру следует оформить как процедуру- Sub.
Графический интерфейс пользователя
Схема алгоритма
Код проекта
Option Explicit On
Imports System.Math
Public Class Form1
Function vvod(ByVal t As TextBox) As Double
Return CSng(Val(t.Text))
End Function
Sub vivod(ByVal z As Double, ByVal t As TextBox)
t.Text = CStr(z)
End Sub
Public Function Sootn(ByVal angle As Double, ByVal r As Double) As Double
Return CSng(Sin((angle * 180) / PI) * r * 2)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim alpha, beta, gamma, radius As Double
Dim a, b, c As Double
alpha = vvod(TextBox1)
beta = vvod(TextBox2)
gamma = vvod(TextBox3)
radius = vvod(TextBox4)
If alpha + beta + gamma = 180 Then
a = (Sootn(alpha, radius))
b = (Sootn(beta, radius))
c = (Sootn(gamma, radius))
vivod(a, TextBox5)
vivod(b, TextBox6)
vivod(c, TextBox7)
Else
MsgBox("Не существует")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Application.Exit()
End Sub
End Class
