VİSUAL BASİC { YILAN OYUNU }

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VİSUAL BASİC { YILAN OYUNU }

Bu konudaki kullanıcılar: 1 misafir

0
Cevap 1532
Tıklama 0
Öne Çıkarma

1. sayfa

VİSUAL BASİC { YILAN OYUNU }

Cevap Yaz

bobo25

18 yıl

Onbaşı

Konu Sahibi

BU PROGRAMDA YILANIN NORMAL YILAN OYUNU GİBİ İLERLEYİP AŞAĞI,YUKARI HAREKET ETMESİ VE YEMEK YEDİKÇE BÜYÜMESİNİ YAPMAM GEREKİYOR..
YARIDMCI OLURMUSUNUZ KÜÇÜK 1-2 EKLENTİ YAPARSANIZ MİNNETTAR KALIRIM
TEŞEKKÜRLER..
---------------------------------

dizayn kısmında bir nesneniz ve dört adet butonunuz olmalı ..

Dim yon As String
Dim surat As Integer
Private Sub btn_asagi_Click()
yon = "asagi"
End Sub

Private Sub btn_sag_Click()
yon = "sag"
End Sub

Private Sub btn_sol_Click()
yon = "sol"
End Sub

Private Sub btn_yukari_Click()
yon = "yukari"
End Sub

Private Sub Form_Load()
yon = "sag"
surat = 70
End Sub

Private Sub Timer1_Timer()
Select Case yon
Case "sol":
If yilan.Left <= (-yilan.Width) Then
yilan.Left = Form1.ScaleWidth
Else
yilan.Left = yilan.Left - surat
End If
Case "sag":
If yilan.Left >= Form1.ScaleWidth Then
yilan.Left = (-yilan.Width)
Else
yilan.Left = yilan.Left + surat
End If
Case "yukari":
If yilan.Top <= (-yilan.Width) Then
yilan.Top = Form1.ScaleHeight
Else
yilan.Top = yilan.Top - surat
End If
Case "asagi":
If yilan.Top >= Form1.ScaleHeight Then
yilan.Top = (-yilan.Width)
Else
yilan.Top = yilan.Top + surat
End If
End Select
End Sub

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi bobo25 -- 28 Şubat 2007; 18:30:20 >

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VİSUAL BASİC { YILAN OYUNU }