Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Лабораториялық жұмыс №1 Анимация. Жаңбыр. Нүкте траекториясы

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

  • Информатика

Поделитесь материалом с коллегами:

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


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%:

Автор
Дата добавления 13.11.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров138
Номер материала ДВ-152289
Получить свидетельство о публикации
Похожие материалы

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