Nested Polygon Oluşturma

Bu dosya, belirlenen kenar sayısına göre iç içe geçen düzgün çokgenleri Excel grafiğinde çizer. Çokgen sayısı artırıldıkça iç içe yapı büyür, makro ile çalışan animasyon ise çokgenlerin sürekli açılıp kapanmasını sağlar. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• S: Grafiğin ve denetimlerin bulunduğu ana sayfadır. Düzgün çokgenin kenar adedi (F7 hücresi) ve iç içe çokgen adedi (F35 hücresi) buradan belirlenir. Sayfada ayrıca animasyonun sayaç ve süre bilgileri yer alır.
• H: Çokgen köşe noktalarının hesaplandığı yardımcı sayfadır. Her çokgen için 19 satırlık bir blok bulunur; bloklarda nokta numarası ve koordinat değerleri hesaplanır.

Kullanılan formüller​

• IF, MOD, COS ve PI fonksiyonları köşe koordinatlarını hesaplar. Kenar sayısının tek ya da çift olmasına göre (MOD ile kontrol edilir) farklı değer üretilir.
• Bir sonraki iç çokgenin ölçeği, kenar sayısına bağlı olarak COS(PI()/n) oranıyla küçültülür. Bu sayede her çokgen bir öncekinin içine yerleşir.
• Tanımlı adlar (C01.y, C02.y gibi) OFFSET ile her çokgenin nokta aralığını belirler. Çokgen adedi k değerinden küçükse ilgili aralık tek noktaya iner, yani çizilmez.
• a adlı tanım, animasyon sırasında görünen çokgen sayısını 0 ile k arasında gidip gelecek şekilde değiştirir.

Makrolar​

Makrolar Sayfa1 modülündedir; dosyada dosya silme veya dış bağlantı işlemi yoktur.

• nBar_Change, nBar_Scroll, kBar_Change, kBar_Scroll: Kaydırma çubuklarının değerini kenar adedi ve çokgen adedi (k) hücrelerine yazar.
• Worksheet_Change: n hücresine 5-9, k hücresine 1-40 aralığında girilen değeri kabul edip çubuğu günceller; geçersiz değerde önceki değeri geri yükler.
• basla: Animasyonu başlatır. k değeri 10'dan küçükse uyarı verir. Çalışırken çubukları devre dışı bırakır, sayfayı korumaya alır ve geçen süreyi yazar.
• dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. S sayfasında kenar adedini kaydırma çubuğu veya hücreyle 5-9 arasında seçin.
3. İç içe çokgen adedini 1-40 arasında belirleyin; grafik otomatik güncellenir.
4. Animasyon için çokgen adedini en az 10 yapın ve başlatma düğmesine basın.
5. Animasyonu durdurmak için durdurma düğmesini kullanın.