Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Программирование на BASIC / Visual Basic / Лабораторные работы1 / лабораторная по информатике8

.doc
Скачиваний:
24
Добавлен:
02.05.2014
Размер:
56.32 Кб
Скачать

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

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

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

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

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

Отчет по лабораторной работе №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

Будильник


Вывод:

В результате проделанной работы мы изучили возможности разработки многооконных приложений с использованием стандартных форм и текстового меню.