треуголники движение

Посмотреть архив целиком
Imports System.Drawing
Public Class Form1
Dim g As Graphics
Dim n As Integer
Dim t1() As Point = {New Point(10, 20), New Point(50, 20), New Point(30, 50)}
Dim t2() As Point = {New Point(10, 230), New Point(30, 200), New Point(50, 230)}
Dim кисть1 As New SolidBrush(Color.Black)
Private Sub тело1()
g.FillPolygon(Brushes.Black, t1)
End Sub
Private Sub тело2()
g.FillPolygon(кисть1, t2)
End Sub
Private Sub Фон()
g.FillRectangle(Brushes.White, 0, 0, 500, 500)
End Sub
Private Sub движение()
Dim i As Integer
For i = 0 To n
t1(i).X = t1(i).X + 3
t1(i).Y = t1(i).Y + 2
t2(i).x = t2(i).x + 3
t2(i).y = t2(i).y - 2
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
g = Me.CreateGraphics
n = UBound(t1)
n = UBound(t2)
Фон()
тело1()
тело2()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Фон()
движение()
тело1()
тело2()

If t1(2).X > 300 Then
Timer1.Enabled = False
End If
End Sub
End Class





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.