Программный код третьего проекта

• ⇐ Назад
• 12

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

 

---

• ⇐ Назад
• 12