ljstojanovic

Materijal za Racunarstvo i informatiku

Kvadrat koji menja boju-timer komponenta

Posted by Ljiljana Stojanovic na 9. novembra 2016.

Zadatak: na formu postaviti timer, button i shape komponente. Obezbediti da  klikom na dugme radi kvadrat menja boje(naizmenicno crvena i bela).

forma1

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer2.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Shape1.Brush.Color = clRed then Shape1.Brush.Color:= clWhite else Shape1.Brush.Color:= clRed;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;

Domaci zadatak: Uraditi zadatak koji simulira rad semafora.

Advertisements

Ostavite odgovor

Popunite detalje ispod ili pritisnite na ikonicu da biste se prijavili:

WordPress.com logo

Komentarišet koristeći svoj WordPress.com nalog. Odjavite se / Promeni )

Slika na Tviteru

Komentarišet koristeći svoj Twitter nalog. Odjavite se / Promeni )

Fejsbukova fotografija

Komentarišet koristeći svoj Facebook nalog. Odjavite se / Promeni )

Google+ photo

Komentarišet koristeći svoj Google+ nalog. Odjavite se / Promeni )

Povezivanje sa %s

 
Mrzm smglsnk

Jelena Pavlović

Računarstvo i informatika

Gimnazija "Svetozar Marković" Niš

Časovi računarstva

materijali za učenike gimnazije u Vrbasu

Učimo informatiku 2

--- seniori ---

Blogdan

Here unreal things and unreal people get a real shape. And vice versa.

Informatika

Word, Excel, Moodle i još ...

Blog Jaka Šifra | IT Blog Srbija

Materijal za Racunarstvo i informatiku

Vežbe i testovi iz računarstva i informatike i matematike

Zorica Beguš, profesor matematike i računarstva i informatike u Šabačkoj gimnaziji

Наталија Прерадов

гимназија "20. октобар" Бачка Паланка

%d bloggers like this: