Analog Saat Çizimi Oluşturma

Dosyanın içeriği​

• S: Saat grafiği ve kontrol alanı. Elips çizimi için kullanılan saat değeri (F2), tarih (B4), elipsin küçük eksen uzunluğu (J4) ve eğim açısı (L4) bu sayfadadır. Küçük eksen ve eğim, sayfadaki iki kaydırma çubuğuyla (bBar, fBar) değiştirilir.
• H: Hesaplama sayfası. Akrep ve yelkovan için açılar ve x/y koordinatları, saat kadranındaki 12 saat işaretinin konumları ve ibrelerin ara noktaları burada hesaplanır.

Kullanılan formüller​

• RADIANS: Saat, dakika ve saniye değerleri açıya çevrilir. Akrep açısı saat ve dakikadan, yelkovan açısı dakika ve saniyeden türetilir.
• SIN ve COS: İbrelerin uç noktalarının koordinatları hesaplanır. Akrep yelkovandan kısa çizilir; akrep uzunluğu 0.6, yelkovan uzunluğu 0.85 katsayısıyla belirlenir.
• SQRT ve PI: Elipsin dışmerkezliği ve kadran üzerindeki saat işaretlerinin konumları bulunur.
• TODAY: Tarih alanında geçerli gün gösterilir.

=b/SQRT(1-(e*COS(PI()/2-$E3*PI()/6-fi))^2)*COS(PI()/2-$E3*PI()/6)

Makrolar​

• start: Saati başlatır. Sürekli bir döngüde geçerli saat hh:mm:ss biçiminde s adlı hücreye yazılır ve ibreler her saniye güncellenir. Döngü, dur makrosu çalışana kadar sürer.
• dur: Döngüye durma işareti gönderir; saat durur.
• bBar_Change ve bBar_Scroll: Küçük eksen kaydırma çubuğunun değeri 100'e bölünerek b hücresine yazılır.
• fBar_Change ve fBar_Scroll: Eğim kaydırma çubuğunun değerinden 90 çıkarılarak f hücresine yazılır.
• Worksheet_Change: b hücresine 0,5 ile 1 arasında, f hücresine -90 ile 90 arasında değer girilirse kaydırma çubuğu bu değere ayarlanır. Aralık dışı veya sayısal olmayan girişte eski çubuk değeri geri yazılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasına geçin.
3. Saati çalıştırmak için start makrosunu çalıştırın (Geliştirici sekmesi, Makrolar).
4. Elipsin biçimini kaydırma çubuklarıyla ya da b ve f hücrelerine değer girerek ayarlayın.
5. Saati durdurmak için dur makrosunu çalıştırın.