Ход работы. Задание 1. Составить программу, рисующую флаг РФ

End Sub

Ход работы.

Практическая часть

Задание 1. Составить программу, рисующую флаг РФ.

Постановка задачи.

Требуется составить два варианта программы, рисующей флаг РФ:

· Флаг РФ рисуется на форме при ее создании (автоматически) (событие Paint)

· Флаг РФ рисуется на форме при щелчке на ней мышью (событие Click)

1. Создайте папку Лабораторная_работа_№10, а в ней папку 10.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Установите для формы значение свойства ScaleMode равное 3 – Pixels, свойства Name – frmФлаг, а свойства Caption – Флаг РФ.

5. Щелкнув мышью два раза на форме, выберите в верхнем правом углу экрана событие Paint

6. Впишите в появившихся строках следующий программный код (необходимые комментарии приведены после апострофа):

Private Sub Form_Paint()

FrmФлаг.Line (10, 10)-(400, 100), vbWhite, BF 'рисуем белый прямоугольник

FrmФлаг.Line (10, 100)-(400, 200), vbBlue, BF 'рисуем синий прямоугольник

FrmФлаг.Line (10, 200)-(400, 300), vbRed, BF 'рисуем красный прямоугольник

FrmФлаг.Caption = "Флаг РФ" 'задаем название формы

1. Сохраните проект (выбрав File – Save FrmФлаг.frm и Save Флаг.vbp)
2. Проверьте работоспособность проекта, запустив его на выполнение.
3. Создайте exe-файл программы с помощью команды File → Make ФлагРФ-1.exe.
4. Выйдите из среды Visual Basic.

11. Запустите на выполнение файл Флаг РФ-1.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

12. Для создания второго варианта программы необходимо выбрать событие Click, код остается неизменным. Сохраните второй вариант программы в папке 10.2.

Задание 2. Составить программу, рисующую смайлик.

Постановка задачи.

Требуется составить программу, рисующую радостный и грустный смайлик

1. Создайте в папке Лабораторная_работа_№10 папку 10.3.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

1. Задайте свойству Name формы значение frmСмайл.

5. Установите для формы значение свойства ScaleMode равное 3 – Pixels.

6. Щелкнув мышью два раза на форме, выберите в верхнем правом углу экрана событие Paint

7. Впишите в появившихся строках следующий программный код (необходимые комментарии приведены после апострофа):

Private Sub Form_Paint()

'рисуем радостный смайлик

FillStyle = vbFSSolid 'стиль закраски - сплошная заливка

FillColor = QBColor(14) 'цвет заливки – желтый

Circle (200, 200), 100, QBColor(14) 'рисуем оболочку смайла

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (170, 160), 10, QBColor(0) 'рисуем левый глазик

Circle (230, 160), 10, QBColor(0) 'рисуем правый глазик

Circle (200, 200), 5, QBColor(0) 'рисуем носик

FillStyle = vbFSSolid

FillColor = QBColor(15)

Circle (170, 160), 2, QBColor(15) 'рисуем левый зрачок

Circle (230, 160), 2, QBColor(15) 'рисуем правый зрачок

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (200, 200), 60, QBColor(0), 3.88, 5.55 'рисуем улыбку

Form1.Caption = "Смайлики" 'задаем название формы

'рисуем грустный смайлик

FillStyle = vbFSSolid

FillColor = QBColor(14)

Circle (500, 200), 100, QBColor(14)

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (470, 160), 10, QBColor(0)

Circle (530, 160), 10, QBColor(0)

Circle (500, 200), 5, QBColor(0)

FillStyle = vbFSSolid

FillColor = QBColor(15)

Circle (470, 160), 2, QBColor(15)

Circle (530, 160), 2, QBColor(15)

FillStyle = vbFSSolid

FillColor = QBColor(0)

Circle (500, 300), 60, QBColor(0), 0.83, 2.3 'рисуем грустную улыбку

Дата добавления: 2014-12-23