Analog Saat Grafiği, sistem saatini XY Dağılım grafiği üzerinde akrep, yelkovan ve saniye ibresiyle gösteren bir şablondur. İbre uçlarının koordinatları sinüs ve kosinüs hesaplarıyla üretilir, bir makro de saati sürekli yeniler. Excel sayfasına canlı bir analog saat eklemek isteyenler için hazırlanmıştır.
Akrebin yan noktaları PI()/10 kadar açı farkıyla hesaplanarak ibrenin uç şekli oluşturulur. Yelkovan için aynı mantıkla 0.85 katsayısı kullanılır.
Dosyanın içeriği
- S: Saat sayfasıdır. H2 hücresinde saat bilgisi, B4 hücresinde TODAY ile günün tarihi yer alır.
- H: Hesaplama sayfasıdır (A1:M126). "Akrep" ve "Yelkovan" için x ve y koordinat sütunları, saat, dakika ve saniye için açı değerleri, kadranın saat çizgileri ve çaplara ait koordinat tabloları burada bulunur. Grafik bu tablolardan beslenir.
Kullanılan formüller
- RADIANS: Saat, dakika ve saniye değerlerini radyan cinsinden açıya çevirir. Saat açısı için kullanılan formül:
- SIN ve PI: İbrelerin uç noktalarını ve kadran üzerindeki saat konumlarını hesaplar. Akrebin ana ucu için kullanılan formül:
=0.7*SIN($C$4)Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Sayfa1 modülünde iki prosedür vardır:- start: a adlı hücreyi boşaltır, ardından döngüye girer. Her turda DoEvents ile Excel'in çalışmasına izin verilir, geçerli saat "hh:mm:ss" biçiminde s hücresine yazılır ve bu sayede ibreler ile grafik güncellenir. a hücresi 1 olduğunda döngü sona erer.
- dur: a hücresine 1 yazarak çalışan saati durdurur.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F8 ile makro listesini açıp start makrosunu çalıştırın; saat sistem saatine göre ilerlemeye başlar.
- Saati durdurmak için dur makrosunu çalıştırın.
- Grafik görünümünü değiştirmek için H sayfasındaki katsayıları (0.7 ve 0.85) ve kadran tablolarını düzenleyin.
