Ramazan Geldi Programla Geldi

Merhaba Uzun zaman oldu program yazmayalı. Yani yazıpta paylaşmayalı....
Neyse çoğumuzun işine yarabileceğini düşündüğüm programı sizlerle paylaşmak istedim.
iftara ne kadar süre kaldığını hesaplıyor sadece ankara için yazdım ama programı kodlayacak olan arkadaşlar düzenleme yapabilirler.
kendi şehirlerine göre düzenleyebilirler.
programda tek sıkıntı olabilir oda pcnizin tarih formatından kaynaklanan sorun. yani 21.07.2012 yerine pcniz 07.21.2012 yada 2012.07.21 yazıyorsa hata alabilirsiniz.
programda alpha control component i kullandım görsellik açısından.

öncelikle formumuza 5 tane label ekliyoruz. ben 3 buton ekledim ama bunu 2 butonlada halledebilriiz.
2 tane listbox ekliyoruz.
listboxlar da tarih ve saatleri ayrı ayrı yazıyoruz.
Programın çalışma prensibi şöyle.
öncelikle bugunun tarihini listboxla karşılaştırıyor sonrasında ona karşılık gelen zamanı label a aktarıyor.

sonrasında bugun saat kaçta okunacaksa şuanki zamana olan farkı yayınlıyor . ben son bir ekleme daha yaptım. ezan sesi buldum. Program bi kaç sn kala mediaplayer eklentisi sayesinde ezan okuyor.  ekran görüntüsü sağda arkadaşlar.

kodlarıda aşağıda veriyorum. formumuzda boyut değişikliği olmasın die sınırladım. isteyen arkadaşlar değişiklik yapabilir. ayrıca ezan.mp3 program ile aynı klasörde olmalı.
Umarım işinize yarar








Bu fotoda Programın skin eklenmiş hali

Buradan ulaşabilirsiniz



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, sPanel, StdCtrls, sButton, sListBox, sSkinManager,
  OleCtrls, SHDocVw, MPlayer;

type
  TForm1 = class(TForm)
    sButton1: TsButton;
    sPanel1: TsPanel;
    sListBox1: TsListBox;
    sListBox2: TsListBox;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    sSkinManager1: TsSkinManager;
    Button2: TButton;
    MediaPlayer1: TMediaPlayer;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
     procedure zaman;
    procedure FormResize(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
  var
    kucuk:boolean;


  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin

for I := 0 to sListbox1.items.Count - 1 do
 begin

if datetostr(now)=sListBox1.Items[i] then
begin
label2.Caption:=sListBox2.Items[i];
end;

 end;
 zaman
end;



procedure tform1.zaman;

Var
d1, d2 : TDatetime;
Begin
  d1 := StrToTime(label2.Caption);
  d2 := StrToTime(label3.Caption);
  Label1.Caption:=(TimeToStr(d1-d2));



   if label1.Caption='00:00:03' then
   Button2.Click;

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.FileName:='ezan.mp3';
MediaPlayer1.Open;
mediaplayer1.Play;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
kucuk:=true;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
form1.Width:=505;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
if kucuk=True then
begin
form1.Height:=form1.Height+sPanel1.Height+30;
kucuk:=false;
end
else
begin
form1.Height:=form1.Height-sPanel1.Height-30;
 kucuk:=true;

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.Caption:=timetostr(now) ;
Button1.Click;

end;

end.





Geliştirmek sizin elinizde....