Программирование на BASIC / Visual Basic / Лабораторные работы1 / Лабораторные по информатике по VB(преподаватель- Хамзина Е.А.) / лабораторная по информатике2

Федеральное агентство по образованию.

Государственное общеобразовательное учреждение высшего профессионального

образования.

Уфимский Государственный Авиационный Технический Университет.

Кафедра информатики.

Отчет по лабораторной работе №2

По теме: «Организация ввода-вывода данных, изменение свойств объектов, разработка приложений с линейными алгоритмами»

Выполнил:

Студент группы МКС-120

Ноготков П.А.

Проверила старший

преподаватель:

Хамзина Е.А.

Уфа-2007

Цель работы:

Целью работы является изучение основных компонентов интегрированной среды разработки приложений Visual Basic, и приобретение начальных навыков работы в среде при создании простейших приложений

Задания:

Задание первого уровня сложности:

f = (m * c * t * b + Abs(c * Sin(t))) ^ 1 / 3

z = m * Cos(b * t * Sin(t)) + c

m = 2

c = -1

t = 1.2

b = 0.7

Код программы: Private Sub Command1_Click()

Dim m As Integer, c As Single, t As Single, b As Single

m = Val(InputBox("Введите значение переменной m", "Ввод данных"))

c = Val(InputBox("Введите значение переменной c", "Ввод данных"))

t = Val(InputBox("Введите значение переменной t", "Ввод данных"))

b = Val(InputBox("Введите значение переменной b", "Ввод данных"))

f = (m * c * t * b + Abs(c * Sin(t))) ^ 1 / 3

z = m * Cos(b * t * Sin(t)) + c

St = "Значение f = "

Label1.Caption = St & f

St = "Значение z = "

Label2.Caption = St & z

End Sub

Задание второго уровня сложности:

Длина выражена в сантиметрах. Выразить ее в дюймах. (1 дюйм=2.5 см)

Код программы: Private Sub Command1_Click()

Dim x As Single, y As Integer

x = Val(Text1)

y = x / 2.5

Text2 = Str(y)

End Sub

Задание третьего уровня сложности: Пусть смешано V₁ литров воды температуры t₁ с V₂ литрами воды температуры t₂ и V₃ литрами воды температуры t₃ . Вычислить объем и температуру образовавшейся смеси.

Код программы: Private Sub Command1_Click()

Dim V1 As Integer, t1 As Integer, V2 As Integer, t2 As Integer, V3 As Integer, t3 As Integer

V1 = Val(Text1)

t1 = Val(Text2)

V2 = Val(Text3)

t2 = Val(Text4)

V3 = Val(Text5)

t3 = Val(Text6)

S = V1 + V2 + V3

t = (V1 * t1 + V2 * t2 + V3 * t3) / (V1 + V2 + V3)

Text7 = Format(S, "#.000")

Text8 = Format(t, "#.000")

End Sub

Private Sub Command2_Click()

End

End Sub

Таблица№1

Объект	Свойства	Значение
Command 1 Command 2 Frame1 Frame2 Frame3 Frame4 Label Label Label Label Label Label Label Label Form1 Form1 Form2 Form2 Form3 Form3 Frame1 Frame2 Frame3 Label1 Label2	Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption BackColour Caption BackColour Caption BackColour BackColour BackColour BackColour BackColour BackColour	Вычислить Выход ввод данных для вычисления по формуле Вывод результатов Введите длину в сантиметрах вывод длины в дюймах объем смеси Температура смеси введите обьем воды в 1ом сосуде введите обьем воды во 2ом сосуде введите обьем воды в 3ем сосуде введите температуру воды в 1ом сосуде введите температуру воды во 2ом сосуде введите температуру воды в 3ем сосуде задание1 &H00C0C0FF& задание2 &H00C0C0FF& задание3 &H0080FF80& &H00C0FFC0& &H00C0FFC0& &H0080FFFF& &H00C0FFFF& &H00C0C0FF&

Вывод:

В процессе выполнения лабораторной работы я рассмотрел основные приемы организации ввода данных и вывода значений (результатов работы программы) в интегрированной среде разработки приложений Visual Basic, изучил правила организации форматного вывода значений. Создал несколько простейших приложений, использующих ввод-вывод данных, и отредактировал их, меняя функции Caption и BackColour.