Bu dosya, birbirine göre belirli açıyla döndürülen dikdörtgenlerden oluşan geometrik deseni Excel grafiğinde çizer. Dikdörtgenlerin boyutu, adedi, tarama sayısı ve dönme açıları kaydırma çubuklarıyla değiştirilir; grafik anında güncellenir. İsteğe bağlı animasyon, deseni sürekli döndürür.
Diğer köşelerde PI() ve ATAN ile açı farkı eklenir. Tarama çizgilerinin noktaları ise şu formülle üretilir:
Kullanılmayan satırlar #N/A döndürür; böylece grafikte çizilmezler. Satır numaraları A10 ve alt hücrelerde IF ile tarama adedine kadar artar.
Dosyanın içeriği
- S: Kontrol sayfasıdır. Başlık "Geometrik Dizayn - Boyuna Taramalı Dikdörtgenler" olarak yer alır. Dikdörtgenlerin yarı boy uzunluğu (0,92), yarı en uzunluğu için oran katsayısı (0,5), toplam dikdörtgen adedi (4), boyuna tarama adedi (32), eksenlerin komple döndürülmesi ve ilk dikdörtgenin döndürülmesi değerleri buradadır. Sayaç ve süre göstergeleri de bu sayfadadır.
- H: Hesap sayfasıdır. Her dikdörtgenin köşe koordinatları (Köşe1 - Köşe4) ve tarama çizgilerinin uç noktaları satır satır hesaplanır. Grafik bu verilerden beslenir.
- Dosyada desenin gösterildiği bir grafik bulunur.
Kullanılan formüller
Köşe koordinatları, tanımlı adlar (a, k, f, v, p) üzerinden trigonometrik olarak hesaplanır. Örnek olarak ilk köşenin hesabı şöyledir:Diğer köşelerde PI() ve ATAN ile açı farkı eklenir. Tarama çizgilerinin noktaları ise şu formülle üretilir:
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dış bağlantı yoktur.- aBar, kBar, pBar, qBar, fBar, wBar olaylarını işleyen prosedürler: Kaydırma çubuğu değerini ilgili hücreye yazar.
- Worksheet_Change: Hücreye elle girilen değeri izin verilen aralıkta denetler ve çubuğu eşler. Aralıklar: a 0,6-1; k 0,25-0,75; p 1-6; q 10-50; f 0-180; w 0-360. Aralık dışı değer çubuktaki değerle değiştirilir.
- basla: Animasyonu başlatır. Döndürme açısını sürekli artırır, geçen süreyi yazar, çubukları devre dışı bırakır ve sayfayı korumaya alır.
- dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- S sayfasında çubukları kaydırarak ya da hücrelere değer yazarak ölçüleri, dikdörtgen adedini ve tarama adedini ayarlayın.
- Animasyon için basla makrosunu çalıştırın (Geliştirici > Makrolar veya sayfadaki düğme).
- Durdurmak için dur makrosunu çalıştırın; ayarlar yeniden değiştirilebilir.