Уэ №12 Анимация.
Задачи УЭ №12. Научится применять «графическое окно» и графические методы для создания простейшей анимации..
Что делать. Создать проект «Анимация».
Как делать.
1. Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Анимация.
2. Создадим графический интерфейс проекта согласно рисунка.
3. Поместим на форме графическое поле Picturel (для рисования графических примитивов);
4.Свойству FillStyle дать значение Solind
5 Private
Sub Command1_Click() Dim
X, M As Integer, N As Long
'Масштаб Picture1.Scale
(0, 10)-(100, -10)
'Анимация For
M = 1 To 4
For X = 0 To 100
'Рисование синего круга Picture1.FillColor
= vbBlue Picture1.Circle
(X, 0), 3, vbBlue
'Задержка стирания
For N = 1 To 1000000 Next
N
'Рисование
белого круга Picture1.FillColor
= vbWhite Picture1.Circle
(X, 0), 3, vbWhite Next
X
For X = 100 To 0 Step -1 Picture1.FillColor
= vbBlue Picture1.Circle
(X, 0), 3, vbBlue
For N = 1 To 1000000 Next
N Picture1.FillColor
= vbWhite Picture1.Circle
(X, 0), 3, vbWhite Next
X
Next M
End SubДополнительно
6. Создать событийную процедуру.
Private Sub Command1_Click()
Dim X As Integer, N As Long
'Масштаб
Picture1.Scale (0, 10)-(100, -10)
'Анимация
For X = 0 To 100
'Рисование синего круга
Picture1.FillColor = vbBlue
Picture1.Circle (X, 0), 3, vbBlue
'Задержка стирания
For N = 1 To 1000000
Next N
'Рисование белого круга
Picture1.FillColor = vbWhite
Picture1.Circle (X, 0), 3, vbWhite
Next X
E
Дополнительная
2 Private
Sub Command1_Click() Dim
X1, Y, X As Single, N As Long Picture1.Scale
(0, 10)-(100, -10) Picture1.FillColor
= vbYellow Picture1.Circle
(50, 0), 5, vbBlue For
X = 0 To 10 Step 0.01 Picture1.FillColor
= vbBlue X1
= 50 - Cos(X) * 13 Y
= Sin(X) * 5 Picture1.Circle
(X1, Y), 1, vbBlue For
N = 1 To 1000000 Next
N Picture1.FillColor
= vbWhite Picture1.Circle
(X1, Y), 1, vbWhite
Next X
End Sub
Компьютерная модель «Движение Земли по орбите вокруг Солнца».
1. Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Анимация, а свойсву Name дать значение Anim
2. Создадим графический интерфейс проекта согласно рисунка.
3.
Поместим на форме графическое поле
Picturel
(для
рисования графических
примитивов).
Свойству
FillStyle
дать значение Solind
, а свойству BackColor
(цвет
фона) – значение Blue
4.
Разместим на форме кнопку Command1.
В окне
Свойств
объекта
установить для свойства Caption
– значение Пуск,
5.
Создать
событийную
процедуру.
Private Sub Command1_Click()
Dim A As Single, I As Long
'Масштаб графического окна Picture
Picture1.Scale (-10, 10)-(10, -10)
'Изображения Солнца
Picture1.FillColor = vbYellow 'Установка желтого цвета для Солнца
Picture1.Circle (0, 0), 2, vbBlue 'Изображение Солнца
'Анимация
For A = 1 To 100 Step 0.01
'Рисование Земли
Picture1.FillColor = vbCyan
Picture1.Circle (8 * Cos(A), 8 * Sin(A)), 1, vbCyan 'Изображение Земли
'Задержка стирания
For I = 1 To HScroll1.Value
k = 3.14 * 100 ^ 2
Next I
'Стирание Земли
Picture1.FillColor = vbBlue
Picture1.Circle (8 * Cos(A), 8 * Sin(A)), 1, vbBlue
Next A
End Sub
Колебания
Private Sub Command1_Click()
Dim X, Y, t As Single, I As Long, L As Integer
'Масштаб графического окна Picture
Picture1.Scale (-20, 40)-(20, -40)
'Picture1.Line (-20, 0)-(20, 0)
'Picture1.Line (0, 40)-(0, -40)
A = 7: V = 1: p = 3.14: L = 11
For t = 0 To 10 Step 0.01
'Рисование Земли
X = 0 + A * Sin((2 * p * V * t) + p / 4)
Y = 0 - Sqr(L ^ 2 - X ^ 2)
Picture1.FillColor = vbCyan
Picture1.Circle (X, Y), 0.5, vbCyan 'Изображение Земли
Picture1.Line (0, 40)-(X, Y), vbCyan
X1 = t: Y1 = A * Cos((2 * p * V * t) + p / 4)
Picture1.PSet (-10 + X1, -30 + Y1), vbCyan
Picture1.Line (0, 40)-(X, Y), vbCyan
'Задержка стирания
For I = 1 To HScroll1.Value
k = 3.14 * 100 ^ 2
Next I
'Стирание Земли
Picture1.FillColor = vbBlue
Picture1.Circle (X, Y), 0.5, vbBlue
Picture1.Line (0, 40)-(X, Y), vbBlue
Next t
End Sub