Delphi -Urađen primer

Уобичајен

Ovaj primer obuhvata:

-izbor slučajnog broja

-cikličnu strukturu

image

image

Procedura za dugme “označi oba” (omogućava čekiranje oba ček boksa)

procedure TForm1.Button1Click(Sender: TObject);
begin
checkbox1.checked:=true;
checkbox2.checked:=true;
end;

Procedura za dugme “prikazi” (omogućava prikaz slučajno izabranog broja i/ili loto kombinacije)

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
randomize;
if checkbox1.Checked then edit1.Text:=inttostr(random(101)-50);
if checkbox2.Checked then
for i:=1 to 7 do
edit2.Text:= edit2.text+ ‘ ‘ + inttostr(random(101)-50);
end;

Procedura za dugme “briši” (omogućava brisanje edit boksova i  ček boksova)

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
checkbox1.Checked:=false;
checkbox2.Checked:=false;
end;

Procedura za dugme “poruka” (omogućava prikaz prozora sa porukom URAAA)

procedure TForm1.Button4Click(Sender: TObject);
begin
showmessage(‘URAAAA’);
end;

Advertisements

2 responses »

  1. Повратни пинг: Naredbe ciklusa | Učimo informatiku 2

  2. Повратни пинг: Izbor slučajnih brojeva | Učimo informatiku 2

Оставите одговор

Попуните детаље испод или притисните на иконицу да бисте се пријавили:

WordPress.com лого

Коментаришет користећи свој WordPress.com налог. Одјавите се /  Промени )

Google photo

Коментаришет користећи свој Google налог. Одјавите се /  Промени )

Слика на Твитеру

Коментаришет користећи свој Twitter налог. Одјавите се /  Промени )

Фејсбукова фотографија

Коментаришет користећи свој Facebook налог. Одјавите се /  Промени )

Повезивање са %s