Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-08-2009, 18:00   #1
sergions
 
sergions kullanıcısının avatarı
 
Giriş: 16/08/2004
Şehir: İstanbul
Mesaj: 132
Excel Vers. ve Dili:
Office 2010 En 64 Bit
Varsayılan Labirentte Yol Bulma

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

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

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.
Eklenmiş Dosyalar
Dosya Türü: xls Yol Bulma.xls (39.0 KB, 547 Görüntülenme)
sergions Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-12-2010, 01:27   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,375
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

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.
Eklenmiş Dosyalar
Dosya Türü: xls Yol_Bulma_asri.xls (57.5 KB, 232 Görüntülenme)
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2011, 11:35   #3
kulomer46
Altın Üye
 
kulomer46 kullanıcısının avatarı
 
Giriş: 23/03/2007
Şehir: K.Maraş
Mesaj: 342
Excel Vers. ve Dili:
excel 2013 türkçe
Varsayılan Labirentte Yol Bulma

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..
Eklenmiş Dosyalar
Dosya Türü: xls Labirentte Yol Bulma.xls (114.5 KB, 348 Görüntülenme)

Bu mesaj en son " 05-02-2011 " tarihinde saat 15:36 itibariyle kulomer46 tarafından düzenlenmiştir....
kulomer46 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-11-2011, 09:40   #4
lider22
 
lider22 kullanıcısının avatarı
 
Giriş: 31/03/2009
Şehir: İstanbul
Mesaj: 167
Excel Vers. ve Dili:
2010 türkçe
Varsayılan

Alıntı:
kulomer46 tarafından gönderildi Mesajı Görüntüle
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
lider22 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-12-2011, 09:59   #5
kulomer46
Altın Üye
 
kulomer46 kullanıcısının avatarı
 
Giriş: 23/03/2007
Şehir: K.Maraş
Mesaj: 342
Excel Vers. ve Dili:
excel 2013 türkçe
Varsayılan

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..
kulomer46 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-12-2011, 10:44   #6
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,375
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
kulomer46 tarafından gönderildi Mesajı Görüntüle
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.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2011, 19:09   #7
can4to
 
Giriş: 22/12/2011
Şehir: izmir
Mesaj: 1
Excel Vers. ve Dili:
microsoft office 2007 vb dili
Varsayılan

elinize sağlık bu bilgilerle ben de labirent oyununu yapacağım
can4to Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-01-2012, 16:30   #8
kulomer46
Altın Üye
 
kulomer46 kullanıcısının avatarı
 
Giriş: 23/03/2007
Şehir: K.Maraş
Mesaj: 342
Excel Vers. ve Dili:
excel 2013 türkçe
Varsayılan

Hadi Kolay gelsin O zaman size.. ( can4to ' ya)
kulomer46 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:15


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden