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

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

Dim B As Boolean

Private Sub Form_Click()

Dim 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

Күннің батуы

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

z = 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

dx = 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