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-Yapboz Oyunu

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

Kadın
Mesaj Sayısı : 18
Yaş : 32
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-Yapboz Oyunu   Perş. Mart 27, 2008 12:03 pm

Dim Dizi(Cool As Integer, Bos_x, Bos_y
Private Sub Command1_Click(Index As Integer)
y = (Command1(Index).Left - 315) / 500
x = (Command1(Index).Top - 315) / 500

If (Bos_x = x And Abs(Bos_y - y) = 1) Or _
(Bos_y = y And Abs(Bos_x - x) = 1) Then
Command1(Index).Left = 315 + 500 * Bos_y
Command1(Index).Top = 315 + 500 * Bos_x
Bos_x = x
Bos_y = y
End If
End Sub
Private Sub Form_Load()
Randomize
Bos_x = 0
Bos_y = 0
For i = 1 To 8
Dizi(i) = CInt(7 * Rnd) + 1
For j = 1 To i - 1
If Dizi(i) = Dizi(j) Then i = i - 1
Next
Next

For i = 1 To 8
Command1(i).Caption = i
Command1(i).Left = 315 + 500 * (Dizi(i) Mod 3)
Command1(i).Top = 315 + 500 * CInt(Dizi(i) \ 3)
Next

End Sub
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
_OsLeM_
Co-Admin
Co-Admin
avatar

Kadın
Mesaj Sayısı : 425
Yaş : 30
İş: : ßiraz Ondan, ßiraz ßundan.. Falan Filan...
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 26/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-Yapboz Oyunu   Salı Nis. 01, 2008 3:22 pm

saol ayşecim eline sağlık..
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.gopforum.okuyoruz.biz
 
Basic-Yapboz Oyunu
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» mağazacılık oyunu
» 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: