Saat uygulaması
Lazarus ile saat yapıyoruz
Giriş
Free Pascal ve Lazarus diğer işletim sistemleri için de çalıştırılabilir kütük üretebiliyor.
Bu teknik olarak çok ilginç bir özellik.
Geliştirdiğimiz uygulamanın kaynak kütüklerine bakarsanız diğer işletim sistemi için de çalıştırılabilir kütüklerin üretildiğini görebilirsiniz.
Bu kütükler Arch Linux altında üretildi.
Saat uygulaması
Bu sefer Allah’ın izniyle basit bir saat uygulaması geliştireceğiz.
Lazarus açıldıktan sonra Dosya->Yeni->Uygulama yolunu takip edip TAMAM düğmesine basarak yeni bir uygulama oluşturalım.
Dosya->Kaydet yolunu izleyerek uygulamayı saat.lpi ismi ile kaydedelim.
Kaynak kütüğünün adını da ana.pas olarak değiştirelim ve kaydedelim.
Sol tarafta bulunan Nesne denetçisinden Form1’in Caption özelliğini Saat olarak değiştirelim.
İsterseniz Proje->Proje Seçenekleri->Başlık yolunu takip ederek uygulamanın başlığını da değiştirebilirsiniz.
Standard bölümünden bir etiket Label1 ekleyelim. Etiket olduğunu üzerindeki Abc ifadesinden görebilirsiniz.
Etiketin Caption özelliğini yani başlığını gene Nesne denetçisinden --:-- olarak değiştirelim.
Standard bölümünden bir giriş kutusu Edit1 ekleyelim. Giriş kutusu olduğunu üzerindeki ab ifadesinden görebilirsiniz. Giriş kutusunun Text özelliğini silelim.
Dilerseniz tüm bu bileşenler için Font Size özelliğini metin boyutunu 15 yapabilirsiniz.
System bölümünden bir zamanlayıcı Timer1 ekleyelim. Zamanlayıcı olduğunu üzerindeki saat simgesinden görebilirsiniz.
Standard bölümünden iki tane etiket ekleyelim : Label2 ve Label3
Bunların da başlığını Caption sırasıyla Saat ve Alarm olarak değiştiriniz.
Öncekilerde olduğu gibi eğer isterseniz, bu bileşenler için Font Size özelliğini metin boyutunu 15 yapabilirsiniz.
Bileşenleri biraz hizaladıktan sonra tasarımımız aşağıdaki gibi oldu :
Şimdi zamanlayıcıyı Timer1 çift tıklayıp içine şunları girelim :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := FormatDateTime('hh:nn', Time);
if (Edit1.Text = Label1.Caption) then
begin
ShowMessage('Alarm çalıyor');
Close();
end;
end;
Burada FormatDateTime zamanı istediğimiz biçime koyuyor. Örneğin FormatDateTime('hh:nn:ss', Time); deseydik zamanı saat, dakika ve saniyeler olarak göstermek istediğimizi belirtecektik.
FreePascal’da diğer dillerden farklı olarak atama için := ifadesi, karşılaştırma için = kullanılıyor.
Alarm saati ile saat eşit olduğunda Alarm çalıyor diye bir ileti gösteriyoruz.
Uygulamayı derleyip çalıştıralım
Uygulamayı derleyip, çalıştırmak için F9 tuşuna basınız.
Alarm çaldığı zaman da bir ileti görebilirsiniz.
Uygulamanın kaynak ve çalıştırılabilir kütüklerini buradan indirebilirsiniz.
Yorumlar