tarih hatırlatıcı program için yardım

[kazimates]

kıymetli arkadaşlar,
şu anda tam olarak nasıl yapabileceğimi bilememekle birlikte önce database ileri tarihli bir gğn ve o güne ait bir not eklemek istiyorum tabi o güne ait daha fazla not girilecek ve daha sonraki tarihler içinde notlarım olacak. 2. etapda ise programımı her açtığımda şayet hatırlatıcı alanına girersem bana o güne ait olan uyarmasını istediğim notların karşıma gelmesini istiyorum bunun için kısa bir çrnek veya daha önce yazan arkadaşlar varsa nereden bulabileceğimi yazabilirlerse çok memnun kalacağım.

Sağlık, mutluluk ve başarı dileklerimle...

Kazım ATES
kazimates@yahoo.com
MSN: kazimates@hotmail.com

[aslangeri]

s.a.
eğer hatırlatici diyerek ma yaparsanız bu konu ile ilgili konuşulmuş bikaç başlık var.
temelde program açıldığı zaman tabloda o güne ait olan kayıtları sorgulayacaksınız.
eğer kayıt varsa onları gridde(veyahazılradığınız bir formda ) kullanıcıya göstereceksiniz
kolay gelsin.

[mero]

bu yaptığım ilk programlardan biri. okul ve dersaneler için zil otomasyonu. umarım mantık olarak yardımcı olur.
normal bir db ye kayıtları at. Haftanın her günü için ayrı bir metin ve saat kolonları oluştur ve forma bir tabsheet at her gün için bir page oluştur her page bir dbgrid at. ve her gride sadece bir günün kolonlarını al. forma bir timer ve bir edit ekle.
timer in on timer ına şunu yaz:

Kod: Tümünü seç

maskedit1.Text:=copy((timetostr(time)),1,5); 

sadece saat ve dakikayı kopyaler. ben mask edit kullandım. buda yazacağımız kodun her saniyede değil sadece dakikada bir sorgulanmasını sağlar. editin change in dede aşağıdaki metin tarzı bir sorgulama yaptır.

Kod: Tümünü seç

a:=dayofweek(date);//hangi gün oldğunu bul pazar 1 dir.
 table1.First;
 for d:= 0 to table1.RecordCount-1 do
   begin
//PazarTesi
  if (copy(table1pazartesi.Text,1,5)=copy((timetostr(time)),1,5))and(a=2) then
    begin
    seskontrol(65000);
     if table1yolp.Text<>'' then //ben zil çalaşacağım için yolları tuttum  sen metin tutacaksın
      begin
        if timer2.Enabled then
         begin
          mediaplayer3.Stop;
          timer2.Enabled:=false;
          timer3.Enabled:=false;
         end;
      MediaPlayer1.FileName:=table1yolp.Text;
      mediaplayer1.Close;
      mediaplayer1.Open;
      mediaplayer1.Play;

      timer4.Interval:=mediaplayer1.Length;
      timer4.Enabled:=true;
      end;
   end;
//salı........
//çarşamba........
  end;

burda sadece pazartesi için sorgulama var sen haftanın her günü için aynı sorgulama yaptıracan

[ALUCARD]

hocam merhabb bütün forumu inceledim ama işime yarar bişey bulamadım

şimdi bir zil programı yapıyorum

12 dersin bir giriş birde çıkış zilleri var bunları vt de tek satır olarak yazdım

şimdi bunları kontrol edip MediaPlayer bileşeni ile müzik çalıcam

Kod: Tümünü seç

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if DataModule2.SAAT_TABLESAATBASLAMA.AsDateTime=time() then

begin
MediaPlayer1.close;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

şeklinde bir kod yazdım ama saat belirlenen zamana gelince MediaPlayer çalmıyor
nerde hata yaptım anlamadım

bu arada saati vt de string olarak xx:xx şeklinde tutuyorum

d7 ve acces kullanıyorum

[mero]

IF deki şart gerçekleşmiyor. Kontrol et.
DataModule2.SAAT_TABLESAATBASLAMA.AsDateTime burda datetime demişsin diğer tarafta time demişsin bunlar eşit değil.

bir tarafta 12.12.2006 12:00:00
diğer tarafta 12:00:00 gibi bir ifade var.

Hata yı görmek için formun içine bir memo at

Kod: Tümünü seç

procedure TForm1.Timer2Timer(Sender: TObject); 
begin 

memo1.lines.add(datetimetostr(DataModule2.SAAT_TABLESAATBASLAMA.AsDateTime));
memo1.lines.add(timetostr(time));

if DataModule2.SAAT_TABLESAATBASLAMA.AsDateTime=time() then 
begin 
MediaPlayer1.close; 
MediaPlayer1.Open; 
MediaPlayer1.Play; 
end; 
end; 

iki tarafında timetostr() ile string e çevirirsen sorun düzelir.