Ĺadny brzuch
Moje pytanie związane jest z aplikacją przypominajka.
POrpgram nie jest taki zły, ale przydałoby się żeby zdarzenia wyświetlały się o danej godzinie, a nie tylko w danym dniu.
czy ktoś mógłby mi pomóc. Jestem początkujący i nie bardzo mogę soie z tym poradzić.
Dzięki!
We ride together
We die together
Bad Boys for life...
jesteś początkującym więc musisz nauczyć się szukać i korzystać z F1 więc TimeToStr() + F1 i if ... then teraz pomyśl jak to zrobić. W programowaniu najważniejsza jest umiejętność myślenia
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Masz taką zmienną jak data ... Więc do klasy TZdarzenie dodaj zmienną czas:string ... Potem w kazdym miejscu gdzie jest obsluga zmiennej data dodajesz podobna obsluge zmiennej czas :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Wszystko fajnie, tylko....ja siedzę nad tym od 3 godzin i nic..
Próbowałem dodać komendę czas:string; - ok, ale mam problem z odczytaniem czasu... Chciałem zrobić pole gdzie wpisze godzinę alarmu, zapisze do pliku, a potem odczytam i sprawdzę, ale nie mam pojecia jak przekształcić tą godzinę...
POMOCY!!
We ride together
We die together
Bad Boys for life...
Jeśli chodzi o odczytanie godziny:
var czas : TDateTime; begin Czas := Now; end;
Jak chcesz zmienić czas na string to pisz TimeToStr(czas).
Dobra....Dodałem czas do danych,zapisuje go w pliku..
Ale dalej nie mam pojęcia jak zrobić, żeby porównywał czas zdarzenia z czasem rzeczywistym. Jak to zrobiłem to po kilkunastu sek program się 'rozpadł' (zawiesił się i wyłączył).
Kapa...
We ride together
We die together
Bad Boys for life...
daj kod jak to porownujesz
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
ja to bym zrobił tak!
przypisujesz np do labela czas i datę
Label1.Caption := TimeToStr(Time);
Label2.Caption := DateToStr(Date);
teraz wpisujesz z pliku do edita (tu sam musiż sobie zrobić)
następnie porównujesz edit z labelem
if Label1.caption = Edit1.Text then
instrukcje do wykonania
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Ja juź nie mogę...
Nie mam pojęcia jak to zrobić. Jak w końcu coś się udawało, to program się wysypywał, albo nie zapisywał nix do pliku.
Pytałem kumpla w szkole(jest zawanasowany) ale nie mógł mi pomóc...
Siedziałem dzisiaj ponad 3 godziny i nic...
Problem polega na tym, że ten programik który chce zrobić(wiem że go przepisałem, ale chce go trochę zmodyfikować) jest na moje lekcję infy w budzie jako praca z programowania.
Help!!:cry:
We ride together
We die together
Bad Boys for life...
cytat:vellkan napisał:
Ja juź nie mogę...
Nie mam pojęcia jak to zrobić. Jak w końcu coś się udawało, to program się wysypywał, albo nie zapisywał nix do pliku.
Pytałem kumpla w szkole(jest zawanasowany) ale nie mógł mi pomóc...
Siedziałem dzisiaj ponad 3 godziny i nic...
Problem polega na tym, że ten programik który chce zrobić(wiem że go przepisałem, ale chce go trochę zmodyfikować) jest na moje lekcję infy w budzie jako praca z programowania.
Help!!:cry:
wiesz mam podobnie nie raz mam już chwile załamania nerwowego więc
na dziś rób przerwę a jutro myśl dalej puźniej pomysł sam przyjdzie jak to zrobić :lol:
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
No kurcze podaj mi fragmenty kodu zwiazane z czasem to ci pomoge
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Migajek - wysłałem Ci na mail'a ten program. Zerknij w wolnej chwili na ten kod.
Dzięki.
We ride together
We die together
Bad Boys for life...
Z tego co się domyślam to chcesz w pliku zapisać godzinę, o której ma być wykonana pewna procedura w Twoim programie. Nie wiem, czy o to Ci chodzi, ale jeśli tak to napisałem taki kodzik:
procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.LoadFromFile('Plik_z_godziną'); //1 end; procedure TForm1.Timer1Timer(Sender: TObject); var Zd, Czas : TDateTime; //2 zh, zm, zs, zms, ch, cm, cs, cms : Word; //2 begin Czas := Now; //3 Label1.Caption := TimeToStr(Czas); //3 DecodeTime(Czas, ch, cm, cs, cms); //3 try //6! Zd := StrToTime(Memo1.Lines[0]); //4 DecodeTime(Zd, zh, zm, zs, zms); //4 if ch > zh then Caption := 'Tak'; //5 if ch < zh then Caption := 'Nie'; if ch = zh then begin if cm > zm then Caption := 'Tak'; if cm < zm then Caption := 'Nie'; if cm = zm then begin if cs >= zs then Caption := 'Tak'; if cs < zs then Caption := 'Nie'; end; end; //5 Except on EConvertError do //6 ShowMessage('To nie jest poprawna godzina!'); //6 end; end;
Pierwsze co muszę Ci powiedzieć to to, że na formę dodajesz Timer1 i Memo1, a teraz do kolejnych punktów:
1. Wczytuje do Memo1 plik, w którym zapisałeś godzinę w formacie gg:mm:ss;
2. Deklaracja potrzebnych zmiennych;
3. Sprawdza aktualny czas, zapisuje go do Label(nie jest to konieczne!) i rozbija czas ma godz. min. i sek;
4. Sprawdza czas z pliku i rozbija go;
5. Porównanie czasów - czy procedura ma być wykonana.
6. Jeśli w Memo1 jest podana niewłaściwa godz. to wywala message(możesz dać tam exit) np: 20:62:210;
W punkci 5. w miejscach gdzie jest Caption := 'Tak'; dajesz procedurę np: ShowMessage('To już czas');a tam gdzie jest Caption := 'Nie'; możesz wpisać exit;
I to już wszystko - mam nadzieję, że zrozumiałeś i że o to chodziło. Teraz kładę się spać, bo od rana czekają mnie sprawdziany :cry:
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
POrpgram nie jest taki zły, ale przydałoby się żeby zdarzenia wyświetlały się o danej godzinie, a nie tylko w danym dniu.
czy ktoś mógłby mi pomóc. Jestem początkujący i nie bardzo mogę soie z tym poradzić.
Dzięki!
We ride together
We die together
Bad Boys for life...
jesteś początkującym więc musisz nauczyć się szukać i korzystać z F1 więc TimeToStr() + F1 i if ... then teraz pomyśl jak to zrobić. W programowaniu najważniejsza jest umiejętność myślenia
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Masz taką zmienną jak data ... Więc do klasy TZdarzenie dodaj zmienną czas:string ... Potem w kazdym miejscu gdzie jest obsluga zmiennej data dodajesz podobna obsluge zmiennej czas :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Wszystko fajnie, tylko....ja siedzę nad tym od 3 godzin i nic..
Próbowałem dodać komendę czas:string; - ok, ale mam problem z odczytaniem czasu... Chciałem zrobić pole gdzie wpisze godzinę alarmu, zapisze do pliku, a potem odczytam i sprawdzę, ale nie mam pojecia jak przekształcić tą godzinę...
POMOCY!!
We ride together
We die together
Bad Boys for life...
Jeśli chodzi o odczytanie godziny:
var czas : TDateTime; begin Czas := Now; end;
Jak chcesz zmienić czas na string to pisz TimeToStr(czas).
Dobra....Dodałem czas do danych,zapisuje go w pliku..
Ale dalej nie mam pojęcia jak zrobić, żeby porównywał czas zdarzenia z czasem rzeczywistym. Jak to zrobiłem to po kilkunastu sek program się 'rozpadł' (zawiesił się i wyłączył).
Kapa...
We ride together
We die together
Bad Boys for life...
daj kod jak to porownujesz
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
ja to bym zrobił tak!
przypisujesz np do labela czas i datę
Label1.Caption := TimeToStr(Time);
Label2.Caption := DateToStr(Date);
teraz wpisujesz z pliku do edita (tu sam musiż sobie zrobić)
następnie porównujesz edit z labelem
if Label1.caption = Edit1.Text then
instrukcje do wykonania
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
Ja juź nie mogę...
Nie mam pojęcia jak to zrobić. Jak w końcu coś się udawało, to program się wysypywał, albo nie zapisywał nix do pliku.
Pytałem kumpla w szkole(jest zawanasowany) ale nie mógł mi pomóc...
Siedziałem dzisiaj ponad 3 godziny i nic...
Problem polega na tym, że ten programik który chce zrobić(wiem że go przepisałem, ale chce go trochę zmodyfikować) jest na moje lekcję infy w budzie jako praca z programowania.
Help!!:cry:
We ride together
We die together
Bad Boys for life...
cytat:vellkan napisał:
Ja juź nie mogę...
Nie mam pojęcia jak to zrobić. Jak w końcu coś się udawało, to program się wysypywał, albo nie zapisywał nix do pliku.
Pytałem kumpla w szkole(jest zawanasowany) ale nie mógł mi pomóc...
Siedziałem dzisiaj ponad 3 godziny i nic...
Problem polega na tym, że ten programik który chce zrobić(wiem że go przepisałem, ale chce go trochę zmodyfikować) jest na moje lekcję infy w budzie jako praca z programowania.
Help!!:cry:
wiesz mam podobnie nie raz mam już chwile załamania nerwowego więc
na dziś rób przerwę a jutro myśl dalej puźniej pomysł sam przyjdzie jak to zrobić :lol:
Asdef
Rekrutacja na redaktorów: www.kanalia.toya.net.pl kontakt kanalia@poprostu.net
Szukam programistów (Delphi, C++, i inne) speców od systemów(Linux i inne) twórców muzy w (FL studio, Dj)oraz grafików (3D..2D każdy prog.) - pisanie artykułów oraz robienie kursów i tutoriali każda pomoc mile widziana? FAQ Delphi uczestników forum
Chcę zrobić coś wielkiego pomóżcie mi w rozkwicie serwisu ;)
No kurcze podaj mi fragmenty kodu zwiazane z czasem to ci pomoge
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Migajek - wysłałem Ci na mail'a ten program. Zerknij w wolnej chwili na ten kod.
Dzięki.
We ride together
We die together
Bad Boys for life...
Z tego co się domyślam to chcesz w pliku zapisać godzinę, o której ma być wykonana pewna procedura w Twoim programie. Nie wiem, czy o to Ci chodzi, ale jeśli tak to napisałem taki kodzik:
procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Lines.LoadFromFile('Plik_z_godziną'); //1 end; procedure TForm1.Timer1Timer(Sender: TObject); var Zd, Czas : TDateTime; //2 zh, zm, zs, zms, ch, cm, cs, cms : Word; //2 begin Czas := Now; //3 Label1.Caption := TimeToStr(Czas); //3 DecodeTime(Czas, ch, cm, cs, cms); //3 try //6! Zd := StrToTime(Memo1.Lines[0]); //4 DecodeTime(Zd, zh, zm, zs, zms); //4 if ch > zh then Caption := 'Tak'; //5 if ch < zh then Caption := 'Nie'; if ch = zh then begin if cm > zm then Caption := 'Tak'; if cm < zm then Caption := 'Nie'; if cm = zm then begin if cs >= zs then Caption := 'Tak'; if cs < zs then Caption := 'Nie'; end; end; //5 Except on EConvertError do //6 ShowMessage('To nie jest poprawna godzina!'); //6 end; end;
Pierwsze co muszę Ci powiedzieć to to, że na formę dodajesz Timer1 i Memo1, a teraz do kolejnych punktów:
1. Wczytuje do Memo1 plik, w którym zapisałeś godzinę w formacie gg:mm:ss;
2. Deklaracja potrzebnych zmiennych;
3. Sprawdza aktualny czas, zapisuje go do Label(nie jest to konieczne!) i rozbija czas ma godz. min. i sek;
4. Sprawdza czas z pliku i rozbija go;
5. Porównanie czasów - czy procedura ma być wykonana.
6. Jeśli w Memo1 jest podana niewłaściwa godz. to wywala message(możesz dać tam exit) np: 20:62:210;
W punkci 5. w miejscach gdzie jest Caption := 'Tak'; dajesz procedurę np: ShowMessage('To już czas');a tam gdzie jest Caption := 'Nie'; możesz wpisać exit;
I to już wszystko - mam nadzieję, że zrozumiałeś i że o to chodziło. Teraz kładę się spać, bo od rana czekają mnie sprawdziany :cry: