Witajcie!
Pytam o banał a dla mnie to jeszcze za wysoki próg.
Mam na formie Edit, Button i Timer. Jak zrobić aby ten Timer odliczał mi sekundy w Edicie (ale żeby po 60 sek. nie było już 0 tylko dalej liczy) no i żeby za pomocą Buttona można było zrobić na 0 ten licznik i znów liczy. Przepraszam, ale dla mnie to trudne i zwracam się z tym do Was. Za odpowiedź z góry dziękuję :)
0
0
Nie wiem czy oto chodzi ale ...
var
Form1: TForm1;
S : Cardinal;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
S := 0; //przypisanie wartosci poczatkowej
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
S := 0; //wyzerowanie
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(S); //zwieksz o 1+
Edit1.Text := IntToStr(S);
end;
0
Mitring dziękuję Ci bardzo :) O to chodziło, zeruje sobie, ale leci od 1. Nie przeszkadza mi to! :) Dzięki wielkie :) [soczek]
0
O to chodziło, zeruje sobie, ale leci od 1.
Jak chcesz widziec 0 to zmien kolejnosc w TTimer:
Edit1.Text := IntToStr(S);
Inc(S);
BTW> Paulka (jestes kobieta :> ) jak tak to gratulacje ja nie znam zadnej kobiety programistki ;( :d
0
ale ten licznik będzie nieco niedokładny jeśli program nie będzie na pierwszym planie - wina timera. Trzeba skorzystać tutaj już z wątków...
Co do BTW powyższego - ja też gratuluję :)
0
No jestem kobieta, która chce sie nauczyć programowania, a co zdziwiony?:)
Ktos nawet mi nie mów o wątkach bo i tak nie wiem o co chodzi :( No ale jeśli umiałbyś mi wyjaśnić i pokazać jak zrobić taki licznik na wątkach to byłoby super! :)
0
Właściwie, to też złożę gratulacje ;), a jak chodzi o wątki, to polecam artykuł Adama Boducha na ten temat, dostępny w dziale Artykuły. Chociaż jeśli dopiero zaczynasz, możesz nie wszystko rozumieć, ale może uda Ci się to zrobić :). Tak czy inaczej, trzymam kciuki [soczek].
0
No to tak... Na forum znalazłem, że timer na systemach Windows NT nie wymaga może specjalnych modyfikacji aby działał prawidłowo (jest w miarę stabilny). Ale na Win 9x/ME dzieją się różne rzeczy, na przykład gdy będziemy przytrzymywać pasek tytułowy formy to timer się zatrzyma. DO tego jego interwał się lekko zmienia przy na przykład dużym obciążeniu procesora bądź aplikacji. Oprócz propozycji użycia wątków mamy też propozycję użycia komponentu DxTimer z pakietu DelphiX lub gotowego opartego na wątkach komponentu TThreadTimer.
Tutaj jest kilka tematów traktujących o tym:
http://4programmers.net/Forum/viewtopic.php?id=27833&post=27833
http://4programmers.net/Forum/viewtopic.php?id=29688&post=31809
http://4programmers.net/Forum/viewtopic.php?id=39883&post=74954
PS.
Widzisz, jeszcze nie widziałem kobiety chcącej się nauczyć programowania :) Ale mam nadzieję, że taką kiedyś spotkam osobiście :)