üç taş

Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
R sütünunun hücre korumasını açmadığınız için şu an program hata veriyor.

Saygılar
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Okların Yerine Tuş koyup properties özelliğinden visible ayarını true yaparak görünür falce yaparak gizlemek mümkün olur diye düşünüyorum.Nesneleri macro ile gizlemek mümkünmü bilmiyorum. :yazici:

Fakat Excelde kesin konuşulmaması gerektiğini excel.web.tr deki örneklerde gördüm. :hayir:

Ok yerine düğme koymayı düşünürseniz yardımcı olabilirim.Onun dışında ustaların desteği gerekecek. :D


Düğmelerin nasıl olabileceği konusunda fikir vermek açısından dosyanıza bir iki düğme ekledim.Eğer sizce uygunsa devamını beraber getiririz.

Saygılar
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
nesne gizleme

sn: tevfikdemir,

buton kullanmak güzel olur. ancak ben onları bulamıyorum.

dosyaya birkaç ekenti yaptım.
Ancak hamle sırasına tam bir çözüm bulamadım.
dosyayı tekrar inceleyebilir misiniz.
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Syn gunaygergin

Okları Başlat-Programlar-Donatlar-Paint den resim olarak çiziyorsunuz(Hangi yöne istiyorsanız) Çizdiğiniz şekle bir isim verip kaydedin.Örneğin sağ ok için sag ismi ile kaydedin.Sonra VBA da yapmış olduğunuz okların properties ekranından picture özelliğinde bu dosyanın yerini gösterirseniz OK un tuş üzerinde çıktığını görebilirsiniz.

Dosyanızı şu an için inceleyemedim akşam evden inceleyeceğim.

Saygılar
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
Teşekkürler; deneyip sizlerle paylaşacağım.
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Syn günay

CommandButton1 tuşuna atadığınız macroyu aşağıdaki gibi değiştirirseniz taş koyma sıralamasını yapıyor.

Private Sub CommandButton1_Click()

If Range("I3") > 0 Or Range("f3") <= 0 Then Exit Sub
sonsat = Worksheets("3TAS").[R65536].End(xlUp).Row + 1
Range("F3").Select
x = Range("f3").Value
If Cells(sonsat - 1, 19) = x Then
MsgBox ("Sıra Diğer Oyuncuda")
Exit Sub
End If
ActiveCell.FormulaR1C1 = "0"
Range("I3").Select
ActiveCell.FormulaR1C1 = x
Cells(sonsat, 18) = "F3:I3"
Cells(sonsat, 19) = x

End Sub

Saygılar
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
sn. Tevfikdemir ve Acemi1
Yardımlarınızdan dolayı tekrar teşekkür ederim.
çalışmam Tevfikdemir'in Tavsiye ettiği komutları uyguladıktan sonra
tekrar paylaşacağım.Biraz uzun işlem olduğundan bu akşam bitebilir.
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
Ü,

Arkadaşlar Dosyam denetimlerin fazlalığı yada Gereksiz makrolar
dolayısı ile yavaşladı.

sn.Tevfikdemir sizin önerdiğiniz komutları uygulamaya çalıştım.
Dosyayı bir incelerseniz. Sizin ve diğer kıymetli forum Üyelerinin
Değerli görüşlerini almak isterim. Teşekkürler.
Teşekkürler Excel.web.tr :hey:
 

Metin Karaağaç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
Hakikaten çok yavaş.
Buna bi çözüm bulunursa iyi olur. (Beni aşan bi konu)
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Programın Yavaşlamasının sebebi tüm denetimleri Worksheet_SelectionChange de işlemleri kontrol ettirmeniz.Daha önce denetimini yaptığı hücreleri tekrardan gereksiz bir şekilde kontrol ediyor.Komple bir düzenlemeye gitmek gerekir biraz vakit alacak üzerinde çalışacağım.Normale dönünce sizle paylaşır onun üzerinden devam ederiz.

Saygılar.
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
SN tevfikdemir,

sizden bir ricam daha olacak ekli dosya en günceli çalışmaları onun üzerinden yaparsanız daha iyi olur.

bir de: ikinci hamleyi bilgisayara yaptırabilir miyiz acaba
varsa bir ipucu ben gerisini getirmeye çalışırım. muhtemelen
noktalara değişken atayıp if-then-else komutları ile tek tek olasılık algoritmaları oluşturmak olacak diye düşünüyorum.

ilginize tekrar teşekkürler.

diğer üyelerden de fikirler bekliyorum.
 

