Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 13
|
|
Тема: Оператор цикла. Графические методы
Цель: Закрепить навыки использования оператора цикла и графических методов
Порядок выполнения
13. Установите на форме следующие объекты и измените им свойства: 1 часть
| Объект | Свойство | Значение |
| Командная кнопка | Name | Cmd |
| Caption | Нажми | |
| Графическое окно | Name | PicShah |
| Height | ||
| Width |
14. В окне кода процедуры обработки события Click для объекта Cmd набрать:
PicShah.Scale (0, 0)-(8, 8)
For i = 1 To 8
For j = 1 To 8
n = n + 1
If (i + j) Mod 2 = 0 Then c = vbWhite Else c = vbRed
PicShah.Line (i - 1, j - 1)-(i, j), c, BF
Next j
Next i
15. Проверьте работу программы. 2 часть
16. Откройте новый проект и установите следующие объекты и измените им свойства
| Объект | Свойство | Значение |
| Рамки | Caption | График функции y=sin(x) |
| Caption | Цвет графика | |
| Caption | Элемент графика | |
| Caption | График функции y=x^2 | |
| Командные кнопки | Name | Cmd1 |
| Caption | Пуск | |
| Name | Cmd2 | |
| Caption | Убрать графики | |
| Графические окна | Name | PicSin |
| Height | ||
| Width | ||
| Name | PicSqr | |
| Height | ||
| Width | ||
| Переключатели | Name | OptBl |
| Caption | Черный | |
| Name | OptRed | |
| Caption | Красный | |
| Name | OptBlue | |
| Caption | Синий | |
| Name | OptPset | |
| Caption | Точка | |
| Name | OptCirc | |
| Caption | Окружность | |
| Name | OptOval | |
| Caption | Овал |
17.
 |
Приведите свою форму в соответствие с образцом
18. В разделе общих объявлений объявите переменные z (цвет),. R(радиус), k (степень искажения)
19. В окне кода процедуры обработки события Click для объекта Cmd1 набрать:
PicSin.Scale (0, 10)-(20, -10)
For x = 0 To 20 Step 0.05
y = Sin(x) * 10
PicSin.Circle (x, y), r, z,,, k
Next x
PicSqr.Scale (-10, 100)-(10, -10)
For x = -10 To 10 Step 0.001
y = x ^ 2
PicSqr.Circle (x, y), r, z,,, k
Next x
20. Самостоятельно набрать код для кнопки Cmd2 и переключателей .. Проверьте работу программы
21. Добавьте на форму командную кнопку и графическое окно (размер 1000 на 1000). Для новой кнопки набрать код, который выполняет построение спирографа.
|
|
|