İskambil Kartı Oyunu

İskambil Kartı Oyunu, Excel içinde bir UserForm penceresi üzerinden oynanan kart tahmin oyunudur. Dosya açıldığında Excel penceresi gizlenir ve yalnızca oyun formu görünür. Oyun, 52 kartlık desteden rastgele seçilen 21 kartın üç sütuna dağıtılması esasına dayanır.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse oyun formu açılmaz.

Dosyanın içeriği​

• Sayfa1: Boş çalışma sayfasıdır; veri ve formül içermez. Oyun tamamen UserForm1 üzerinde çalışır.
• UserForm1: Oyun ekranıdır. 21 kart görüntüsü (Image1 - Image21), üç kart sütununu temsil eden ListBox1, ListBox2 ve ListBox3, kalan kartları tutan ListBox4 ve ListBox5, ayrıca dört düğme (CommandButton1 - CommandButton4) bulunur. Kart resimleri ImageList1 denetiminden alınır.
• Module1: Sayfadaki düğmeye atanan ve formu açan kısa bir makro içerir.

Makrolar​

• Workbook_Open: Dosya açılırken Excel uygulama penceresini gizler ve UserForm1 formunu gösterir.
• Düğme1_Tıkla (Module1): UserForm1 formunu yeniden açar.
• UserForm_Initialize: Açılışta kart görüntülerini ve oyun düğmelerini gizler, yalnızca "BAŞLAT" düğmesini gösterir.
• YeniOyun: Önceki listeleri temizler, 1 - 52 arası sayıları ListBox5 içine yazar ve Rnd ile rastgele 21 tanesini ListBox4 içine çeker. Ardından kart görüntülerini ve düğmeleri görünür yapar.
• ListeyeDagit: 21 kartı sırayla üç sütuna (her sütuna 7 kart) dağıtır ve her kartın resmini ImageList1 içinden ilgili Image denetimine yükler. Dağıtım sayısını oyunsayisi değişkeninde sayar.
• OyunSonu: Kart görüntülerini ve oyun düğmelerini gizler, Image22 içinde sonuç kartını gösterir (Image11 içindeki kart, yani ikinci sütunun dördüncü kartı) ve "BAŞLAT" düğmesini yeniden açar.
• Label3_DblClick: Formda Label3 etiketine çift tıklanınca şifre sorar. Şifre "alper" girilirse Excel penceresi tekrar görünür olur ve oyun formu kapanır. Oyundan çıkıp dosyayı normal Excel olarak kullanmanın yolu budur.
• CommandButton1_Click, CommandButton2_Click, CommandButton3_Click, CommandButton4_Click ve UserForm_QueryClose: Düğme tıklamalarını ve form kapatma davranışını yönetir.

Kodda dosya silme ya da dışarıya bağlantı kuran bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Oyun formu açılınca BAŞLAT düğmesine tıklayın.
3. Dağıtılan 21 kart arasından aklınızdan bir kart seçin.
4. Kartın bulunduğu sütuna ait düğmeye tıklayın; kartlar yeniden dağıtılır ve işlem tekrarlanır.
5. Oyun bitince sonuç kartı gösterilir; yeniden oynamak için BAŞLAT düğmesine tıklayın.
6. Excel penceresine dönmek için formdaki Label3 etiketine çift tıklayın ve şifreyi girin: alper