Примеры основных процедур, которые используются в лабораторных работах

Пример 1. Очистить экран

Private Очистка_Click()

Cls ‘ Clear screen – очистка экрана

End Sub

Пример 2. Установить переменные в программе в 0, а содержимое текстовых окон очистить

Private Sub Сброс_Click()

I=0

XX=0

YY=0

Текст1.Text=” “

Текст2.Text=” “

Текст3.Text=” “

End Sub

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

Private Sub CommandButton1_Click()

CommandButton 1.Caption = «Команда1»

End Sub

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

Private Выбор_Click()

I=0

If I=0 Then

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

Else

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

End If

End Sub

Пример 5. На форме имеется линия с координатами конечных точек (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

Пример 6. Нарисовать концентрические окружности с радиусами 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

Пример 7. Остановить выполнение программы

Private Sub Стоп_Click()

Unload Me ‘ выгрузить форму

End Sub

Принципы выполнения лабораторных работ:

1. Запускаем лабораторную работу. На экран дисплея загружается форма, на которой будут разворачиваться события работы.

2. Как правило, на форме уже имеются командные кнопки (объекты CommandButton). Часть кнопок работает. Это означает, что нажав на них, мы запустим фрагменты, соответствующие теме работы и демонстрирующие её основные идеи. Эти фрагменты позволяют “войти в тему” текущей лабораторной работы.

3. Другая часть кнопок не работает. Это означает, что нажав на них, мы не увидим никакого отклика программы. В этом случае, если мы перейдем в окно кода (двойной щелчок по неработающей кнопке - и “проваливаемся” в окно кода как раз внутрь процедуры, которая соответствует этой кнопке), то увидим пустую заготовку процедуры, которую следует заполнить самостоятельно.

Последовательность выполнения лабораторной работы

1. Запустить Visual Basic 6.0. На экране появится окно “New Project”, которое по умолчанию предлагает открыть файл типа “Standard Exe”.

2. Если программу пишем “с нуля”, подтвердить открытие нового файла типа “Standard Exe” щелчком по кнопке “Open” (“Открыть”) . На экране появится пустая форма.

3. Если программу дописываем, то в окне “ New Project ” выбрать “Cancel” (“Отмена”) и далее в меню основного окна выбираем File , Open Project - появится окно поиска и выбора файла . Открываем требуемый файл (с расширением .vbp )

Примечание

Какое-то из окон во время работы может оказаться невидимым. Чтобы оно появилось, в меню основного окна надо выбрать:

1. Для окна формы View Object

2. Для окна проекта View Project Explorer

3. Для окна кода View Code

4. Для окна инструментов View ToolBox

5. Для окна свойств View Property Window