Ĺadny brzuch
Jak w delphi 7 zrobić by o określionej godzinie program wykonał określone zadanie???
Możesz dodać swój program do harmonogramu zadań (czy jak to tam się nazywa) albo możesz w timerze dać coś takiego
if FormatDateTime('hh:nn', time) = ('15:54') then coś tam robisz :)
Użytkownik -=PcSA=- edytował ten post 25 luty 2005, 15:54
Coś mi to niedziała:(
Projekt się kompiluje ale kiedy mija określona godzina nic się niedzieje:(
Spójrz do góry już poprawiłem ten kod :) napewno działa :)
możesz to zrobić:
to dajesz w TTimer i dajesz komponent Label oraz MaskEdit1
Label1.Caption := TimeToStr(Time); if Label1.caption = MaskEdit1.Text then begin if FileExists('P1.WAV') then // sprawdza czy plik P1.WAV istnieje begin // w przeciwnym razie nie wykona zadania //odtwarzanie pliku muzycznego PlaySound('P1.WAV', 0, SND_FILENAME or SND_ASYNC); showmessage('wlasnie nadeszla twoja godzina, aby zakączyc granie wcisnij przycisk X'); end else // ta instrukcja wykonana będzie w tedy gdy warunek if FileExists('P1.WAV') then nie jest spelniony showmessage('pliku o nazwie P1.WAV nie znaleziono, aby naprawic problem wystarczy skopiowac dowolny plik muzyczny w formacie *.wav o nazwie P1.WAV do glownego katalogu programu parobek'); end; end;
troszkę to marne ale działa... :D
dodajesz tylko coś aby siedzialo w tray i wsio... ;)
a był bym zapomniał aby działała ta instr.. PlaySound('P1.WAV', 0, SND_FILENAME or SND_ASYNC);
w uses dajesz mmSystem ;)
heheh to był mój pierwszy program :clap:
Dzięki -=PcSA=- Twój kod działa :) :) :) :) :) :) :) :)
zapomiałem dodać że chciałbym aby godzine i minute ustalały 2 komponenty spinedit
if FormatDateTime('hh:nn', time) = IntToStr(SpinEdit1.Value)+':'+ IntToStr(SpinEdit2.value) then coś tam robisz :)
SpinEdit1 - to godzina //pamiętaj maks to 23 :)
SpinEdit2 - to minuty // oczywiście maks to 59 ;)
Użytkownik -=PcSA=- edytował ten post 25 luty 2005, 17:05
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Możesz dodać swój program do harmonogramu zadań (czy jak to tam się nazywa) albo możesz w timerze dać coś takiego
if FormatDateTime('hh:nn', time) = ('15:54') then coś tam robisz :)
Użytkownik -=PcSA=- edytował ten post 25 luty 2005, 15:54
Coś mi to niedziała:(
Projekt się kompiluje ale kiedy mija określona godzina nic się niedzieje:(
Spójrz do góry już poprawiłem ten kod :) napewno działa :)
możesz to zrobić:
to dajesz w TTimer i dajesz komponent Label oraz MaskEdit1
Label1.Caption := TimeToStr(Time); if Label1.caption = MaskEdit1.Text then begin if FileExists('P1.WAV') then // sprawdza czy plik P1.WAV istnieje begin // w przeciwnym razie nie wykona zadania //odtwarzanie pliku muzycznego PlaySound('P1.WAV', 0, SND_FILENAME or SND_ASYNC); showmessage('wlasnie nadeszla twoja godzina, aby zakączyc granie wcisnij przycisk X'); end else // ta instrukcja wykonana będzie w tedy gdy warunek if FileExists('P1.WAV') then nie jest spelniony showmessage('pliku o nazwie P1.WAV nie znaleziono, aby naprawic problem wystarczy skopiowac dowolny plik muzyczny w formacie *.wav o nazwie P1.WAV do glownego katalogu programu parobek'); end; end;
troszkę to marne ale działa... :D
dodajesz tylko coś aby siedzialo w tray i wsio... ;)
a był bym zapomniał aby działała ta instr.. PlaySound('P1.WAV', 0, SND_FILENAME or SND_ASYNC);
w uses dajesz mmSystem ;)
heheh to był mój pierwszy program :clap:
Dzięki -=PcSA=- Twój kod działa :) :) :) :) :) :) :) :)
zapomiałem dodać że chciałbym aby godzine i minute ustalały 2 komponenty spinedit
if FormatDateTime('hh:nn', time) = IntToStr(SpinEdit1.Value)+':'+ IntToStr(SpinEdit2.value) then coś tam robisz :)
SpinEdit1 - to godzina //pamiętaj maks to 23 :)
SpinEdit2 - to minuty // oczywiście maks to 59 ;)
Użytkownik -=PcSA=- edytował ten post 25 luty 2005, 17:05