Skip to main content

AccessTr.neT


Access Oyun Yapımı

Access Oyun Yapımı

Çözüldü #1
Merhaba bir zamanlar televizyonlarda olan bir oyunu Access ile yapıp öğrencilere oynatmayı planlıyorum. Bu konuda desteğe ihtiyacım var. Oyun şu yürü kazan, önünüzde kareler var karelerin üstüne basarak karşıya geçmeye çalışıyoruz. mayın tarlası gibi olacak fakat her sıranın zorluk derecesi farklı olacak. Ekteki dosyada 1-4 arası sırada 1 mayın, 5-8 arası sırada 1 mayın, 9-12 arası sırada 2 mayın, 13-16 arası sırada 2 mayın, 17-20 arası sırada 2 mayın, 21-24 arası sırada 3 mayın olacak şekilde her oyunda yeri değişecek ve mayına basarsa mayın oyunundaki gibi tüm mayınlar temsili olarak görünecek.
.zip Mayın Oyunu.zip (Dosya Boyutu: 18,04 KB | İndirme Sayısı: 7)
Cevapla
#2
Merhaba,

Örnek olması için sadece 2 sıraya işlem yapıldı. Hangi butonlarda mayın olduğu üstteki metin kutusunda yazar.

Tek fonksiyona düşürülebilir.
.rar Mayın Oyunu_sld.rar (Dosya Boyutu: 19,69 KB | İndirme Sayısı: 5)
Cevapla
#3
Modül eklenmiş hali ektedir. 

ilk 3 sıraya uygulandı, ilk 2 sıraya da etiket eklendi.

Konu ile ilgili yapabileceklerim bundan ibarettir.
.rar Mayın Oyunu_sld.rar (Dosya Boyutu: 25,08 KB | İndirme Sayısı: 10)
Cevapla
#4
(16/02/2018, 17:46)ozanakkaya yazdı: Modül eklenmiş hali ektedir. 

ilk 3 sıraya uygulandı, ilk 2 sıraya da etiket eklendi.

Konu ile ilgili yapabileceklerim bundan ibarettir.

hocam elinize sağlık gayet güzel olmuş. Yalnız ben 2. yaptığınızı düzenleyebilecek kadar anlamadığım için 1. yaptığınız üzerinden gitmeye çalışıyorum. 
Kodları tamamladım şuan oyun çalışıyor 1 kaç sorunla, düzeltmemde yardımcı olursanız sevinirim.

1) 2 mayınlı alanlarda bazen aynı sayı denk geliyor. Örneğin Img-cray4-7-12-12-13-15-20-17-23-21) (3-5-11-9-13-16-18-17-22-22) 
2) Mayına basmadığ taktirde buton rengi yeşil olsun. Basarsa da bütün mayınlı butonlar kırmızı olsun.
.rar Mayın Oyunu_sld.rar (Dosya Boyutu: 35,81 KB | İndirme Sayısı: 5)
Son Düzenleme: 17/02/2018, 12:36, Düzenleyen: ALTANs.
Cevapla
#5
Sayın AltanS. Önceki mesajımda da belirttiğim üzere benim sorunuz için yapabileceğim malesef bu kadar.
Sorunuz ile alakalı olarak fikir vermesi için ilk 3 basamak için gerekli kodları örnekte paylaştım.
Kalanını sizin yapmanız gerekiyor.
2. Örnekte aynı  sayı gelmemesi için düzenleme yaılmıştı.
Farklı istekleriniz var ise uygun başlıklı konu açarak sorabilirsiniz.
Cevapla
#6
Önceki sorunuz ile ilgili olarak,


If B5 = B6 Then
    B6 = Int((16 - 13 + 1) * Rnd + 13)
End If


kodunu 


Do While B5 = B6
B6 = Int((16 - 13 + 1) * Rnd + 13)
Loop


kodu ile değiştirirseniz, eşitlik bozuluncaya kadar döngü çalışır ve farklı numara atar.

Butonun rengini değiştirebilirsiniz. ancak fare imleci butonun üzerinde durduğu sürece renk değişimini göremezsiniz. Bunun yerine butonların arkasına etiket ekleyin ve etiketin rengini değiştirin.
.rar Mayın Oyunu_sld_SON.rar (Dosya Boyutu: 28,21 KB | İndirme Sayısı: 7)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da