 |
Федеральное государственное образовательное бюджетное
|
|
|
|
Федеральное государственное образовательное бюджетное
Учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
Изучение Visual Basic 10 в среде Visual Studio NET
Выполнил:
Студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Федеральное государственное образовательное бюджетное
Учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.2.
ПО ТЕМЕ
Структура VB-программ, процедуры и средства программирования алгоритмов линейной структуры.
Выполнил:
Студент группы
БАП1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма
Код программы:
Option Strict On
Imports System.Math
Public Class Form4
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim k As Integer
Dim l As Integer
Dim f As Double
Dim y As Double
Dim x As Double
Dim i As Single
Dim k2 As Integer
Dim s1 As String
Dim s2 As String
x = CDbl(Val(TextBox1.Text))
y = CDbl(Val(TextBox2.Text))
f = CDbl(((PI / 3) + Log10(x ^ 3)) / (3 * y - x)) + x * Sin(y ^ 2)
i = CSng(f)
k2 = CInt(f)
l = CInt(Int(f))
k = CInt(Fix(f))
s1 = CStr(f)
s2 = CStr(i)
TextBox3.Text = CStr(f)
TextBox4.Text = CStr(l)
TextBox5.Text = CStr(k)
TextBox6.Text = CStr(i)
TextBox7.Text = CStr(k2)
TextBox8.Text = CStr(f + i)
TextBox9.Text = CStr(s1 + " + " & s2)
End Sub
Private Sub Button3_Click_1(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
Form2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit()
|
|
|
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Федеральное государственное образовательное бюджетное
Учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.3.
ПО ТЕМЕ
Программирование алгоритмов разветвляющихся структур. Вычисление условных выражений.
Выполнил:
Студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма:
Код программы:
Option Strict On
Option Explicit On
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
Федеральное государственное образовательное бюджетное
|
|
|
