Ĺadny brzuch
Witam,
Piszę sobie prosty programik który ma wyświetlać kilka informacji o systemie...
Ale jako że jestem początkujący mam pewne problemy :(
Czy któryś z forumowiczów wie jak wyświetlić w labelu:
1. Ilość wolnej pamięci ram
2. Aktualny utwór w winampie / windows media player
3. Temperatura procesora
4. Czas uruchomienia komputera
5. Aktualnie przeglądaną stronę www
6. Ilośc wolnego miejsca na dysku
7. Nazwe użytkownika
8. Nazwe komputera
Za wszelką pomoc - dzięki :)
Ale kogo to ma być program? Wszystkich, tylko nie Twój?
1. http://4programmers....C4%99ci_systemu
2. Z FindWindow i innymi pokombinuj może
3. http://4programmers....ormacje_o_dysku - tylko, że dysku
4. Uruchamiaj Twój program przy starcie systemu i licz czas
5. Ale w czym? W IE, Firefox, Opera, ...? Wszystko da się za pomocą FindWindow + kombinowanie
6. Funkcja DiskFree
7. http://4programmers....żytkownika
8. http://4programmers....pob...komputera
Użytkownik Coldpeer edytował ten post 03 luty 2007, 13:59
Co do 4. to GetTickCount.
A jeszcze jedno pytanie...
Co zrobić aby po wpisaniu jakiegoś tekstu do TEdit skrypt podmienił go na coś innego ?
Co zrobić aby po wpisaniu jakiegoś tekstu do TEdit skrypt podmienił go na coś innego ?
jaki skrypt? O_o
mam np. TEdit, i wpisuje do niego: <godzina>
i w TLabel pojawja mi się aktualna godzina ( skrypt podmieni to na TimeToStr(Now) )
mam np. TEdit, i wpisuje do niego: <godzina>
i w TLabel pojawja mi się aktualna godzina ( skrypt podmieni to na TimeToStr(Now) )
w onchange Edit1:
if Edit1.Text = '<godzina>' then begin Label1.Caption := TimeToStr(Now); Edit1.Text := ''; end;
Z tego co wiem to w delphi nie ma skryptów xD?
Moja rada - przeczytaj jakąś książkę o delphi :P
Użytkownik owen777 edytował ten post 03 luty 2007, 21:30
Jeżeli dobrze rozumiem o co chodzi, to będzie tak jak przedstawiłem to poniżej, ale raczej o to nie chodzi bo to byłoby zbyt proste żebyś o to pytał.
if (Edit1.Text = '<godzina>') then begin // instrukcje odpowiedzialne za wyświetlenie godziny w Labelu end; if (Edit1.Text = '<coś tam innego>') then begin // instrukcje odpowiedzialne za wyświetlenie czegoś tam innego w Labelu end;
EDIT: Owen mnie wyprzedził :/ Co do książki to polecam kompendium programisty Adama Boducha.
Użytkownik Capellini edytował ten post 03 luty 2007, 21:32
ok, a jak tego będzie dużo pól i będę miał kilka TEdit ?
@Owen:
A skrypty - bo jeszcze we mnie siedzi nauka PHP :)
ok, a jak tego będzie dużo pól i będę miał kilka TEdit ?
Może spróbuj wytłumaczyć to trochę jaśniej. Napisz jak i kiedy ma się coś dziać.
Chodzi o to że mam kilka TEdit, i kilka TLabel
[_TEdit_] [_TLabel_]
[_TEdit_] [_TLabel_]
[_TEdit_] [_TLabel_]
[_TEdit_] [_TLabel_]
Co zrobić aby ten jeden kod był dostępny we wszystkich a nie tylko w tym co ma name Edit1.
Co zrobić aby tekst zmieniony pojawił się w labelu po kliknięciu przycisku ?
Użytkownik fenekpl edytował ten post 03 luty 2007, 22:09
1. Hm, chcesz zrobić Edit1 -> Label1, Edit2 -> Label2, etc, czy Edit1 -> Label1, Edit2 -> Label1 ?
2. onclick zdarzenie.
Użytkownik Coldpeer edytował ten post 03 luty 2007, 22:10
Hm, chcesz zrobić Edit1 -> Label1, Edit2 -> Label2, etc, czy Edit1 -> Label1, Edit2 -> Label1 ?
Prawie ( chyba że się pomyliłeś ), chce aby każdy Edit miał swojego Labela i w nim wyświetlał odpowiedni tekst.
To w takim razie stwórz sobie oddzielne zdarzenia dla każdego Edita.
ok...
Moge tak zrobić, ale chodziło mi głównie o to że w takim wypadku bede tego miał okropnie dużo...
No nic, dzieki za pomoc
-----------------------------
TEMAT DO ZAMKNIĘCIA
-----------------------------
ok...
Moge tak zrobić, ale chodziło mi głównie o to że w takim wypadku bede tego miał okropnie dużo...
No nic, dzieki za pomoc
-----------------------------
TEMAT DO ZAMKNIĘCIA
----------------------------- A ja jeszcze dopisze, bo widze ze ciezko idzie tu myslenie...
Robisz sobie glowny jakby procesor pracy nad tym co wpiszesz, jako parametr podajesz czy to tekst czy moze lepiej caly komponent tedit, jaklo drugi podajesz komponent tlabel i juz po problemie.
W srodku sprawdzasz co jest wpisane w edicie ktory masz jako parametr i wyswietlasz co trzeba w labelu ktory tez masz jako parametr.
A w editach funkcja wygladala by np. tak: pracuj(edit1, label1) albo pracuj(edit2, label2) - nie powtarzasz kodu x razy, tylko samo wywolanie. Jakby sie uparl to to tez by podpial pod jedno zdarzenie, ale nie zrozumiesz tego pewnie. ;)
PS.
Nie obraz sie, ale stawiasz zbyt wysokie wymaganie, nieadekwatne do Twojego poziomu wiedzy o delphi...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Piszę sobie prosty programik który ma wyświetlać kilka informacji o systemie...
Ale jako że jestem początkujący mam pewne problemy :(
Czy któryś z forumowiczów wie jak wyświetlić w labelu:
1. Ilość wolnej pamięci ram
2. Aktualny utwór w winampie / windows media player
3. Temperatura procesora
4. Czas uruchomienia komputera
5. Aktualnie przeglądaną stronę www
6. Ilośc wolnego miejsca na dysku
7. Nazwe użytkownika
8. Nazwe komputera
Za wszelką pomoc - dzięki :)
Ale kogo to ma być program? Wszystkich, tylko nie Twój?
1. http://4programmers....C4%99ci_systemu
2. Z FindWindow i innymi pokombinuj może
3. http://4programmers....ormacje_o_dysku - tylko, że dysku
4. Uruchamiaj Twój program przy starcie systemu i licz czas
5. Ale w czym? W IE, Firefox, Opera, ...? Wszystko da się za pomocą FindWindow + kombinowanie
6. Funkcja DiskFree
7. http://4programmers....żytkownika
8. http://4programmers....pob...komputera
Użytkownik Coldpeer edytował ten post 03 luty 2007, 13:59
Co do 4. to GetTickCount.
A jeszcze jedno pytanie...
Co zrobić aby po wpisaniu jakiegoś tekstu do TEdit skrypt podmienił go na coś innego ?
Co zrobić aby po wpisaniu jakiegoś tekstu do TEdit skrypt podmienił go na coś innego ?
jaki skrypt? O_o
mam np. TEdit, i wpisuje do niego: <godzina>
i w TLabel pojawja mi się aktualna godzina ( skrypt podmieni to na TimeToStr(Now) )
mam np. TEdit, i wpisuje do niego: <godzina>
i w TLabel pojawja mi się aktualna godzina ( skrypt podmieni to na TimeToStr(Now) )
w onchange Edit1:
if Edit1.Text = '<godzina>' then begin Label1.Caption := TimeToStr(Now); Edit1.Text := ''; end;
Z tego co wiem to w delphi nie ma skryptów xD?
Moja rada - przeczytaj jakąś książkę o delphi :P
Użytkownik owen777 edytował ten post 03 luty 2007, 21:30
Jeżeli dobrze rozumiem o co chodzi, to będzie tak jak przedstawiłem to poniżej, ale raczej o to nie chodzi bo to byłoby zbyt proste żebyś o to pytał.
if (Edit1.Text = '<godzina>') then begin // instrukcje odpowiedzialne za wyświetlenie godziny w Labelu end; if (Edit1.Text = '<coś tam innego>') then begin // instrukcje odpowiedzialne za wyświetlenie czegoś tam innego w Labelu end;
EDIT: Owen mnie wyprzedził :/ Co do książki to polecam kompendium programisty Adama Boducha.
Użytkownik Capellini edytował ten post 03 luty 2007, 21:32
ok, a jak tego będzie dużo pól i będę miał kilka TEdit ?
@Owen:
A skrypty - bo jeszcze we mnie siedzi nauka PHP :)
ok, a jak tego będzie dużo pól i będę miał kilka TEdit ?
Może spróbuj wytłumaczyć to trochę jaśniej. Napisz jak i kiedy ma się coś dziać.
Chodzi o to że mam kilka TEdit, i kilka TLabel
[_TEdit_] [_TLabel_]
[_TEdit_] [_TLabel_]
[_TEdit_] [_TLabel_]
[_TEdit_] [_TLabel_]
Co zrobić aby ten jeden kod był dostępny we wszystkich a nie tylko w tym co ma name Edit1.
Co zrobić aby tekst zmieniony pojawił się w labelu po kliknięciu przycisku ?
Użytkownik fenekpl edytował ten post 03 luty 2007, 22:09
1. Hm, chcesz zrobić Edit1 -> Label1, Edit2 -> Label2, etc, czy Edit1 -> Label1, Edit2 -> Label1 ?
2. onclick zdarzenie.
Użytkownik Coldpeer edytował ten post 03 luty 2007, 22:10
Hm, chcesz zrobić Edit1 -> Label1, Edit2 -> Label2, etc, czy Edit1 -> Label1, Edit2 -> Label1 ?
Prawie ( chyba że się pomyliłeś ), chce aby każdy Edit miał swojego Labela i w nim wyświetlał odpowiedni tekst.
To w takim razie stwórz sobie oddzielne zdarzenia dla każdego Edita.
ok...
Moge tak zrobić, ale chodziło mi głównie o to że w takim wypadku bede tego miał okropnie dużo...
No nic, dzieki za pomoc
-----------------------------
TEMAT DO ZAMKNIĘCIA
-----------------------------
ok...
Moge tak zrobić, ale chodziło mi głównie o to że w takim wypadku bede tego miał okropnie dużo...
No nic, dzieki za pomoc
-----------------------------
TEMAT DO ZAMKNIĘCIA
----------------------------- A ja jeszcze dopisze, bo widze ze ciezko idzie tu myslenie...
Robisz sobie glowny jakby procesor pracy nad tym co wpiszesz, jako parametr podajesz czy to tekst czy moze lepiej caly komponent tedit, jaklo drugi podajesz komponent tlabel i juz po problemie.
W srodku sprawdzasz co jest wpisane w edicie ktory masz jako parametr i wyswietlasz co trzeba w labelu ktory tez masz jako parametr.
A w editach funkcja wygladala by np. tak: pracuj(edit1, label1) albo pracuj(edit2, label2) - nie powtarzasz kodu x razy, tylko samo wywolanie. Jakby sie uparl to to tez by podpial pod jedno zdarzenie, ale nie zrozumiesz tego pewnie. ;)
PS.
Nie obraz sie, ale stawiasz zbyt wysokie wymaganie, nieadekwatne do Twojego poziomu wiedzy o delphi...