End Sub. 8. Сохраните проект (выбрав File – Save frmКвадраты.frm и Save Квадраты.vbp) в папке 8.1

Next

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

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

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

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

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

Задание 2. Вывести на экран концентрические окружности.

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

Разработать приложение, позволяющее по щелчку на кнопке показать на экране расходящиеся окружности (основу мишени). Примерный внешний вид формы приложения показан на Рис.8.4, результат работы программы – на Рис.8.5.

Ход работы.

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

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

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

4. Расположите на форме командную кнопку CommandButton1 и компонент PictureBox.

5. Присвойте свойству Caption кнопки значение «Нарисовать окружности».

6. Присвойте свойству Caption формы значение «Окружности», а свойству Name значение «FrmОкружности».

7. Напишите обработчик события по кнопке «Нарисовать окружности», не забывая объявить переменные в начале программы:

Dim r As Integer

Private Sub Command1_Click()

Picture1.Scale (0, 100)-(100, 0)

For r = 5 To 50 Step 10

Picture1.Circle (50, 50), r

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