Delphi ile Analog Clock

Delphi ile Generic Clock örneği işinizi görmüştür umarım. Generic Clock projesinde yapacağımız küçük bir değişiklikle yeni projeler üretebiliriz aslında. Bilgisayar kullanıcılarının en çok tercih ettiği masaüstü araçlarından biri olan "Analog Clock" bu yazmının konusunu oluşturuyor. Siz Delphi kullanıcıları için elimden geldiği kadar sadeleştirmeye çalıştım. Başlayalım...

1. TASARIM

Delphi ile Analog Clock Tasarımı

Form tasarımı aşamasında dikkat edilmesi gereken birkaç ufak tefek ayrıntı var. Önceki örneklerde açıkladığım gibi öncelikle ana formun BorderStyle özelliğini bsNone olarak ayarlamalıyız. Diğer önemli kısım ise Sağ Tuş Menüsü eklemek. Programda görselliği bozmamak için "Kapat" düğmesi kullanmadım. Bu yüzden farenin sağ tuşuna bastığımızda içerik menüsüne ihtiyaç duyacağız. Burada programdan çıkış işlemini "Kapat Menüsü" yardımıyla yapacağız. Tasarım aşamasını şöyle özetliyebiliriz:

• Ama formun Client boyutları saat resminin boyutları ile aynı olacak (ClientWidth = 130, ClientHeight = 130)
• BorderStyle özelliği bsNone olarak ayarlanacak
• Ana forma Timer ve PopupMenu bileşenleri eklenecek

Tasarım kısmı bu kadar. Yukarıdaki ekran alıntısında örnek bir görüntü mevcut. Gelelim algoritma kısmına...

2. ALGORITMA

Algoritma kısmında temel çizim işlemlerinden bahsetmeyeceğim. Bu konulara daha önceki örnekte değinmiştim. Fakat açıklanması gereken önemli bir kısım var:  Akrep, yelkovan ve saniye gibi saati oluşturan parçaların çizilmesi... Temel olarak bu parçalar belli bir eksen etrafında belirli açılarla dönerler. Bu açılar saatin kaç olduğuna göre değişmektedir. Örnegin Akrep çizimi için saatin 03:00:00 olduğu durumda 45 derecelik açı ile çizilmesi gerekmektedir. Bu hesaplamalar basit matematik işlemlerinden başkası değildir. Bu projede açı hesaplamalarını PaintElements prosedürü içine yerleştirdim. Aşağıdaki kod parçasını incelemekte fayda var sanırım.

procedure TForm1.PaintElements;
var
Hour, Minute, Second, MSec: Word;
State: GraphicsState;
Dx, Dy, Ox, Oy: Single;
AngleS, AngleM, AngleH: Single;
begin
{ Acilari su anki saate gore hesapla. }
DecodeTime(SysUtils.Now, Hour, Minute, Second, MSec);
AngleS := Second * 6;
AngleM := Minute * 6 + AngleS / 60;
AngleH := Hour * 30 + AngleM / 12;
{ Orta noktayi ekran genisligine gore bul. }
Dx := Self.Width / 2 - 1;
Dy := Self.Height / 2 - 1;
Ox := -6; // -13 div 2
Oy := -64; // -129 div 2
with FGraphics do
begin
{ Cizim alaninin durmunu sakla. }
State := Save();
{ Baslangic cizim noktasini formun ortasina konumlandir. }
TranslateTransform(Dx, Dy);
{ Saat parcasini ciz }
RotateTransform(AngleH);
DrawImage(FHour, Ox, Oy, 13, 129);
RotateTransform(-AngleH);
{ Dakika parcasini ciz }
RotateTransform(AngleM);
DrawImage(FMinute, Ox, Oy, 13, 129);
RotateTransform(-AngleM);
{ Saniye parcasini ciz }
RotateTransform(AngleS);
DrawImage(FSecond, Ox, Oy, 13, 129);
RotateTransform(-AngleS);
{ Nokta parcasini ciz }
DrawImage(FDot, Ox, Oy, 13, 129);
{ Cizim alaninin durumunu eski haline getir. }
Restore(State);
end;
end;

GDI+ ile belirli bir açıda resim çizme işlemi biraz karışıktır. Dikkat edilmesi gereken en önemli kısım çizim alanımızın başlangıç kooardinatlarının ayarlanması. Varsayılan olarak başlangış koordinatları (0, 0) sol üst köşe olarak seçilmiştir. Buradaki örnekte Dx, Dy değişkenleri formun orta noktasına işaret ediyor. GDI+ ile başlangış koordinatlarını değiştirmek için TranslateTransform fonksiyonunu kullanmamız gerekiyor. Başlangıç koordinatlarını (0, 0) noktasından (Dx, Dy) noktasına taşıyoruz. Açıklanması gereken önemli bir kısım ise resimlerin çizilirken başlangıç noktasına göre yeni koordinatlarının hesaplanması işlemi. Örneğimizde Ox ve Oy değişkenlerini bunun için kullanancağız. Akrep ve yelkovan resimlerimizin boyutları 13x129 piksel olduğundan bu resimlerin orta noktası tam sayı olarak (6,64) olacaktır. Fakat Transform işleminden dolayı resmin orta noktası (-6, -64) olacaktır. Açı hesaplamaları kaynak kod içinden anlaşılabilir durumda. Bu bölüme değinmeğe gerek yok sanırım. Eğer Transform ve Rotate işlemleri sırasında sorun yaşarsanız bana mail atabilirsiniz. Şimdilik bu proje hakkında söyleyeceklerim bu kadar. Analog Clock projesinin kaynak kodunu aşağıdaki linkten indirebilirsiniz.

