![]() ![]() ![]() ![]() ![]() ![]() |
|||
|
KĄCIK DELPHI
Witam w pierwszej części kursu
(jak to oficjalnie brzmi :)) Delphi. Po pierwsze, chciałbym poinformować, że
kurs jest dla tych, którzy wiedzą czym jest Delphi, jak stworzyć pętle i
procedury. Jeśli ktoś o Delphi nie ma pojęcia to będzie miał problem
(przynajmniej przez jakiś czas), ale na pewno załapie o co chodzi. Na początek
coś prostego... Na pewno wielu z was ma Internet, a duża część internautów
posiadają modemy. Ci którzy liczą minuty, aby nie doszło do konfliktu miedzy
TPSA o zawyżone rachunki na pewno korzystają z liczników internetowych, które
można ściągnąć z wielu miejsc w Internecie. Dla bardziej ambitnych
stworzenie licznika nie powinno być problemem i właśnie od tego zaczniemy... var Teraz trochę wyjaśnię sytuację. Jako, że czas jest przedstawiany w liczbach, musimy określić sekundy, minuty i godziny jako liczby. Sekundy to będzie zawartość komponentu "Edit3", minuty "Edit2", a godziny "Edit1", więc między wyrazami begin a end wpisujemy: sec:=strtoint(edit3.text); Następnie trzeba "poruszyć" nasz zegar. W tym celu pod ostatnim wpisem umieszczamy procedurę: sec:=sec + 1; Teraz, aby nasz zegar działał klikamy na komponent "timer" i na zakładce "events" zmieniamy właściwość "ontimer" na "button1click". Gdy to uczynimy musimy jeszcze pokazać, że wszystko działa. W tym celu pod ostatnią procedurą wpisujemy: edit3.text:=inttostr(sec); Kiedy uruchomimy nasz program na pewno zauważyliście, że sekundy naliczane są w nieskończoność, a minuty i godziny ani drgną. By to poprawić wpisujemy te linie kodu: if edit3.text =
'60' then Wyjaśnijmy. Pierwsza klauzula przedstawia uaktywnia się, jeżeli licznik sekund wybije 60. Wtedy sekundy zostaną wyzerowane a do minut zostanie doliczona jedna. Druga wygląda tak samo lecz przedstawia minuty i godziny. Można by rzec, że to koniec programu, ale... zrobimy tak, by licznik nie włączał się razem z programem, a po naciśnięciu przycisku "button1". W tym celu zmieniamy właściwość "enabled" komponentu "timer" na "false", a na początku procedury kliknięcia przycisku wpisujemy: Timer1.Enabled := true; Możemy już tylko zmienić wyświetlaną nazwę na przycisku z "button1" na "START". Jeśli ktoś nie jest pewny czy nie popełnił błędu to całość pisanego kody powinna wyglądać tak:
| |||