Bu dosya, çember üzerindeki bir noktada birbirine teğet olan çemberleri grafik üzerinde çizen ve istenirse döndürerek animasyon olarak gösteren bir şablondur. Çember sayısı, yarıçaplar ve dönme açısı kaydırma çubuklarıyla ya da hücrelere değer girilerek değiştirilir; grafik anında güncellenir.
Dosyanın içeriği
- S: Grafiğin ve kontrollerin bulunduğu ana sayfadır. Tek noktada teğet çember adedi (varsayılan 10), en küçük çemberin yarıçapı (1.8), en büyük çemberin yarıçapı (7) ve komple döndürme açısı (48) bu sayfada ayarlanır. Animasyonun başlatılıp durdurulduğu alan ile Sayaç ve Süre göstergeleri de burada yer alır.
- H: Grafiğin hesap sayfasıdır. Eksen uçlarının koordinatları, her çemberin merkez noktası (x, y) ve yarıçapı (r) burada hesaplanır.
Kullanılan formüller
- Çemberlerin yarıçapı, en küçük ve en büyük yarıçap arasında çember sayısına göre eşit aralıkla artar. H sayfasında yarıçap sütunu şu formülle hesaplanır:
- Merkez koordinatları COS, SIN ve PI fonksiyonlarıyla bulunur; döndürme açısı RADIANS ile radyana çevrilir. Eksen çizgilerinin uç noktaları da SIN ile hesaplanır.
- Çember eğrileri, tanımlı adlarda (C01.x, C01.y gibi) merkez koordinatına yarıçapın kosinüs ve sinüs çarpımı eklenerek üretilir. Kullanılmayan çemberler NA() döndürdüğü için grafikte görünmez.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı işlemi yoktur.- nBar, r1Bar, rnBar, fBar kaydırma çubukları değiştirildiğinde ilgili değeri (çember sayısı, en küçük yarıçap, en büyük yarıçap, açı) sayfadaki hücreye yazar. Yarıçap çubuklarının değeri 10'a bölünerek aktarılır.
- Worksheet_Change hücreye elle girilen değeri denetler ve çubuğu buna göre ayarlar. Geçerli aralıklar: çember sayısı 3-10, en küçük yarıçap 1-2.5, en büyük yarıçap 5-10, açı 0-359. Aralık dışı değer girilirse çubuktaki değer geri yazılır.
- basla animasyonu başlatır: açı değerini döngü içinde her adımda 2 derece artırır, süreyi hesaplar, kaydırma çubuklarını devre dışı bırakır ve sayfayı korumaya alır.
- dur animasyonu durdurur, sayfanın 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 çember adedini, en küçük ve en büyük yarıçapı kaydırma çubuklarıyla ya da hücrelere değer girerek belirleyin.
- Eksenlerin döndürme açısını ayarlayın; grafik değişikliği hemen yansıtır.
- Animasyon için başlatma düğmesini kullanın (basla); durdurmak için durdurma düğmesini kullanın (dur).
- Animasyon çalışırken sayfa korumalıdır; ayar yapmadan önce animasyonu durdurun.