analog-clock-source.rar [366 KB]

Ey DSL! 3 artık karşınızda. Proje, sizden gelen öneriler doğrultusunda son şeklini aldı. Önceki sürümlerde belirttiğiniz hataları elimden geldiğince gidermeye çalıştım. Yeni özellikler de ekledim. Lafı uzatmadan Ey DSL! 3' te neler var bir göz atalım:

NELER YENİ?

• Ey DSL! 3 hem Windows XP hem de Windows Vista ile uyumlu olarak geliştirildi.
• Ey DSL! 3 eski sürümlerine oranla çok daha hızlı. Solma efekti tamamen kapatıldığı için çok hızlı açılıp kapanabiliyor.
• İşlemci kullanımı minimize edildi. Eğer Ey DSL! ekranı gizli ise %0 düzeyinde işlemci kullanımı gerçekleşiyor.
• Eklenti Mimarisi geliştirildi. Böylelikle çok daha özelleştirilebilir bir sürüm oluştu. Yeni eklentileri kontrol etmeyi unutmayın.
• Ağ Bağdaştırıcısı seçimi otomatikleştirildi. Taşınabilir bilgisayarlarda bağdaştırıcı değişmesi sorunu giderildi. Dilersiniz otomatik bağdaştırıcı seçimini kapatabilirsiniz.
• Paket Yakalama sürücülerini artık seçebiliyoruz. İşletim sistemimize uyumlu Paket Yakalama sürücüsü ile hem Windows XP hem de Windows Vista üzerinde sorunsuz çalışabiliyor. Ayrıca Paket Yakalama sürücüsü pasif duruma alınabildiğinden, her hangi bir sorun karşısında Ey DSL! ile ağ trafiğinizi kesintisiz olarak izlemeyi sürdürebilirsiniz.
• Uyarılar bölümü eklendi. Artık kotanızı aşmayacaksınız. Belirlediğiniz bir yüzdelik değere ulaştığınızda Ey DSL! sizi uyaracak. Üstelik sizin belirleyebileceğiniz bir ses ve yazı ile.
• TTNet kota sorgulama modülü yeniden yazıldı. Ay sonlarına doğru sıklıkla yaşanan kota öğrenme sorununa karşılık Yinele seçeneği ile kota sorgulama işlemini daha etkin bir şekilde gerçekleştirebileceksiniz.
• Sayaçları Sıfırlama özelliği getirildi. Dilerseniz sayaçları sıfırlayarak trafiğinizi daha etkin bir şekilde kontrol edebilirsiniz.
• Eşitleme işlemi sırasında yaşanan sorunlar giderildi. Üstelik eşitleme işlemini artık otomatik yapabileceksiniz.
• Raporlar yenilendi. Open Flash Chart 2 ile grafikler çok daha etkileyici.
• Transfer Dengeleme özelliği getirildi. Ey DSL! ile TTNet arasında yaşanan transfer farklılıklarını artık çok daha aza indirebileceksiniz. Sizin belirleyebileceğiniz bir yüzdelik değer ile artık download ve upload değerleriniz TTNet ile daha uyumlu olacak.
• Sürükle-bırak tekniği ile tema veya eklenti yüklemek artık çok daha kolay.

 UYARILAR

• Bu sürüm sadece TTNET kullanıcıları içindir. Diğer ADSL sağlayıcıları için yeni sürümler hazırlanmaktadır.
• Eğer bilgisayarınızda Ey DSL! 3 RC1 sürümü yüklü ise KESİNLİKLE KALDIRMAYINIZ. Eski veriler yeni sürüme dahil edilecektir.
• Ey DSL! 3 kurulum sihirbazı Ey DSL! 3 RC1 sürümünü yeni sürüme yükseltecektir.
• Ey DSL! 3 RC1 ile uyumlu olan eklentiler yeni sürümde çalışmaz. Kurulum sihirbazı yüklü eklentilerinizi kontrol ederek yeni sürüme uyumlu hale getirecektir.
• Eğer bilgisayarınızda Ey DSL! 2.0 yüklü ise HEMEN KALDIRMAYINIZ. Eski veriler yeni sürüme dahil edilecektir. Kurulum işlemi tamamlandıktan sonra Ey DSL! 2.0' ı kaldırabilirsiniz.
• Kuruluma başlamadan önce Ey DSL! 2.0 çalışıyorsa kapatınız. Eğer kapatmazsanız kurulum programı kapatmayı deneyecektir. Bu işlem eski verilerin yeni sürüme dahil edilebilmesi için gereklidir.
• Ey DSL! 2.0 temaları, Ey DSL! 3 temaları ile uyumlu değildir. Bunun için Ey DSL! 3 ile uyumlu temaları aşağıdan indirmeniz gerekmektedir. Ey DSL! 3 Vista teması ile birlikte gelir.
  • Ey DSL! 3 Vista Tema [66 KB]
  • Ey DSL! 3 Mac OSX Panther Tema [63 KB]

 İNDİR

