Bu dosya, bir çemberde eşit uzunluktaki kirişlerin oluşturduğu String Art (filografi) desenini grafik üzerinde çizer. Dış çember yarıçapı, iç çember katsayısı ve kiriş adedi değiştirildiğinde desen anında yeniden çizilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- S: Kontrol sayfasıdır. Dış çember yarıçapı (F4, varsayılan 0,87), iç çember için katsayı (F6, varsayılan 0,39) ve kiriş adedi (F8, varsayılan 100) bu sayfada girilir. Aynı sayfada deseni gösteren grafik, dış çemberin grafikte gösterimi seçeneği, animasyon seçimi ve kaydırma çubukları bulunur. Animasyon için açınım adedinin en az 20 olması gerektiğini belirten koşul uyarısı da buradadır.
- H: Hesaplama sayfasıdır. Kiriş numaraları ile her kirişin uç noktalarının x ve y koordinatları yaklaşık 300 satırda hesaplanır; grafik bu verileri kullanır.
Kullanılan formüller
Kiriş numaraları, tanımlı ad olan a değerine kadar birer artarak üretilir. Numara boşsa koordinat hücreleri #N/A döndürür; böylece grafikte kullanılmayan noktalar çizilmez.- H sayfasındaki kiriş numarası formülü, kiriş adedine ulaşılana kadar numarayı artırır.
- Koordinatlar COS, SIN ve PI ile çember üzerinde eşit aralıklı noktalar olarak hesaplanır; ikinci uç nokta için ACOS fonksiyonu katsayıya göre kiriş açısını belirler.
- S sayfasındaki F24 hücresi, değeri INT ile tam sayıya çevirir. D18 hücresi ise animasyon koşulunu denetleyen chk adını kullanır.
- Yarıçap, katsayı ve kiriş adedi gibi değerler d, k, n gibi tanımlı adlarla formüllere bağlanır.
Makrolar
- dBar, kBar, nBar kaydırma çubukları: Çubuklar hareket ettirildiğinde yarıçap, katsayı ve kiriş adedi hücrelerine değer yazılır.
- Worksheet_Change: Hücrelere elle değer girildiğinde çubukları günceller. Yarıçap 0,5 ile 1, katsayı 0,1 ile 0,7, kiriş adedi 1 ile 100 aralığı dışındaysa değer çubuktaki değere döndürülür.
- basla: Animasyonu başlatır. Açınım adedi 20'den küçükse uyarı verir. Animasyon sırasında kiriş sayısı 1'den başlayarak artar, geçen süre hesaplanır, çubuklar devre dışı kalır ve sayfa korumaya alınır.
- dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- S sayfasında dış çember yarıçapını, iç çember katsayısını ve kiriş adedini hücrelere girin ya da kaydırma çubuklarıyla ayarlayın.
- İsterseniz dış çemberin grafikte gösterimini seçeneklerden açın veya kapatın.
- Deseni adım adım izlemek için animasyon seçeneğini işaretleyip başlatın; kiriş adedi en az 20 olmalıdır.
- Animasyonu durdurmak için durdurma düğmesini kullanın.
