farklı zamandalarda timer ile melodi çalmak

[r_korkmaz44]

farklı saatlerde aynı müziği çaldırmak istiyorum. Öğrenci saatleri 10:00 ve 11:00 olabilir. Ben bunları maskeditleri kullanarak yaptım. mediaplayer1 deki müzik hem 10:00 da hem saat 11:00 de çalsın. timerlar ile ilgili sıkıntım var. size vereceğim adresten kodlara bakarak birşeyler yapabilirmisiniz? Şimdiden yardımlarınız için teşekkür eder çalışmalarınızda başarılar dilerim. SAYGILAR. Bu arada fazla zamanımda yok.

[conari]

Bu kaçıncı açtığın başlık bilmiyorum.
Kodlarını o Form için tam bir paylaş bakalım nerede hata yapıyorsunuz.

[r_korkmaz44]

Kod: Tümünü seç

procedure TForm2.Timer3Timer(Sender: TObject);
var
a,b,C:string;
//Tarih : TDate;
//Deger : Integer;
gun:integer;
begin

//Tarih := Date; // Bugünkü tarih
//Deger := DayOfWeek(Tarih); // Aktar
//deger:=deger-1;

//If Deger=1 Then
//begin
gun:=dayofweek(date);
a:=maskedit1.text;
C:=maskedit2.text;
b:=Copy(timetostr(now),1,5);
if (a=b) and (gun=2) then
begin
//timer1.enabled:=false;
//timer2.enabled:=false;
timer3.enabled:=false;
//timer4.enabled:=false;
//timer5.enabled:=false;
//mediaplayer2.close;
timer3.interval:=45000;
//PlaySound('C:\proje\Melodiler\Ogrenci Giris Zili.mp3', 0, SND_FILENAME + SND_ASYNC);
mediaplayer2.filename:='C:\proje\Melodiler\Ogrenci Giris Zili.mp3';
mediaplayer2.Open;
mediaplayer2.play;

timer6.enabled:=true;

end;

end;

Kod: Tümünü seç

procedure TForm2.Timer6Timer(Sender: TObject);
begin
//timer3.enabled:=false;
 //mediaplayer2.stop;
mediaplayer2.close;


end;

[r_korkmaz44]

maskedit1 de ki saatte de aynı müziği çalacak maskedit2 de de aynı müziği çalacak. bende maskedit1 de çalıyo ama maskedit2 deki saatteki saate gelince olmuyo. anlamadım gitti.sanırım timer6 daki intervalden kaynaklanıyor. intervalini 10000 yapıyom olmuyor

Kod: Tümünü seç

procedure TForm2.Timer3Timer(Sender: TObject);
var
a:string;
i,gun:integer;
begin
gun:=dayofweek(date);
b:=Copy(timetostr(now),1,5);
for i:=1 to 63 do
begin
a:=TMaskEdit(FindComponent('MaskEdit' + IntToStr(i))).text;
if (a=b) and (gun=2) then
begin
timer3.enabled:=false;
mediaplayer2.close;
timer3.interval:=45000;
mediaplayer2.filename:='C:\proje\Melodiler\Ogrenci Giris Zili.mp3';
mediaplayer2.Open;
mediaplayer2.play;
timer6.enabled:=true;
end;
 end;
end;

Kod: Tümünü seç

procedure TForm2.Timer6Timer(Sender: TObject);
begin
Timer6.Enabled := False;
try
mediaplayer2.stop;
except
end;

[r_korkmaz44]

Arkadaşlar timerlerin internal değerleri ne olmalı ve gönderdiğim kodlarda bir problem var mı? Şimdiden teşekkür ederim.Yardımlarınızı bekliyorum

[khanco]

timer6 daki kapattığınız
//timer3.enabled:=false;
bunu
timer3.enabled:=True;
olarak değiştirmeyi denermisiniz. intervalide 1000 yapın saniye mask editte saniye varsa