![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
Постановка задачи.
Разработать приложение, позволяющее по щелчку на кнопке показать на экране расходящиеся окружности (основу мишени). Примерный внешний вид формы приложения показан на Рис.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
Next
Дата публикования: 2014-12-28; Прочитано: 204 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!