Лабораторная работа № 1:

"Составление простейшей программы на языке VisualBasicс рисованием основных геометрических фигур"

Основные понятия, используемые в лабораторной работе: Форма. Система координат формы. Объект. Свойство. Метод. Этапы составления программы. Процедуры. Проект. Рисование точки, линии, прямоугольника, круга, эллипса вручную и программно.

Введение

Цель первой лабораторной работы - "освоить" пространство Visual Basic, поэтому просто реализуем всё, что перечислено в разделе " Основные понятия, используемые в лабораторной работе ".

Основные операторы

' Нарисовать точку с координатами X=10,Y=20.

PSet (10, 20), RGB(0, 0, 0)

'Нарисовать линию между точками X1=20,Y1=30 и X2=100,Y2=200

Line (20, 30)-(100, 200), RGB(0, 0, 0)

'Нарисовать прямоугольник, у которого координаты противоположных углов X1=150,Y1=30 X2=200,Y2=300

Line (150, 30)-(200, 300), RGB(0, 0, 0), B

'Нарисовать окружность с радиусом R=50 и центром в точке X=340, Y=80

Circle (340, 80), 50, RGB(0, 0, 0), , , 1

'Нарисовать сектор окружности

Circle (340, 80), 50, RGB(0, 0, 0), -0.7, -2.1

'Нарисовать окружность с "выкушенным" сектором

Circle (340, 80), 50, RGB(0, 0, 0), -2.1, -0.7

'Нарисовать эллипс, вытянутый по оси X (аспект=0.4)

Circle (500, 80), 50, RGB(0, 0, 0), -2.1, -0.7, 0.4

'Нарисовать эллипс, вытянутый по оси Y (аспект=4)

Circle (600, 80), 50, RGB(0, 0, 0), , , 4

Пример 1. Щелчком мыши по командной кнопке CommandButton1 изменить заголовок метки “Label1” на заголовок «Привет!!!» (то есть изменить свойство Caption метки Label1)

Private Sub CommandButton1_Click()

Label1.Caption = «Привет!!!»

End Sub

Пример 2. Пример процедуры с условным оператором

Private Выбор_Click()

I=0

If I=0 Then

Текст1.Text=” 0 “

Else

Текст1.Text=” I не равно нулю “

End If

End Sub

Пример 3. На форме имеется линия с координатами конечных точек (5,100) и (500,100). Щелчком мыши по командной кнопке CommandButton1 нарисовать на форме 11 линий, параллельных оси X и отстоящих друг от друга на расстоянии 10 пикселов (Step(Шаг)=10)

Рисуем линию между точками с координатами X1=5,Y1=100 и X2=500,Y2=100,

рисуем следующую линию между точками X1=5,Y1=110=(100+10) и X2=500,Y2=110 (100+10), и т.д. Процедура для рисования этих линий будет выглядеть следующим образом (используется оператор цикла For …. Next ):

Private Sub CommandButton1_Click()

For I = 0 To 100 Step 10 ‘ верхняя граница цикла

Line (5, 100 + I) - (500, 100 + I), RGB(0, 0, 0)

Next I 'конец (нижняя граница цикла)

End Sub

Пример 4. Нарисовать концентрические окружности с радиусами 20, 30, … , 100 и центром в точке X=100, Y=200 (использовать оператор цикла For …. Next ):

Private Sub Окружности_Click()

For I=0 To 100 Step 10

Circle (100,200), 20 + I , RGB(255,0,0), , ,1

Next I

End Sub

Лабораторные основы

Цель работы: усвоить основные этапы написания программы на языке Visual Basic; научиться использовать оператор цикла и условный оператор.

Порядок выполнения работы

1. "Набросать" на форму объекты: линия, фигура, командная кнопка. Изменить их свойства в таблице свойств:

для формы - свойство "Caption" и цвет фона;

для линии - координаты концов, тип линии, толщину, цвет рисования;

для фигуры - тип фигуры, толщину контура, цвет контура, наличие заливки;

для командной кнопки — имя, надпись ("Caption"), шрифт надписи.

Изменения этих свойств - видимы .

Это рисование вручную .

2. Сохранить файл формы Forml.frm как JIaб1.frm, файл проекта Projectl.vbp как JIaб1.vbp.

3. Перейти в окно кода и в процедуру CommandButton_Click() вписать по одной строчке для формы, линии, фигуры, командной кнопки, которые изменяли бы какое-либо из свойств из п.1 Объект. Свойство. Метод. Это рисование программно .

4. Сконструировать цикл For.... Next для линий или окружностей.