AnasayfaAnasayfa  PortalliPortalli  TakvimTakvim  GaleriGaleri  SSSSSS  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  AramaArama  Kayıt OlKayıt Ol  Giriş yap  

Paylaş | 
 

 Basic-Yılan Oyunu

Aşağa gitmek 
YazarMesaj
gulum
Yeni Üye
avatar

Kadın
Mesaj Sayısı : 18
Yaş : 31
Location : tokat
İş: : öğrenci
Kayıt tarihi : 06/12/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Basic-Yılan Oyunu   Perş. Mart 27, 2008 12:14 pm

Forma 4 tane command butonu,4 tane option nesnesi,biri kare , di?erleri yuvarlak 5 tane shape nesnesi, bir tane de timer yerle?tiriniz.

Private Sub Timer1_Timer()

If Shape1.Left >= 15120 Or Shape1.Left <= 0 Or Shape1.Top <= 0 Or Shape1.Top > 8160 Then

Label3.Visible = True

Label4.Visible = True

yen.Visible = True


End If


Text2.Text = Shape1.Left

Text3.Text = Shape1.Top

If a1.Value = True Then

Shape1.Left = Shape1.Left - 120

End If

If a2.Value = True Then

Shape1.Left = Shape1.Left + 120

End If

If a3.Value = True Then

Shape1.Top = Shape1.Top + 120

End If

If a4.Value = True Then

Shape1.Top = Shape1.Top - 120

End If


If Shape2.Visible = True And Shape1.Top = 1920 And Shape1.Left = 840 Then

Text1.Text = Val(Text1.Text) + 10

Shape2.Visible = False

Shape3.Visible = True


End If


If Shape3.Visible = True And Shape1.Top = 1320 And Shape1.Left = 5760 Then

Text1.Text = Val(Text1.Text) + 10

Shape3.Visible = False

Shape4.Visible = True


End If


If Shape4.Visible = True And Shape1.Top = 4200 And Shape1.Left = 1560 Then

Text1.Text = Val(Text1.Text) + 10

Shape5.Visible = True

Shape4.Visible = False


End If


If Shape5.Visible = True And Shape1.Top = 6360 And Shape1.Left = 8760 Then

Text1.Text = Val(Text1.Text) + 10

Shape2.Visible = True

Shape5.Visible = False

Shape3.Visible = False

Shape4.Visible = False


End If

End Sub

Private Sub Timer2_Timer()

If Text4.Text = "1" Then

Shape1.Visible = False

Else

Shape1.Visible = True

End If


Text4.Text = Val(Text4.Text) + 1

If Text4.Text = "3" Then

Text4.Text = "0"


End If

End Sub
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
gulum
Yeni Üye
avatar

Kadın
Mesaj Sayısı : 18
Yaş : 31
Location : tokat
İş: : öğrenci
Kayıt tarihi : 06/12/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Geri: Basic-Yılan Oyunu   Perş. Mart 27, 2008 12:20 pm

http://www.programlama.com/sys/c2html/view.php3?DocID=2303
yılan oyunu yine ve açıklama satırlarıda var
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
gulum
Yeni Üye
avatar

Kadın
Mesaj Sayısı : 18
Yaş : 31
Location : tokat
İş: : öğrenci
Kayıt tarihi : 06/12/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Geri: Basic-Yılan Oyunu   Perş. Mart 27, 2008 12:21 pm

Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Rukiye
Yönetici
Yönetici
avatar

Kadın
Mesaj Sayısı : 787
Yaş : 29
İş: : Bilgisayar Teknikeri
Lakabı : Filozof
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 30/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)
MesajKonu: Geri: Basic-Yılan Oyunu   Ptsi Mart 31, 2008 10:18 am

bu ne kadar iğrenç bi oyun ya oynamıyorum kardeşim oh oldu bize s
anki bunlara çalıştıkta noldu gitti angoloz trigonometrik hesaplama sordu çıldırıcam

_________________
Aşk yarım
Ben yarım
Her şey yarım
Dışarıda sensiz bir pazartesi
Yeniden başlamak lazım
Hatırlamamak en iyisi!!!!
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
Basic-Yılan Oyunu
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» mağazacılık oyunu
» Deer Drive Avcılık Oyunu Full Tek Link No Rapid
» Karanlık Hapıs

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Gazi Osman Pasa :: Bilgisayar/ Teknoloji Dünyası :: Yazılım :: Visual Basic-
Buraya geçin: