☰ 3. osztály - Számítástechnika és informatika

3. osztály - Számítástechnika és informatika

Objektumorientált programozás - gyakorlatok

Bevezető gyakorlatok

1. Példa - Forma bezárása

slika z1

  1. A Form1 mérete legyen 500x300 pixel.

  2. A Form1 fontja legyenek 15-ös méretűek.

  3. A Form1 címsorában írja "My first program".

  4. A Form1-re elhelyezni BitBtn1 melynek mérete 150x75 pixel.

  5. A BitBtn1 a Form1 alsó bal sarkában helyezni el.

  6. A BitBtn1 fajtája Close legyen.

  7. A BitBtn1 felirata legyen "Exit".

  8. Eseményt írni hogy a BitBtn1 kattintás bezárja a Form1-et.


Kiválasztani a Form1 és a Property Width beírni "500"

Kiválasztani a Form1 és a Property Height beírni "300"

Kiválasztani a Form1 és a Font Size beírni "15"

Kiválasztani a Form1 és a Property Caption beírni "My first program"

Kiválasztani a BitBtn1 és a Property Kind kiválasztani "bkClose"

Kiválasztani a BitBtn1 és a Property Width beírni "150"

Kiválasztani a BitBtn1 és a Property Height beírni "75"

Kiválasztani a BitBtn1 és a Property Caption beírni "Exit"

Kiválasztani a BitBtn1, megnyitni az Events, dupla kattintás az OnClick Event melletti üres fehér mezőbe és a Kód Editotba beírni "Form1.Close;"

2. Példa - Adatok bevitele és törlése

slika z2

  1. A Form1 mérete legyen 500x300 pixel.

  2. A Form1 fontja legyenek 15-ös méretűek.

  3. A Form1 címsorában írja "My second program".

  4. A Form1-re elhelyezni BitBtn1 melynek mérete 150x75 pixel.

  5. A BitBtn1 a Form1 alsó bal sarkában helyezni el.

  6. A BitBtn1 fajtája Close legyen.

  7. A BitBtn1 felirata legyen "Exit".

  8. Eseményt írni hogy a BitBtn1 kattintás bezárja a Form1-et.

  9. A Form1-re elhelyezni Label1 melyen írja "Family name".

  10. A Form1-re elhelyezni Label2 melyen írja "Name".

  11. A Form1-re a Label1 mellé elhelyezni Edit1 és kitörolni a tartalmát.

  12. A Form1-re a Label2 mellé elhelyezni Edit2 és kitörolni a tartalmát.

  13. A Form1-re a Edit1 elhelyezni Button1 melyen írja "Clear Field".

  14. A Form1-re a Edit2 elhelyezni Button2 melyen írja "Clear Field".

  15. A Button1 és a Button2 méretei 150x40 pixel.

  16. Eseményt írni hogy a Buttonok töröljék a beírt adatokat.


Kiválasztani a Form1-et és a Property Width beírni "500"

Kiválasztani a Form1-et és a Property Height beírni "300"

Kiválasztani a Form1-et és a Font.Size beírni "15"

Kiválasztani a Form1-et és a Property Caption beírni "My second program"

Kiválasztani a BitBtn1-et és a Property Kind kiválasztani "bkClose"

Kiválasztani a BitBtn1-et és a Property Width beírni "150"

Kiválasztani a BitBtn1-et és a Property Height beírni "75"

Kiválasztani a BitBtn1-et és a Property Caption beírni "Exit"

Kiválasztani a BitBtn1-et, megnyitni az Events, dupla kattintás az OnClick Event melletti üres fehér mezőbe és a Kód Editorba beírni "Form1.Close;"

Kiválasztani a Label1-et és a Property Caption beírni "Family name"

Kiválasztani a Label2-et és a Property Caption beírni "Name"

Kiválasztani az Edit1 és az Edit2 és a Property Text letörölni

Kiválasztani a Button1 és a Property Caption beírni "Clear Field"

Kiválasztani a Button2 és a Property Caption beírni "Clear Field"

Kiválasztani a Button1 és a Button2 és a Property Width beírni "150"

Kiválasztani a Button1 és a Button2 és a Property Height beírni "40"

Kiválasztani a Button1 megnyitni Events, dupla kattintás az OnClick Event melletti üres fehér mezőbe és a Kód Editorba beírni "Edit1.Text := '';"

Kiválasztani a Button2 megnyitni Events, dupla kattintás az OnClick Event melletti üres fehér mezőbe és a Kód Editorba beírni "Edit2.Text := '';"

3. Példa - Panel festés btn

slika z5

Megírni a programot hogy a megfelelő gombokra kattintva a pnl1 színe változzon a bbtnExit gomb zárja a frm1-et.

4. Példa - Panel festés check

slika z9jpg slika z9gif

Elkészíteni ezt a programot.





















Program része, a sárga check box kattintásra az esemény

procedure TfrmColor.cbYellowClick(Sender: TObject);
begin
  if cbYellow.Checked then
    begin
      pnlColor.Color := clYellow;
      cbGreen.Enabled := False;
      cbRed.Enabled := False;
      cbBlue.Enabled := False;
    end
  else
    begin
      pnlColor.Color := clBtnFace;
      cbGreen.Enabled := True;
      cbRed.Enabled := True;
      cbBlue.Enabled := True;
    end;
end;

5. Példa - Panel festés radio

slika z10jpg slika z10gif

Elkészíteni ezt a programot.





















A teljes program

procedure TfrmColor.bbtnExitClick(Sender: TObject);
begin
  frmColor.Close;
end;

procedure TfrmColor.rgColorClick(Sender: TObject);
begin
  case rgColor.ItemIndex of
    0: pnlColor.Color := clYellow;
    1: pnlColor.Color := clGreen;
    2: pnlColor.Color := clRed;
    3: pnlColor.Color := clBlue;
  end;
end;

6. Példa - Összeadás és szorzás

slika z3

  1. A Form1 mérete legyen 500x300 pixel.

  2. A Form1 fontja legyenek 15-ös méretűek.

  3. A Form1 címsorában írja "My second program".

  4. A Form1-re elhelyezni BitBtn1 melynek mérete 150x75 pixel.

  5. A BitBtn1 a Form1 alsó bal sarkában helyezni el.

  6. A BitBtn1 fajtája Close legyen.

  7. A BitBtn1 felirata legyen "Exit".

  8. Eseményt írni hogy a BitBtn1 kattintás bezárja a Form1-et.

  9. A Form1-re elhelyezni Label1-et melyen írja "Number 1".

  10. A Form1-re elhelyezni Label2-et melyen írja "Number 2".

  11. A Form1-re elhelyezni Label3-et melyen írja "Result".

  12. A Form1-re a Label1 mellé elhelyezni Edit1-et és letörölni a tartalmát.

  13. A Form1-re a Label2 mellé elhelyezni Edit2-őt és letörölni a tartalmát.

  14. A Form1-re a Label3 mellé elhelyezni Edit3-at és letörölni a tartalmát.

  15. A Form1-re az Edit1 mellé elhelyezni Button1-et melyen írja "Add".

  16. A Form1-re az Edit2 mellé elhelyezni Button2-őt melyen írja "Multiple".

  17. A Button1 és a Button2 méretei 150x40 pixel.

  18. Eseményt írni hogy a Button1 és a Button2 kattintására az Edit3-ban megjelenjenek a megfelelő eredmények (csak egész számokkal dolgozunk!).


Kiválasztani a Form1-et és a Property Width beírni "500"

Kiválasztani a Form1-et és a Property Height beírni "300"

Kiválasztani a Form1-et és a Font.Size beírni "15"

Kiválasztani a Form1-et és a Property Caption beírni "My second program"

Kiválasztani a BitBtn1-et és a Property Kind kiválasztani "bkClose"

Kiválasztani a BitBtn1-et és a Property Width beírni "150"

Kiválasztani a BitBtn1-et és a Property Height beírni "75"

Kiválasztani a BitBtn1-et és a Property Caption beírni "Exit"

Kiválasztani a BitBtn1-et, megnyitni az Events, dupla kattintás az OnClick Event melletti üres fehér mezőbe és a Kód Editotba beírni "Form1.Close;"

Kiválasztani a Label1 és a Property Caption beírni "Number 1"

Kiválasztani a Label2 és a Property Caption beírni "Number 2"

Kiválasztani a Label3 és a Property Caption beírni "Result"

Kiválasztani a Edit1, Edit2 i Edit3 i Property Text kitörölni

Kiválasztani a Button1 és a Property Caption beírni "Add"

Kiválasztani a Button2 és a Property Caption beírni "Multiple"

Kiválasztani a Button1 és a Button2 és a Property Width beírni "150"

Kiválasztani a Button1 és a Button2 és a Property Height beírni "40"