Metin Karaağaç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
Sn gunaygergin;
çalışmanızla ilgili değil ama(bu arada çalışmanızın gelişimini ilgiyle takip ediyorum).
Dosyalarınızı hep .xls formatında gönderiyorsunuz. Bu da çok yer kaplamasına yol açıyor. Hem açması uzun sürüyor, hem de forumda çok hacim(!) kaplıyor.
Bu dosyaları herhangi bir şıkıştırma formatında sıkıştırıp gönderirseniz iyi olur diye düşünüyorum.
Bu arada program hala çoooook yavaş çalışıyor.
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
sn acemi1,

haklısınız bundan sonraki eklemelerimi *.rar olarak gönderirim

yavaşlığı konusunda sn tevfikdemir'in önerileri olacak sanırım.
kendisi dosyayı inceliyor.

ilginiz ve desteğinize teşekkürler.
 
Katılım
29 Eylül 2004
Mesajlar
1,810
Excel Vers. ve Dili
Excel 2002 TR
sn.Acemi1,
Hızı sorun değil sn.gunayergin tum çalişmasi bittiğinde
Private Sub Worksheet_SelectionChange(ByVal Target As Range) satırının hemen altına
Application.ScreenUpdating = False

satırını ekleyecek ve hız sorununun %70 ini çözecek. :wink:
 

Metin Karaağaç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
danersin' Alıntı:
Application.ScreenUpdating = False

satırını ekleyecek ve hız sorununun %70 ini çözecek. :wink:
Bu ne mübarek bir koddur böyle. Hız sorunu diye bişey kalmadı:)
Teşekkürler Sn danersin
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Syn Danersin gerçekten iyi fikir teşekkürler.

Ben dosyayı genede farklı bir şekille güncelledim.

Oyuna Başla diye bir tuş ekledim :D


Saygılar
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
Merhaba;

sn.tevfikdemir ve sn.dersin teşekkürler.

sn tevfikdemir düzenlemeleriniz güzel ama;

1. dolu hücrelere de ok açıyor.
yanı okun bağlı olduğu hücre ve bağlantılı hücreler de okun görünmesinde etkili. hücrenin içi dolu olsa bile karşısı dolu ise yine gözükmemesi gerekiyor.

2.mavi ile başladığımızda peşpeşe iki mavi koyuluyor oysa taş koyma aşamasında da hamle sıralaması yapmalıyız. ve 3 taştan fazla koyulamaması gerekiyor.

3. kazandı uyarısı taşın ilerlemesinden önce oluyor.
kazandı uyarısından sonra işlem yaptırmaması veya formu temizlemesi gerekiyor.

fikirlerinizi bekliyorum.

3.
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Syn günaygergin ;
syn danersinin dediği kodu yazınca hız probleminiz çözülüyor.Sizin enson gönderdiğiniz dosya üzerinde
Private Sub Worksheet_SelectionChange(ByVal Target As Range) satırının hemen altına
Application.ScreenUpdating = False
yazdım ve o dosya üzerinde karşılıklı bilgisayarla nasıl oyun oynanır ona bakıyorum fakat zor bir konu.
Hız konusunu syn danersinin dediği gibi çözmek daha güzel gibi geldi bana.

Saygılar
 
Katılım
25 Nisan 2006
Mesajlar
177
Excel Vers. ve Dili
OFFİCE XP TÜRKÇE
OFFİCE 2003 TÜRKÇE
OFFİCE 2010 TÜRKÇE
OFFİCE 2013 TÜRKÇE
sn.tevfikdemir merhaba

cevaladığınız konu benim mesajıma değil.
sanırım bir karışıklık oldu.

1. dolu hücrelere de ok açıyor.
yanı okun bağlı olduğu hücre ve bağlantılı hücreler de okun görünmesinde etkili. hücrenin içi dolu olsa bile karşısı dolu ise yine gözükmemesi gerekiyor.

2.mavi ile başladığımızda peşpeşe iki mavi koyuluyor oysa taş koyma aşamasında da hamle sıralaması yapmalıyız. ve 3 taştan fazla koyulamaması gerekiyor.

3. kazandı uyarısı taşın ilerlemesinden önce oluyor.
kazandı uyarısından sonra işlem yaptırmaması veya formu temizlemesi gerekiyor.
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Syn gunaygergin ;
Ekli dosyayı bir incelermisiniz ;

Eksikleri not alın.Bu dosya üzerinde devam edelim.

Ben dosyaya oyun diye bir sayfa açtım yapay zeka için ;

Sesli düşünüyorum:Yapay zeka hangi taşların nerde olduğunu her defası için ayrı hesaplayacak.Daha sonrada bir kombinasyon kurdurmaya çalışacağım(nasıl olacağını araştırıyorum fikri olan arkadaşlar destek versin) bu kombinasyona göre bilgisayar hamle yapacak vs.

Saygılar
 
Üst