Delphi Forum

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

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

procedure TForm2.Timer3Timer(Sender ...

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 ...

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 ...

Sayın hocam dediğinizi yaptım yalnız olmadı.Bunu ben mediaplayer yerine playsound komutunu vererek yapsam olurmu peki.mediaplayerde bir türlü 2. saat gelince aynı mediaplayeri çalıştıramadım.şimdiden teşekkürler.

hocam internal değeri 45000,ayrıca try except için bu değerler nereye yazılacak.

bunu başka şekilde nasıl gercekleştirebilirim.
Aynı mediaplayerden aynı müziği farklı saatlerde çaldıracam. amacım bu

mediaplayer zaten open ile açıldı sanırım. bunu durdurmak veya farklı saatlerde aynı mediaplayerden çaldırmak için ne yapmam gerekir. şimdiden teşekkürler.

Ben maskeditteki saat ile sistem saati aynı olunca müzik çaldırmak istiyorum. Yalnız şöyle olacak. Örneğin saat 13:00 te mediaplayer1 de müzik çalacak. Saat 15:00 te yine mediaplayer1 de çalacak. Şimdi saat 13:00 olduğu zman çalıyor ama saat 15:00 çalmıyor.Sebebide mediaplayer1'in play düğmesi ...

Ben maskeditteki saat ile sistem saati aynı olunca müzik çaldırmak istiyorum. Yalnız şöyle olacak. Örneğin saat 13:00 te mediaplayer1 de müzik çalacak. Saat 15:00 te yine mediaplayer1 de çalacak. Şimdi saat 13:00 olduğu zman çalıyor ama saat 15:00 çalmıyor.Sebebide mediaplayer1'in play düğmesi ...

Arkadaşlar şöyle yazdım olmadı. acaba nasıl yazmalıyım
(table1ogr1.text ---- table1ogr2.text şekliğnde olması için)

While i<=63 do begin

Ttable1(fieldbyname('ogr'+inttostr(i))):=TMaskEdit(FindComponent('MaskEdit' + IntToStr(i))).text;

Arkadaşlar aşağıdaki tablodaki döngüyü nasıl yazarım

var
i,j:integer;
begin
------
------
i:=3;
j:=1;
While i<=63 do begin
-------
-------
Ttable1(FindComponent('table1ogr' + IntToStr(j))).text:=TMaskEdit(FindComponent('MaskEdit' + IntToStr(i))).text;
end;
döngüdeki table1ogr1.text ---- table1ogr2 ...

Arkadaşlar maskedit1 ve maskedit2 deki saatler dolunca melodi açlıyo.benim istediğim şu: timer1 de Ontimer kısmında maskedit1 de süre dolunca melodi çalıyor.aynı timer1 de bu maskedit2 deki süre dolunca yine aynı müziği çaldıracam.

yani aynı müziği farklı saatlerde çaldıracam. bunu nasıl ...

Selam arkadaşlar;
Bir proje üzerinde çalışmaktayım.Veritabanı kullanmadan gerçekleştirmek istiyorum.
Maskedit1 Maskedit2 Maskedit3 gibi elemanlarını deneme.txt dosyasına alt alta yazdıracam.Programı açıp kapandığı anda maskedit1 maskedit2 maskedit3 te deneme.txt ye kaydettirilenler sırayla gelecek ...

Hocam yaptım. yalnız timer.enabled:=false yapmadan çalıştı.Acaba bunu nasıl kullanırız kodda.
şimdi ben diyom acaba diyelimki müzik 30sn gibi birşey olacak interval 30000 yaparım olur. ama diyelimki müzik 3 dk.
yani müziğin süresi ne olursa olsun 30sn çalacak.bunu intervalle yaparım. diyelimki müzik ...

Hocam benim istediğim maskeditteki saat ile sistem saati aynı olunca melodi çalsın. bunun
kısa bir yolu yokmu acaba .ben 1 sn değil zamanı gelince calacak ve duracak. nereye düzenlemem lazım acaba