jak zrobić aby program odliczał 3 godz a potem...

[-=silkroad=-]

...dawawł sygnał

 

[milosz0010]

np Timer ustaw na 1000ms, wstaw label i kod

var

odl : integer:

W on createformy

odl:=0;

A w timerze wstaw

Inc(a);

Label1.Caption:=IntToStr(a);

if a:=(3 godziny w ms) then

showmessage('Właśnie minęły 3 godziny!)

 

[darkhaker]

w tym kodzie jest żeby wpisać ile godzin w ms a po co to w ms
A nie lepiej tak

w timerze tak jak kolega napisał

Var

abc : intiger;

w oncreate

abc:=0;

w timerze (kod)

Inc(a);

Label1.Caption := IntToStr(a)

if a:=(3) then showmessage('Minęły właśnie 3 godziny"); Beep;

a w buttonie

Timer1.Enabled := True;

Objaśnienie
Beep; - Wydaje dzwięk z głośników
w label1 wpisujesz 3 i start(button) i gdy odliczy ci te 3 godziny słychac dzwięk w głośnikach i wyskakuje wiadomość


Kapujesz ??


PS W timerze ustaw Enabled := false

 

[milosz0010]

sorry za offtop:
??
Gdzie w twoim kodzie sa godziny????? :glupek2: :glupek2:
Z twojego kody wynika ze powiadomienie sie wlaczy po 3 s

 

[darkhaker]

gdzie ty tu widzisz błąnd

 

[lol_ek]

Originally posted by milosz0010
np Timer ustaw na 1000ms, wstaw label i kod

if a:=(3 godziny w ms) then

showmessage('Właśnie minęły 3 godziny!)

Błąd ;]




Ja bym zrobił trochę inaczej

W chwili rozpoczęcia odliczania przestawiamy zmienną MyDate :TDateTime; tak by wskazywała na datę początkową: MyDate := Now;

Potem sprawdzamy warunek:

if IncHour(MyDate,3) > Now

  then

    ShowMessage('');

Używanie timera jako licznika i to z interwałem sekundowym w rezultacie może dać dosyć spore przekłamania.

 

[milosz0010]

Originally posted by darkhaker
gdzie ty tu widzisz błąnd

Np tu

Lol ek, napisal to w wygodniejszy i dokladniejszy sposob.

 

[nitr0]

najlepiej chyba po prostu tak :
Timer.Interval := 10800000;

onTimer

ShowMessage('Trzy godziny w plecy :P');

i z głowy

program co trzy godziny będzie wyświetlał komunikat

 

[-=silkroad=-]

Var
abc : intiger;[/b]

tu mam błąd

 

[milosz0010]

Ucz sie podstaw.... To jest typ zmiennej, nie intiger ale integer.

 

[nitr0]

Originally posted by darkhaker
w timerze tak jak kolega napisał
Kod:

Var
abc : intiger;

jedzie na maxa xD nawet nie czyta <lol>

 

[-=silkroad=-]

może inny dźwięk niż Beep;

 

[darkhaker]

można użyć np . Jakiejś MP3 albo Wave (nie wiem czy dobrze napisałem xd)

 

[-=silkroad=-]

a jak?

 

[milosz0010]

Srak, czytaj, googluj kur**. Np MediaPlayerem....

 

[-=silkroad=-]

oooo THX za odkrycie ameryki ale o tym to nawet i ja wiem

 

[akselekbezelek]

Originally posted by =silkroad=-
oooo THX za odkrycie ameryki ale o tym to nawet i ja wiem

a a ja wiem jak to zrobic w prosty sposob
1.Timer na forme
2.Inerval timera 60 x 1000 x 180 = ... oblicz sobie i to wpisz w interval timera
3.i do timera kodzik na otwarcie strony ale od tego jest 4p , uc, google

 

[milosz0010]

Originally posted by =silkroad=-+--><div class='quotetop'>CYTAT(-=silkroad=-)</div>

a jak?[/b]

<!--QuoteBegin--=silkroad=-
oooo THX za odkrycie ameryki ale o tym to nawet i ja wiem

To sie zdecyduj.... :glupek2: :glupek2:

google.pl>MediaPlayer Delphi