3 Boyutlu Üçgen Prizma- Yapımı(Çok Kolay)
'1 adet Label
'1 Adet Timer
'2 adet Image
'ekliyoruz...
'Açılışta Nesneleri Yerleştirelim..
Private Sub Form_Load()
Image2.Width = 2000
Image2.Height = 2000
Image2.Left = 1320
Image2.Top = 500
Image1.Top = 500
Image1.Left = 1320
Image1.Height = 2000
Image1.Width = 1
Form1.Width = 5000
Form1.Height = 3000
End Sub
'label1 200 ise image1 ve image2 i başlangıçtaki haline getir(Bir daha döndürmek içIn)
Private Sub Timer1_Timer()
If Label1 = "200" Then
Image2.Left = 1320
Image2.Width = 2000
Image1.Width = 1
Label1 = "0"
Image1.Width = Image1.Width + 3
Image2.Width = Image2.Width - 3
Image2.Left = Image2.Left + 3
'değilse image1 i genişLet,image2 i daralt ve image 2 i sağa kaydır.Label1 e 1 ekle
Else
Image1.Width = Image1.Width + 10
Image2.Width = Image2.Width - 10
Image2.Left = Image2.Left + 10
Label1 = Label1 + 1
End If
End Sub
|