A programkód kinézete (az egyik esetben "a+b" a másodikban "a*b", a többi ugyanaz mintkét esetben)

var a, b, c : Integer;
begin
   a := StrToInt(Edit1.Text);
   b := StrToInt(Edit2.Text);
   c := a + b;
   Edit3.Text := IntToStr(c);
end;

7. Példa - Összeadás, szorzás és törlés

slika z4

  1. A Form1 mérete legyen 500x300 pixel.

  2. A Form1 fontja legyenek 15-ös méretűek.

  3. A Form1 címsorában írja "My second program".

  4. A Form1-re elhelyezni BitBtn1 melynek mérete 150x75 pixel.

  5. A BitBtn1 a Form1 alsó bal sarkában helyezni el.

  6. A BitBtn1 fajtája Close legyen.

  7. A BitBtn1 felirata legyen "Exit".

  8. Eseményt írni hogy a BitBtn1 kattintás bezárja a Form1-et.

  9. A Form1-re elhelyezni Panel1-et és letörölni a Caption-t.

  10. A Form1-re elhelyezni Label1-et melyen írja "Number 1".

  11. A Form1-re elhelyezni Label2-et melyen írja "Number 2".

  12. A Panel1-re elhelyezni Label3-et melyen írja "Result".

  13. A Form1-re a Label1 mellé elhelyezni Edit1-et és letörölni a tartalmát.

  14. A Form1-re a Label2 mellé elhelyezni Edit2-őt és letörölni a tartalmát.

  15. A Panel11-re a Label3 mellé elhelyezni Edit3-at és letörölni a tartalmát.

  16. A Form1-re elhelyezni Button1-et melyen írja "Add".

  17. A Form1-re elhelyezni Button2-őt melyen írja "Multiple".

  18. A Form1-re elhelyezni Button3-at melyen írja "Clear".

  19. A Button1, Button2 és a Button3 méretei 150x40 pixel.

  20. Eseményt írni hogy a Button1 és a Button2 kattintására az Edit3ban megjelennyenek a megfelelő eredmények (csak egész számokkal dolgozunk!).

  21. Eseményt írni hogy a Button3 kattintására az Edit1, Edit2 és Edit3 tartalma törlődjön.


Kiválasztani a Form1-et és a Property Width beírni "500"

Kiválasztani a Form1-et és a Property Height beírni "300"

Kiválasztani a Form1-et és a Font.Size beírni "15"

Kiválasztani a Form1-et és a Property Caption beírni "My second program"

Kiválasztani a BitBtn1-et és a Property Kind kiválasztani "bkClose"

Kiválasztani a BitBtn1-et és a Property Width beírni "150"

Kiválasztani a BitBtn1-et és a Property Height beírni "75"

Kiválasztani a BitBtn1-et és a Property Caption beírni "Exit"

Kiválasztani a BitBtn1-et, megnyitni az Events, dupla kattintás az OnClick Event melletti üres fehér mezőbe és a Kód Editotba beírni "Form1.Close;"

Kiválasztani a Label1 és a Property Caption beírni "Number 1"

Kiválasztani a Label2 és a Property Caption beírni "Number 2"

Kiválasztani a Label3 és a Property Caption beírni "Result"

Kiválasztani a Edit1, Edit2 i Edit3 i Property Text kitörölni

Kiválasztani a Button1 és a Property Caption beírni "Add"

Kiválasztani a Button2 és a Property Caption beírni "Multiple"

Kiválasztani a Button2 és a Property Caption beírni "Clear"

Kiválasztani a Button1, Button2 és Button3 a Property Width beírni "150"

Kiválasztani a Button1, Button2 és Button3 a Property Height beírni "40"

A programkód kinézete Button1, Button2 (az egyik esetben "a+b" a másodikban "a*b", a többi ugyanaz mintkét esetben)

var a, b, c : Integer;
begin
   a := StrToInt(Edit1.Text);
   b := StrToInt(Edit2.Text);
   c := a + b;
   Edit3.Text := IntToStr(c);
end;


A programkód kinézete Button3-ra:
begin
   Edit1.Text := '';
   Edit2.Text := '';
   Edit3.Text := '';
end;

8. Példa - Hőmérséklet számolás

slika z6

Elkészíteni ezt a programot.

K = 0C + 273.15

0F = 0C*1.8 + 32

0Re = 0C*0.8

9. Példa - Pénzváltó

slika z7

Elkészíteni ezt a programot.