Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Resimli Hafıza Oyunu
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

3 Boyutlu Buton Yapmak Butona Resim Eklemek için

Yazar: almora

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9318
Yayın Tar:02.09.2007
Yazar : sun86
Hit :4243

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Öncelikle command1(0),command1(1),...command1(6) ya kadar giden buton dizisi

ve picture1(0),picture1(1),....picture1(6) ya kadar giden bir picturebox dizisi ekleyiniz.Aynı

indexli butonlara resimleri üstüste yerleştiriniz ve butonlarda sağtuş>Bring to

front'a tıklayınız.Son olarak da bir label1 nesnemiz olmalı.Yüklenecek resimler için, C:/resim

klasörünün altına 1.ico ,2.ico ve 3.ico simgelerini oluşturmalısınız.(herhangi 3 ico resmi)

Kodlar:

Dim a As Byte 'tıklama sayısını belirlemek için değişken
Dim r(0 To 5) As Byte 'içerikleri,seçilecek resim dosyalarının adlarıyla aynı olacak değişkenler
Dim eski As Byte 'tıklanan önceki resmi tespit edebilmek için değişken
Private Sub Command1_Click(Index As Integer) 'butona tıklandığında
a = a + 1
Picture1(Index).ZOrder 'butonun arkasındaki resim öne gelsin
If a Mod 2 = 0 Then 'eğer tıklama sayımız 2 ve katlarındaysa;
If r(Index) <> r(eski) Then 'şimdi tıklanan resmin adıyla öncekini karşılaştır,aynı değillerse;

For i = 1 To 11 '1den 11 e kadar
For j = 0 To 150000 '0 dan 150000 e kadar dön
Label1.Caption = i '1.döngüdekilerin içeriklerini labelın captionuna yaz(1 den 11e say)
Next j
Form1.Refresh
Next i
Label1.Caption = "" 'işlem bitince labelın captionını boşalt
Command1(Index).ZOrder 'butonu tekrar önplana resmin üstüne getir
Command1(eski).ZOrder 'önceki tıklanan butonu tekrar önplana resmin üstüne getir
End If
End If
eski = Index 'tıklanan butonun numarasını veren index sayısını eski değişkenine aktar
End Sub

Private Sub Form_Load()
For y = 0 To 5 'dizi olan pictureboxlara sırayla resim atanması için döngü
Randomize 'aynı sayılar üretilmesin
r(y) = Int(Rnd * 3) + 1 'sıradaki dizi elemanı için 0ile 3 aralığında sayı üretilsin
For e = 0 To y - 1 'her dönüşte aynı sayıların üretilmemesi için döngü
If r(e) = r(y) Then ayni = ayni + 1 'sırayla,şuanki sayıyla öncekiler karşılaştırılır ve eşit olduklarında ayni değişkeni 1 artar
Next e
If ayni < 2 Then 'eğer aynı sayıdan 3den az üretilmişse istenen durumdur;
Picture1(y).Picture = LoadPicture("C:\resim" & "\" & r(y) & ".ico") 'üretilen rastgele sayı,gösterilen dizindeki resim dosyasının adı olarak(uzantısı .ico) sıradaki resim yüklenir
ayni = 0 'sonraki karşılaştırmalar için ayni değişkeni 0'lanır
Else
y = y - 1 'eğer aynı sayıdan 3 adet varsa,son dönüş işe yaramadığından tekrarlatmak için döngüdeğişkeni 1 azaltılır.
ayni = 0 'yine,sonraki karşılaştırmalar için ayni değişkeni 0'lanır
End If
Next y
End Sub

Deha ürünü değil ama bir amatör için fena değil bence :)




Yorumlar, eklemeler ve düşünceler
        cok guzel bir program

   chebaba, 09.09.2007 18:17
   çok zevkli bir oyun programı

   countes, 10.05.2008 21:23
   cok güzel ir program

   scirocco, 16.07.2008 09:55
   güzel bi progrm

   bari0101, 26.11.2008 20:00
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin