Çubuk Saat Yapma

Çubuk Saat Yapma, saat, dakika ve saniye göstergelerini grafik olarak çizen makrolu bir Excel şablonudur. Saat bilgisi hücrelerde açı değerlerine dönüştürülür; bu değerlerle düzgün çokgen biçiminde bir kadran ve üç gösterge çizilir. Kadranın kenar sayısı bir kaydırma çubuğuyla değiştirilebilir.

Dosyanın içeriği​

• S: Kadranın kenar sayısını tutan N8 hücresi ile tarih değerleri bulunur. Bu sayfada ayrıca "Düzgün Çokgen KENAR Adedi" etiketi yer alır.
• H: Hesaplama sayfasıdır. Saat, Dakika ve Saniye için açılar ile x/y koordinatları ayrı sütun gruplarında hesaplanır. Elips yarı eksen uzunlukları (Saat 0,65, Dakika 0,55, Saniye 0,45) ve elips etiketleri de bu sayfadadır.
• Dosyada 2 grafik bulunur; çokgen kadran ve göstergeler grafiklerle çizilir.

Kullanılan formüller​

• RADIANS: Saat, dakika ve saniye değerlerini radyan cinsinden açıya çevirir. Saat açısına dakikanın etkisi de eklenir.
• HOUR ve MOD: 24 saatlik değeri 12 saatlik kadrana indirger.
• SIN, COS, PI: Çokgenin köşe ve gösterge koordinatlarını hesaplar.
• IF ve NA: Kullanılmayan noktalar #N/A döndürülerek grafikte çizilmez.
• Tanımlı adlar (n, s, t, E1.x, E1.y vb.) kenar sayısını, anlık saati ve elips noktalarını hesaplara taşır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı işlemi yoktur.

• start: Saati çalıştırır. Döngü içinde anlık saati hh:mm:ss biçiminde s hücresine yazar; böylece göstergeler akar.
• dur: Saati durdurur. a hücresine 16 değerini yazar ve start döngüsü sona erer.
• nBar_Change ve nBar_Scroll: Kaydırma çubuğunun değerini kenar sayısı hücresine aktarır.
• Worksheet_Change: Kenar sayısı hücresine elle girilen değer 3 ile 16 arasındaysa çubuğu buna ayarlar; aksi halde çubuğun değerine döner.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında kaydırma çubuğuyla kenar sayısını 3 ile 16 arasında seçin.
3. start makrosunu çalıştırarak saati başlatın.
4. Durdurmak için dur makrosunu çalıştırın.