Инфоурок / Информатика / Другие методич. материалы / Лабораториялық жұмыс №1 Анимация. Жаңбыр. Нүкте траекториясы

Лабораториялық жұмыс №1 Анимация. Жаңбыр. Нүкте траекториясы

Курсы профессиональной переподготовки
124 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 22 ноября
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>

библиотека
материалов

Анимация. Жаңбыр


Dim B As Boolean

Private Sub Form_Click()

Dhello_html_58261f3c.pngim c As Long

Dim i As Long

Randomize

B = Not B

c = 0

Do While B And c < 5000

x = Rnd * 5640 'ScaleWidth

y = Rnd * 4690 'ScaleHeigth

Line (x, y)-(x - 150, y + 200)

For i = 1 To 30000: Next

DoEvents

c = c + 1

Loop

End Sub




Суреттің үлкеюі

Image компонентін формаға қойып, Stretch қасиетіне true сөзін қойыңыз. Picture қасиеті арқылы сурет таңдаңыз.

Private Sub Image1_Click()

Image1.Height = Image1.Height + 500

Image1.Width = Image1.Width + 500

End Sub

hello_html_1d9f41f8.png

hello_html_m721def3d.png



Күннің батуы


Private Sub Command1_Click()

Picture1.Picture = LoadPicture

Picture1.FillStyle = 0

Picture1.FillColor = vbYellow

For x = 0 To Picture1.Width + 500

Picture1.Circle (x, 500), 200, vbYellow

Picture1.Circle (x, 500), 200, Picture1.Point(x, 290)

For i = 1 To 20000: Next

Next

End Sub






Машинаның жүруі

Dim x, y, z As Integer

Private Sub Form_Load()

x = Image1.Left

y = Image1.Top

zhello_html_m5a7d647d.png = 2500

End Sub


Private Sub Command1_click()

Image1.Move x + z, y

End Sub


Private Sub Command2_click()

Image1.Move x, y

End Sub




Нүкте траекториясы


Option Explicit

Dim X As Integer, y As Integer, dx As Integer

Dim dy As Integer, n As Integer, i As Integer

Private Sub Command1_Click()

X = 2183: y = 1777

Picture1.DrawWidth = 8

n = 1

dhello_html_30958997.pngx = 1: dy = 1

While n < 25000

If X = 50 Or X = 5900 Then dx = -dx

If y = 50 Or y = 3900 Then dy = -dy

Picture1.PSet (X, y), vbRed

For i = 1 To 5000: Next

Picture1.PSet (X, y), vbWhite

X = X + dx: y = y + dy

n = n + 1

Wend

End Sub



Самые низкие цены на курсы переподготовки

Специально для учителей, воспитателей и других работников системы образования действуют 50% скидки при обучении на курсах профессиональной переподготовки.

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 22 ноября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДВ-152289
Курсы профессиональной переподготовки
124 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 22 ноября
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>