Подведем итоги. 8. Сохраните проект (выбрав File – Save frmСмайл.frm и Save Смайл.vbp)

End Sub

Ход работы.

End Sub

8. Сохраните проект (выбрав File – Save frmСмайл.frm и Save Смайл.vbp)

9. Проверьте работоспособность проекта, запустив его на выполнение.

10. Создайте exe-файл программы с помощью команды File → Make Смайлики.exe.

11. Выйдите из среды Visual Basic.

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

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

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

Требуется составить программу, рисующую олимпийские кольца. Указать координаты только первой окружности. Координаты каждой следующей отсчитываются от центра предыдущей.

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

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

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

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

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

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

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

Private Sub Form_Paint()

Dim x, y As Integer

Dim r As Integer 'r - радиус окружности

Dim st As String 'st - надпись

r = 20

x = 60

y = 40

DrawWidth = 2 'ширина линии

FillStyle = vbFSTransparent 'область внутри колец - прозрачная

'рисуем левое кольцо верхнего ряда

Circle (x, y), r, vbBlue

'второе кольцо сдвинуто относительно первого на 30

Circle (x + 30, y), r, vbBlack

'второе кольцо сдвинуто относительно второго на 60

Circle (x + 60, y), r, vbRed

'второй ряд колец

Circle (x + 15, y + 20), r, vbYellow

Circle (x + 45, y + 20), r, RGB(35, 142, 35)

st = "Олимпийские кольца"

FrmОлимпиада.Font.Size = 12

CurrentX = 20

CurrentY = 80

Print st

FrmОлимпиада.Caption = "Олимпиада"

8. Сохраните проект (выбрав File – Save frmОлимпиада.frm и Save Олимпиада.vbp).

9. Проверьте работоспособность проекта, запустив его на выполнение.

10. Создайте exe-файл программы с помощью команды File → Make Олимпиада.exe.

11. Выйдите из среды Visual Basic.

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

В работе были использованы новые

понятия:

твип – единица измерения графической поверхности; по умолчанию равна 15 пикселей

абсолютная адресация – ситуация, когда координаты точек отсчитываются от левого верхнего угла графической поверхности

относительная адресация – ситуация, когда координаты точек отсчитываются от текущего положения указателя графического вывода

указатель графического вывода – графический курсор, который, в отличие от обычного текстового курсора, на экране не отображается

свойства:

CurrentX, CurrentY – задают информацию о текущем положении указателя графического вывода

Scale – свойство графической поверхности (формы или компонента PictureBox), определяющее ее размерность

операторы:

PSet(x,y), Color – оператор рисования точки

Line(x₁,y₁) – (x₂,y₂), Color – оператор рисования линии

Circle(x,y),r, Color – оператор рисования окружности

Circle(x,y),r, Color, start, fin – оператор рисования дуги/сектора

Circle(x,y),r, Color, start, fin, aspect – оператор рисования эллипса

события:

Paint – событие рисования на графической поверхности

Задания для самостоятельного выполнения

1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.

2. Создайте программу, рисующую на форме кораблик.

3. Создайте программу, рисующую на форме пятиконечную звезду.

4. Создайте программу, рисующую на форме автомобиль

5. Создайте программу, рисующую на форме бабочку

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