Объект Timer (Таймер)

Объект Shape

Занятие 21. Анимация

End Sub

Next x

Picture1.PSet (x, y), 7

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

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

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

Picture1.Cls

End If

Else

Private Sub Command1_Click()

a = Text1.Text

b = Text2.Text

c = Text3.Text

d = b * b - 4 * a * c

If d < 0 Then

Text4.Text = "Не пересекает ось ОХ"

X1 = (-b - Sqr(d)) / (2 * a)

X2 = (-b + Sqr(d)) / 2 / a

Text4.Text = "x1=" & X1 & " x2=" & X2 ‘Амперсанды выделять пробелами

For x = -100 To 100 Step 0.001

y = a * x ^ 2 + b * x + c

Контрольные примеры: Постройте графики для функций

Анимация означает придание неподвижному предмету движения. Ранее мы рассмотрели движение "спутника вокруг Земли" с использованием цикла. Повторяющиеся действия можно организовать и при помощи специального объекта VB – таймера.

Кроме графических методов Pset, Line, Circle VB имеет в своем арсенале объект Shape (читается шейп, переводится – фигура). На панели ToolBox шейп имеет вид: . На панели Properties в строке Shape можно выбрать следующие фигурки:

Создайте новый проект без кнопки. Поместите на форму все виды шейпов. Можно менять цвет бордюра шейпа, его толщину, а также цвет и стиль заполнения (заливку).

Координаты шейпа определяются левым Leftи верхним углом Тop.

Таймер это объект, который вырабатывает импульсы, через определенные интервалы времени. Таймер находится на панели ToolBox и имеет вид:

Поместите на форму таймер. Установите на панели Properties свойство Interval равным 100. Сделайте двойной щелчок по таймеру. В появившуюся заготовку процедуры впишите строку.