Программирование на BASIC / Visual Basic / Лабораторные работы1 / лабораторная по информатике8
.docФедеральное агентство по образованию.
Государственное общеобразовательное учреждение высшего профессионального
образования.
Уфимский Государственный Авиационный Технический Университет.
Кафедра информатики.
Отчет по лабораторной работе №8
По теме: «Работа с графикой»
Выполнили:
Студенты группы МКС-120
Ноготков П.А.,
Кононович Ж.И.
Проверила старший
преподаватель:
Хамзина Е.А.
Уфа-2008
Цель работы:
Целью работы является изучение возможностей разработки многооконных приложений с использованием стандартных форм и текстового меню.
Задания:
Задание 1:Создайте проект с тремя формами.
Расположите на формах кнопки, позволяющие переходить из одной формы в другую в соответствии со следующими правилами: - из формы 1 должен быть предусмотрен переход в форму 2 и форму 3, при этом форма 1 должна быть невидима; - из формы 2 должен быть предусмотрен переход в форму 3, при этом форма 2 должна оставаться видимой; - из формы 3 должен быть предусмотрен переход в форму 1, при этом форма 2 и форма 3 должны быть невидимы.
Задание 2:Включите в структуры создаваемого проекта (см. задание 1) стандартную форму About Dialog, поместив на форму 1 (Form1) кнопку для ее открытия. Сохраните проект на диске.
Задание 3:Включите в приложение текстовое меню, содержащие пункты "Файл" и "О программе". В пункте меню файл должно быть подменю "Выход", позволяющее завершить работу с программой. Сохраните проект на диске.
Код программы: Private Sub Command1_Click()
If Option1.Value Then Form2.Show
If Option2.Value Then Form3.Show
Form1.Hide
End Sub
Private Sub Command2_Click()
frmAbout.Show
End Sub
Private Sub Выход_Click()
End
End Sub
Задание 4:Создайте проект и напишите программу, позволяющую выводить на табло будильника текущее время (Time) и дату (Date), а также задавать время сигнала и включать звуковой сигнал в заданное время. Сохраните проект на диске.
Код программы:Private Sub Command1_Click()
Timer1.Enabled = True
If Text1.Text = "" Then Exit Sub
If Not IsDate(Text1.Text) Then
MsgBox " Неверный формат времени!", vbCritical, "Внимание!"
Else
Text1 = CDate(Text1.Text)
End If
End Sub
Private Sub Timer1_Timer()
tim.Caption = Time
If Time = Text1.Text And Not AlarmSounded Then
Beep
Text1.Text = ""
MsgBox Time, vbInformation, "Время"
AlarmSounded = True
ElseIf Time < Text1.Text Then
AlarmSounded = False
End If
End Sub
Таблица№1
|
Объект |
Свойства |
Значение |
|
Command Command Label Command Command OptionButton OptionButton Form1 Form2 Form3 Form4 Form1 |
Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption |
Переход в форму Открытие стандартной формы Время Включить будильник Выход Переход в форму2 Переход в форму3 Задание Форма 2 Форма 3 About Project1 Будильник |
Вывод:
В результате проделанной работы мы изучили возможности разработки многооконных приложений с использованием стандартных форм и текстового меню.