farklı zamandalarda timer ile melodi çalmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- r_korkmaz44
- Üye
- Mesajlar: 63
- Kayıt: 11 Ara 2005 01:00
farklı zamandalarda timer ile melodi çalmak
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.
Re: farklı zamandalarda timer ile melodi çalmak
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.
Kodlarını o Form için tam bir paylaş bakalım nerede hata yapıyorsunuz.
Bir kelimenin anlamını öğretsen bile yeter..
- r_korkmaz44
- Üye
- Mesajlar: 63
- Kayıt: 11 Ara 2005 01:00
Re: farklı zamandalarda timer ile melodi çalmak
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
- Üye
- Mesajlar: 63
- Kayıt: 11 Ara 2005 01:00
Re: farklı zamandalarda timer ile melodi çalmak
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
- Üye
- Mesajlar: 63
- Kayıt: 11 Ara 2005 01:00
Re: farklı zamandalarda timer ile melodi çalmak
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
Re: farklı zamandalarda timer ile melodi çalmak
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
//timer3.enabled:=false;
bunu
timer3.enabled:=True;
olarak değiştirmeyi denermisiniz. intervalide 1000 yapın saniye mask editte saniye varsa