Imports System.Math
Public Class Form2
Sub vivod(ByVal Z As Double, ByVal T As TextBox)
T.Text = CStr(Format(Z, "0.00"))
End Sub
Function vvod(ByRef T As TextBox) As Double
Return CDbl(Val(T.Text))
End Function
Function area(ByVal l As Double) As Double
Return (l) / (2 * PI)
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim l1, l2, l3, r1, r2, r3, s1, s2, s3 As Double
l1 = vvod(TextBox1)
l2 = vvod(TextBox2)
l3 = vvod(TextBox3)
'r1 = radius
r1 = area(l1)
r2 = area(l2)
r3 = area(l3)
'l1 = pl
s1 = PI * (r1 ^ 2)
s2 = PI * (r2 ^ 2)
s3 = PI * (r3 ^ 2)
vivod(r1, TextBox4)
vivod(r2, TextBox5)
vivod(r3, TextBox6)
vivod(s1, TextBox7)
vivod(s2, TextBox8)
vivod(s3, TextBox9)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form6.Show()
Me.Hide()
End Sub
End Class
Федеральное государственное образовательное бюджетное
учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.4.
ПО ТЕМЕ
Программирование алгоритмов разветвляющихся циклических структур.
Выполнил:
студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма:
Код программы проекта:
Option Explicit On
Option Strict On
Imports System.Math
Public Class Form6
Sub f_1(ByVal x As Double, ByVal a As Double, ByVal b As Double, ByRef s As Double)
s = a * Sin(x) + b * Cos(x)
End Sub
Sub f_2(ByVal x As Double, ByVal a As Double, ByVal b As Double, ByRef s As Double)
Dim max As Double
max = CDbl(x ^ 3)
If Exp(x) > max Then max = CDbl(Exp(x))
If 10 ^ 3 > max Then max = CDbl(10 ^ 3)
s = max
End Sub
Sub f_3(ByVal x As Double, ByVal a As Double, ByVal b As Double, ByRef s As Double)
Dim min As Double
Dim max As Double
max = CDbl(x ^ 3)
If a ^ x < max Then max = CDbl(a ^ x)
min = max
If ((Sin(x)) / x) < min Then min = (Sin(x)) / x
If (x * (Log10(x) ^ 2)) < min Then min = (x * (Log10(x) ^ 2))
s = min
End Sub
Sub vivod(ByVal W As Double, ByRef T As TextBox)
T.Text = CStr(W)
End Sub
Function vvod(ByVal T As TextBox) As Double
Return CDbl(Val(T.Text))
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Double
Dim a As Double
Dim b As Double
Dim s As Double
x = vvod(TextBox1)
a = vvod(TextBox2)
b = vvod(TextBox3)
If x < 2 Then
f_1(x, a, b, s)
vivod(s, TextBox4)
MsgBox(" расчет прошел по условию x < 2 ")
ElseIf x > 3 Then
f_2(x, a, b, s)
vivod(s, TextBox4)
MsgBox(" расчет прошел по условию x > 2 ")
ElseIf x = 2 Then
f_3(x, a, b, s)
vivod(s, TextBox4)
MsgBox(" Расчет прошел по условию в противном случае")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
End Sub
End Class
Федеральное государственное образовательное бюджетное
учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.5.
ПО ТЕМЕ
Программирование алгоритмов регулярных циклических структур.
Выполнил:
студент группы
БАП1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема
Код программы:
Option Strict On
Option Explicit On