Программирование на BASIC / Visual Basic / Лабораторные работы1 / Лабораторные по информатике по VB(преподаватель- Хамзина Е.А.) / лабораторная по информатике2
.docФедеральное агентство по образованию.
Государственное общеобразовательное учреждение высшего профессионального
образования.
Уфимский Государственный Авиационный Технический Университет.
Кафедра информатики.
Отчет по лабораторной работе №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
Задание третьего уровня сложности: Пусть смешано V1 литров воды температуры t1 с V2 литрами воды температуры t2 и V3 литрами воды температуры t3 . Вычислить объем и температуру образовавшейся смеси.
Код программы: 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.