Tabanlarında String Art Spiral Olan Küp

Bu dosya, alt ve üst tabanlarında kare spiral (string art) deseni bulunan bir küpü grafik üzerinde çizer. Küpün kenar uzunluğu, döndürme açısı, küçültme oranı ve iç içe çizilen kare adedi değiştirildikçe grafik anında güncellenir.

Dosyanın içeriği​

• S sayfası: Kontrol sayfasıdır. KÜP kenar uzunluğu (varsayılan 1), komple döndürme (eksenlerin döndürülmesi, varsayılan 0), kare kenarları için küçültme oranı (varsayılan 0.97) ve küçültme uygulanan kare adedi (varsayılan 50) bu sayfada ayarlanır. Değerler kaydırma çubuklarıyla veya hücrelere doğrudan yazılarak değiştirilebilir. Grafik de bu sayfadadır.
• H sayfası: Hesaplama sayfasıdır. Küpün köşe koordinatları (x ve y) ile her iç kare için hesaplanan noktalar burada tutulur. Grafiğin veri kaynağı bu sayfadır.

Kullanılan formüller​

• Köşe koordinatları SIN, COS ve RADIANS fonksiyonlarıyla hesaplanır. Küpün 8 köşesi, kenar uzunluğu ve döndürme açısına bağlı olarak türetilir.
• Her iç karenin köşesi, bir önceki karenin köşesinden küçültme oranı kadar kaydırılarak bulunur. Örneğin G23 hücresinde şu formül kullanılır:
  
  Excel formülü

  TR

  =EĞER($E23="";YOKSAY();G3-(G3-G4)*k)

  EN

  =IF($E23="",NA(),G3-(G3-G4)*k)

• NA fonksiyonu, kare adedinin dışında kalan noktaların grafikte çizilmemesini sağlar. E sütunundaki sayaç ise kare adedine (n) ulaşınca durur.
• Parametreler a (kenar uzunluğu), f (döndürme), k (küçültme oranı) ve n (kare adedi) adlı tanımlı adlarla formüllere bağlanmıştır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar S sayfasının kod bölümündedir ve zararlı bir işlem içermez.

• aBar, kBar, fBar ve nBar kaydırma çubuklarının Change ve Scroll olayları, çubuk değerini ilgili hücreye aktarır. Kenar uzunluğu ve küçültme oranı çubuk değerinin 100'e bölünmesiyle, döndürme ise çubuk değerinden 75 çıkarılarak (-75 ile 75 derece arası) yazılır.
• Worksheet_Change olayı, hücreye elle yazılan değeri denetler. Kenar uzunluğu 0,5-1, küçültme oranı 0-1, döndürme -75 ile 75, kare adedi 0-50 aralığındaysa ilgili çubuk bu değere getirilir; aralık dışı veya sayısal olmayan değer girilirse çubuktaki önceki değer geri yazılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında kaydırma çubuklarını kullanarak veya ilgili hücrelere değer yazarak kenar uzunluğunu, döndürmeyi, küçültme oranını ve kare adedini belirleyin.
3. Grafikteki küp ve taban spirallerinin değişimini izleyin.
4. Farklı desenler için küçültme oranını ve kare adedini birlikte değiştirin.