Bu dosya, Excel içinde bir UserForm üzerinde oynanan eş bulma (hafıza) oyunudur. Oyun 36 karttan oluşur; kartlar tıklanarak açılır, aynı resimli iki kart eşleşirse kapanmadan kalır. Hamle hakkı sınırlıdır ve oyunun sonunda kazanma ya da kaybetme durumu bildirilir.
Dosyanın içeriği
- Oyun: Oyun penceresini açan etiketlerin bulunduğu başlangıç sayfasıdır (A1:A3). Sayfada formül yoktur.
- frm_oyun: 36 kart etiketini, hamle ve kalan kart göstergelerini, Yeni Oyun, Ayarlar, İstatistikler ve Kapat düğmelerini içeren oyun formudur.
- frm_ayarlar: Hamle sayısının ve kartların açık kalma süresinin iki döndürme düğmesiyle (SpinButton) belirlendiği ayar formudur.
- Bilgi: Makroların başvurduğu kayıt sayfasıdır. Oynanan, kazanılan ve kaybedilen oyun sayıları ile ayar değerleri bu sayfadaki B1:B5 hücrelerinde tutulur.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlem yoktur.- Workbook_Open: Dosya açıldığında Oyun sayfasını seçer.
- Label1_Click, Label2_Click (Oyun sayfası) ve Düğme1_Tıkla: Oyun formunu açar.
- Oyna: Her kart tıklamasında hamle sayısını bir azaltır. İlk kartın resmini açar, ikinci kartta ayarlanan süre kadar bekler ve iki kart aynıysa ikisini de kapatıp kalan kart sayısını 2 azaltır; farklıysa kartları geri çevirir.
- OyunBitti: Tüm eşler bulunduysa "Tebrikler Kazandınız" mesajını verir. Kalan hamle eşleri bulmaya yetmiyorsa oyunu kaybedilmiş sayar. Sonuç Bilgi sayfasındaki sayaçlara işlenir.
- cmd_yenioyun_Click: Yeni oyun başlatır. Oyun sürerken başlatılırsa mevcut oyun kayıp sayılacağı için onay sorulur.
- cmd_istatistikler_Click: İstatistik sayaçlarını sıfırlar.
- cmd_kapat_Click: Oyun sürüyorsa onay sorar, ardından sonucu kaydederek formu kapatır.
- frm_ayarlar kodu: Tamam düğmesi seçilen hamle ve süre değerlerini Bilgi sayfasına yazar, İptal formu değişiklik yapmadan kapatır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Oyun sayfasındaki etiketlere tıklayarak oyun formunu açın.
- İsterseniz Ayarlar düğmesinden hamle sayısını ve kartların açık kalma süresini değiştirin.
- Bir karta tıklayarak oyunu başlatın; ardından ikinci kartı seçin.
- Tüm eşleri hamle hakkı bitmeden bulun. Yeni bir oyun için Yeni Oyun düğmesini kullanın.