Geometrik Animasyon - TUSI Çifti ile Elipsler

Dosyanın içeriği​

• S: Kontrol sayfasıdır ve animasyon grafiği burada yer alır. Dış (sabit) çember yarıçapı, kol uzunlukları için katsayı, adım adım ilerleme değeri (yuvarlanan çember), elipslerin rotasyon açısı ve animasyon hızı bu sayfadan ayarlanır. Sayaç ve Süre alanları animasyonun ilerleyişini gösterir.
• H: Elips kollarının uç noktalarını hesaplayan yardımcı hesap sayfasıdır (C3:C7 ve C11 hücreleri).

Kullanılan formüller​

• S sayfasındaki hız hücresi, 1-3 arasındaki değeri metne çevirir:

=ELEKTE(h;"Yavaş";"Normal";"Hızlı")

=CHOOSE(h,"Yavaş","Normal","Hızlı")

• H sayfasındaki formüller SIN ve PI fonksiyonlarıyla her kolun uç noktasının konumunu hesaplar. Çember ve elips koordinatları ise d, k, f, fi, h gibi tanımlı adlarla (Eax, Eay, Ebx, çyx, çyy vb.) grafiğe aktarılır.

Makrolar​

• basla: Animasyonu başlatır. Kaydırma çubuklarını devre dışı bırakır, sayfayı korumaya alır ve bir döngü içinde açı değerini seçilen hız adımıyla artırır. Geçen süreyi Süre alanına yazar.
• dur: Animasyonu durdurur, sayfa korumasını kaldırır ve kaydırma çubuklarını yeniden etkinleştirir.
• Kaydırma çubukları (dBar, kBar, wBar, fBar, hBar): Çember yarıçapı, kol katsayısı, başlangıç açısı, elips rotasyon açısı ve hız değerlerini ilgili hücrelere yazar.
• Worksheet_Change: Hücrelere elle girilen değerleri denetler ve kaydırma çubuklarıyla eşitler. Geçerli aralıklar: yarıçap 0,75-1; kol katsayısı 0,25-1; açı 0-359; elips rotasyonu -90 ile 90; hız 1-3. Aralık dışı değer girilirse önceki değer korunur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında yarıçap, kol katsayısı, rotasyon açısı ve hız değerlerini kaydırma çubuklarıyla veya hücrelere yazarak belirleyin.
3. basla makrosunu çalıştırarak animasyonu başlatın.
4. Değerleri değiştirmek için önce dur makrosunu çalıştırın; sayfa koruması kalkar ve çubuklar yeniden kullanılabilir.