Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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). Для новой кнопки набрать код, который выполняет построение спирографа.

Спирограф – это зубчатый диск радиуса В, расположенный внутри колеса радиуса А. В диске имеется небольшое отверстие радиуса D.Уравнение кривой имеет вид: X=(A-B) cos (t) + D cos (v), Y=(A-B) sin (t)-D cos (v), где v=(A/B) t, D< B< A Угол t меняется от 0 до 2p n, n равно В, деленному на наибольший общий делитель В и А
A = 125: B = 75: D = 12


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

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал