Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Beyin Fırtınası (http://www.excel.web.tr/forumdisplay.php?f=142)
-   -   Labirentte Yol Bulma (http://www.excel.web.tr/showthread.php?t=73020)

sergions 13-08-2009 18:00

Labirentte Yol Bulma
 
1 Eklenti(ler)
Herkese Merhaba,

Basit, labirent oyunu tarzında bir oyun yapmak istiyorum (aslında daha çok "Tower Defence Games" olarak sınıflandırılmış olan uygulamalara benzeyecek. Bilmeyenler Google'dan "Desktop Tower Defence" şeklinde arama yapıp ilgili türün en başarılı örneklerinden birine ulaşabilirler).

Bunun için ilk adım olarak ekteki dosyada göreceğiniz gibi yeşil olarak boyanmış "A11:A12" noktalarından başlayarak sadece aşağı, yukarı, sağa, sola birer hücre ilerleyerek kırmızı ile boyanmış olan "V11:V12" noktalarına ulaşan bir harita oluşturuyorum, ancak haritada oluşturacağım yol mutlaka yeşil noktadan kırmızı noktaya ulaşabilmeli, yani yolu bloke etmemem gerekiyor.

İşte bu kontrolü yapmak için ufak bir kod yazdım ancak kodun çalışması benim bilgisayarımda 15-20 saniye kadar sürüyor. Halbuki benim en fazla 1-2 saniye içinde bahsettiğim kontrolü yapacak bir kod yazmam gerekir (Kodun içindeki "Application.ScreenUpdating" kısımlarını sadece kodun ne durumda olduğunu görmek için kullandım, normalde o satırlar aktif olacak tabii ki).

Önerilerinizi duymak için sabırsızlanıyorum :)

Not1: Paint ve diğer tüm resim düzenleme uygulamalarında bulunan "Fill Color" (Renkle Doldur) türü bir yaklaşım en hızlı kontrol ancak bu durumu Excel'e uyarlayamıyorum ne yazık ki :frown:

Not2: Yavaş bile olsa henüz çözüm getiremediğim diğer konu; sonuca ulaşan birden fazla yol olabilir, bunlardan hangisinin en kısa yol olduğunu nasıl tesbit edebileceğim hakkında henüz bir fikrim yok :frown:

Not3: konu en azından benim için yeterince Zihni Sinir bir durum olduğu için bu bölüme açmayı uygun buldum. Olmazsa VBA Soruları başlığı altına taşınabilir.

Kolay Gelsin.

asri 19-12-2010 01:27

1 Eklenti(ler)
Mesajı hortlatmış gibi oldum ama neyse :)

Forum da dolaşırken ilgimi çekti. Yolu bulan bir makro yazdım.
Ancak, henüz en kısa yolu bulamıyor. :)
İkinci bir durum yolun sadece bir kareden oluşması gerekiyor.

kulomer46 05-02-2011 11:35

Labirentte Yol Bulma
 
1 Eklenti(ler)
Değerli arkadaşlar.
Bende katkı olsun diye Labirentte yol bulma ile ilgili farklı bir çözüm ekledim.
Yazdığım Program ek tedir.
Değerli yorum ve tavsiyelerinizi bekliyorum.
Tüm Arkadaşlara iyi çalışmalar..

lider22 29-11-2011 09:40

Alıntı:

kulomer46 tarafından gönderildi (Mesaj 519704)
Değerli arkadaşlar.
Bende katkı olsun diye Labirentte yol bulma ile ilgili farklı bir çözüm ekledim.
Yazdığım Program ek tedir.
Değerli yorum ve tavsiyelerinizi bekliyorum.
Tüm Arkadaşlara iyi çalışmalar..


Oldukça başarılı bir çalışma. Emeğinize sağlık

kulomer46 01-12-2011 09:59

Program yazmayı özellikle oyun programlamayı çok seviyorum.. Boş kaldıkça program yazmak çok sevdiğim bir uğraş..Bu formda bir kelime bir işlem yarışma programının işlem kısmını halleden program yazıp göndermiştim... Yorumunuz için teşekkürler..

asri 01-12-2011 10:44

Alıntı:

kulomer46 tarafından gönderildi (Mesaj 519704)
Değerli arkadaşlar.
Bende katkı olsun diye Labirentte yol bulma ile ilgili farklı bir çözüm ekledim.
Yazdığım Program ek tedir.
Değerli yorum ve tavsiyelerinizi bekliyorum.
Tüm Arkadaşlara iyi çalışmalar..

Çalışma güzel, geliştirme olarak.
Program hatalı gittiği yolları göstermeyip, kazandığı tecrübeyle sadece doğru yolu göstererek ilerlese daha güzel olurdu.

can4to 22-12-2011 19:09

elinize sağlık bu bilgilerle ben de labirent oyununu yapacağım

kulomer46 06-01-2012 16:30

Hadi Kolay gelsin O zaman size.. ( can4to ' ya)


Saat 15:57

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.