Beş Çemberi Hareket Ettirme

Dosyanın içeriği​

• S: Kontrol sayfasıdır. "Küçültme / Büyütme (Dış Çember YARIÇAPI)" değeri F4 hücresinde (0,87), "Komple Döndürme (Eksenlerin Döndürülmesi)" değeri F6 hücresinde, "Adım - Adım İlerleme" değeri F8 hücresinde bulunur. Animasyon sayacı ve süre bilgisi de bu sayfada izlenir. Grafik ve kaydırma çubukları bu sayfadadır.
• H: Hesap sayfasıdır (A1:AC302). Şekil 1'den 11'e kadar her şeklin x ve y koordinat noktaları burada hesaplanır; grafik bu değerleri çizer.

Kullanılan formüller​

=2*a*COS(u)+a*COS(PI()/6*(F1-1)+v+u)

=EĞER($E7="";YOKSAY();F$4-(F$4-F$5)*$E7/n)

=IF($E7="",NA(),F$4-(F$4-F$5)*$E7/n)

Makrolar​

• aBar, fBar, wBar olay makroları: Kaydırma çubukları yarıçapı (değer/100), eksen açısını (-90 + değer) ve adım açısını (değer x 3) ilgili hücrelere yazar.
• Worksheet_Change: Hücreye elle girilen değeri denetler. Yarıçap 0,6 ile 1, eksen açısı -90 ile 90, adım açısı 0 ile 360 aralığında kabul edilir; geçersiz değerde çubuğun değeri geri yazılır.
• basla: Animasyonu başlatır. Çubukları devre dışı bırakır, sayfayı korumaya alır ve döngüde adım açısını her turda 3 derece artırarak çemberleri hareket ettirir; geçen süreyi hesaplar.
• dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında yarıçap, eksen dönüşü ve adım çubuklarını kaydırarak deseni değiştirin.
3. Animasyon için basla makrosunu çalıştırın (Geliştirici > Makrolar).
4. Durdurmak için dur makrosunu çalıştırın.