Задание 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. Напишите обработчик события по кнопке «Нарисовать окружности», не забывая объявить переменные в начале программы:

DimrAs Integer

Private Sub Command1_Click()

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

Forr = 5 To 50 Step 10

Picture1.Circle (50, 50), r

Next








Дата добавления: 2015-06-12; просмотров: 839;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.