• Ey DSL 3 TTNET sürümü [1.56 MB]
  • 2 adet tema içerir. Ey DSL! Varsayılan ve Ey DSL! Vista Tema.
  • 2 adet eklenti içerir. Minik Gösterge ve IP Adresim.

Umarım bu proje ile kota takibiniz biraz daha kolaylaşır. Güle güle kullanın...

Evet arkadaşlar. Ey DSL! 3 resmi olarak piyasaya sürülmeden önce aday sürümlerini yayımlamayı düşündüm. Sizlerin katılımı ile daha güzel bir Ey DSL! 3 olacağını düşünüyorum. Ey DSL! 3 bir hayli gecikti, bunun farkındayım. Anlayışla karşılayacağınızı umarım. Projede birçok sorunlarla karşılaştım ve büyük bir kısmını yeniden yazmak zorunda kaldım. Hem Windows XP, hem de Windows Vista uyumlu olması için uğraştım. Ayrıca Türkiye'deki tüm ADSL hizmeti veren kurumlar ile uyumlu olması gerekiyordu. Bu kısım beni oldukça zorladı açıkçası. Bunun için tek bir Ey DSL! sürümü yapmaya çalıştım ama işler sarpa sarmaya başlayınca hemen geri dönüp her firma için ayrı ayrı Ey DSL! sürümleri yaptım. Bilmem iyi ettim mi? Açıkçası buna kullanıcılar karar verecek galiba.

Ey DSL! 3'ü geliştirirken sayısız istek aldım. Üzülerek belirteyim ki hepsini yapamadım. Çünkü isteklerden bazıları taban tabana zıt isteklerdi. Bazılarının olmazsa olmazları, diğer kişiler tarafından beğenilmiyordu. Bence çözüm olarak "Eklenti" temelli bir Ey DSL! 3 geliştirdim. Böylece çok daha özelleştirilebilir bir sürüm elde ettim. Aslında yazacak çok şey var ama sizi daha fazla yormadan konumuza giriş yapalım.

Ey DSL! 3 tüm ADSL hizmeti veren kurumlar ile uyumlu olması amacıyla 6 farklı sürümde yayımlanacak. ADSL hizmeti aldığınız kurum hangisi ise ona göre uyumlu bir Ey DSL! 3 indirmelisiniz. ADSL hizmeti veren kurumlara göre Ey DSL! 3 sürümlerini aşağıdan indirebilirsiniz:

• TTNET
  • eydsl3-rc1-ttnet.rar [1.50 MB]
• TÜRKSAT
  • eydsl3-rc1-turksat.rar [1.50 MB]
• SMILE ADSL
  • eydsl3-rc1-smile.rar [1.51 MB]
• TÜRK.NET
  • eydsl3-rc1-turknet.rar [1.50 MB]
• TELLCOM
  • eydsl3-rc1-tellcom.rar [1.51 MB]
• BİRİ ADSL
  • eydsl3-rc1-biri.rar [1.50 MB]   [Sorun Giderildi]

ÖNEMLİ NOTLAR. LÜTFEN KURMADAN ÖNCE OKUYUN.

• Eğer bilgisayarınızda Ey DSL! 2.0 yüklü ise HEMEN KALDIRMAYINIZ. Eski veriler yeni sürüme dahil edilecektir.
• Kuruluma başlamadan önce Ey DSL! 2.0 çalışıyorsa kapatınız. Eğer kapatmazsanız kurulum programı kapatmayı deneyecektir. Bu işlem eski verilerin yeni sürüme dahil edilebilmesi için gereklidir.
• Eğer ADSL hizmetini TTNet' ten alıyorsanız eski verileriniz değişmeden alınır. Farklı ise (Tellcom, Türk.net, Smile gibi...) yeni kullanıcı adınızı ve şifrenizi girmeniz gerekmektedir.
• Ey DSL! 2.0 temaları, Ey DSL! 3 temaları ile uyumlu değildir. Bunun için Ey DSL! 3 ile uyumlu temaları aşağıdan indirebilirsiniz.
  • Ey DSL! 3 Vista Tema [66 KB]
  • Ey DSL! 3 Mac OSX Panther Tema [63 KB]

Unutmadan bu sürümler aday sürümlerdir (Release Candidate). Bu yüzden bazı hatalar olabilir. Lütfen proje hakkında olumlu yada olumsuz görüşlerinizi yorumlar kısmına yada forum bölümüne yazınız. Sorularınızı elimden geldiğince cevaplamaya çalışacağım. Umarım bu proje ile kota takibiniz biraz daha kolaylaşır...