Midye Kabuğu Çizimi Yapma

Dosyanın içeriği​

• S: Kontrol sayfasıdır. Küçük, ortanca ve büyük çember yarıçapları (varsayılan 0.97, 1.87 ve 2.73) ile "KOMPLE Döndürme (Eksenlerin Döndürülmesi)" değeri (varsayılan 129) burada yer alır. Animasyon başlatma ve durdurma alanları ile grafik de bu sayfadadır.
• H: Hesap sayfasıdır (A1:J273). Büyük, ortanca ve küçük çember için merkez ve açıya göre y değerleri ile çizim koordinatları listelenir. Açı sütunu 4 derecelik adımlarla ilerler.

Kullanılan formüllerı​

=C$3+d.3*SIN(RADIANS($A5))

=MOD(A5+4,360)

Makrolar​

• d1Bar_Change, d2Bar_Change, d3Bar_Change, fBar_Change ve aynı çubukların Scroll olayları: Kaydırma çubuklarının değerini ilgili yarıçap hücresine (100'e bölerek) ve döndürme açısı hücresine yazar.
• Worksheet_Change: Hücreye elle değer girildiğinde kontrol yapar. Yarıçaplar için kabul edilen aralıklar 0,5-1, 1,25-2 ve 2,25-3'tür; döndürme açısı için 0-360'tır. Aralık dışı değer girilirse çubuğun değeri geri yazılır.
• basla: Animasyonu başlatır. Çubukları devre dışı bırakır, sayfayı korumaya alır ve açıyı döngüyle 1 derece artırarak 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 kaydırma çubuklarıyla ya da hücrelere doğrudan değer girerek yarıçapları ve döndürme açısını ayarlayın.
3. Grafikte kabuk biçiminin değiştiğini izleyin.
4. Animasyon için başlatma düğmesini kullanın; animasyon sırasında sayfa korumalıdır ve çubuklar çalışmaz.
5. Durdurma düğmesiyle animasyonu sonlandırın.