üç taş

[tevfikdemir]

R sütünunun hücre korumasını açmadığınız için şu an program hata veriyor.

Saygılar

 

[tevfikdemir]

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üğ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

 

[gunaygergin]

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.

 

[tevfikdemir]

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

 

[gunaygergin]

Teşekkürler; deneyip sizlerle paylaşacağım.

 

[tevfikdemir]

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

 

[gunaygergin]

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.

 

[gunaygergin]

Ü,

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ç]

Hakikaten çok yavaş.
Buna bi çözüm bulunursa iyi olur. (Beni aşan bi konu)

 

[tevfikdemir]

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.

 

[gunaygergin]

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ç]

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.

 

[gunaygergin]

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.

 

[danersin]

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ç]

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

 

[tevfikdemir]

Syn Danersin gerçekten iyi fikir teşekkürler.

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

Oyuna Başla diye bir tuş ekledim


Saygılar

 

[gunaygergin]

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.

 

[tevfikdemir]

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

 

[gunaygergin]

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.

 

[tevfikdemir]

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