Створення проекту в об’єктно-орієнтованому середовищі програмуванні Lasarus

TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    CheckBox3: TCheckBox;

    CheckBox4: TCheckBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Image1: TImage;

    Image2: TImage;

    Image3: TImage;

    Image4: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

      private

  public

  end;

 

 

 

 

var

  Form1: TForm1;

  c1,c2,c3,c4,t1,t2,t3:boolean;

  b1,b2,b3,b4,z:integer;

  nik,rez:string;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);                /загальні бали/

begin

  Edit3.Visible:=false;                       /поле для загальної кількості  балів  невидиме/

   c1:=CheckBox1.Checked;

   c2:=CheckBox2.Checked;

   c3:=CheckBox3.Checked;

   c4:=CheckBox4.Checked;

 

 t1:=RadioButton1.Checked;

   t2:=RadioButton2.Checked;

   t3:=RadioButton3.Checked;

 

   if c1=true then b1:=STrToInt(Edit1.Text);          /Ставимо відмітку/

   if c1=false then Edit1.Text:='';                        /не Ставимо відмітку/

   if c2=true then b2:=STrToInt(Edit2.Text);

   if c2=false then Edit2.Text:='';

   if c3=true then b3:=STrToInt(Edit6.Text);

   if c3=false then Edit6.Text:='';

   if c4=true then b4:=STrToInt(Edit7.Text);

   if c4=false then Edit7.Text:='';

   z:=b1+b2+b3+b4;

   Label4.Caption:='Ви набрали'+' '+IntToStr(z)+' '+'балів';        /операція склеювання/

     end;

 

 

 

 

1

procedure TForm1.Button2Click(Sender: TObject);              /Персоналія/

begin

   Label3.Visible:=true;

  Label3.Caption:='Введіть ініціали';

  Edit4.Text:=' ';

 if t1 then Label6.Caption:='Ви обрали компанію Apple';

Image2.Vizible:=true;

   if t2 then Label6.Caption:='Ви обрали компанію Microsoft';

   if t3 then Label6.Caption:='Ви обрали компанію Facebook';

  Edit1.Enabled:=false;                                  /Значення балів не коригуються/

  Edit2.Enabled:=false;

  Edit6.Enabled:=false;

  Edit7.Enabled:=false;

 end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

     if z<=29 then

  begin

  Edit5.Text:= ‘ Ви не пройшли співбесіду!';

  image1.Visible:=true;

   end;

     if (z>=30)and (z<=35) then

     begin

        Edit5.Text:='Пропонуємо навчальні курси та повторну співбесіду!';

        image1.Visible:=false;

        image2.Visible:=true;

        end;

    if (z>=36) and (z<=40) then

    begin

       Edit5.Text:='Вітаємо! Ви пройшли співбесіду!';

       image4.Visible:=true;

       image1.Visible:=false;

2

        image2.Visible:=false;

    end;

    if z>=41 then

        Edit5.Text:='Ви не Стів Джопс! Пробачте!';

    image1.Visible:=true;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  Edit1.Clear;    /очистити поля/

  Edit2.Clear;

  Edit4.Clear;

  Edit5.Clear;

  Edit6.Clear;

  Edit7.Clear;

  Label4.Caption:='';

  Label6.Caption:='';

  CheckBox1.Checked:=false;

  CheckBox2.Checked:=false;

  CheckBox3.Checked:=false;

  CheckBox4.Checked:=false;

  RadioButton1.Checked:=false;

  RadioButton2.Checked:=false;

  RadioButton3.Checked:=false;

  image1.Visible:=false;

        image2.Visible:=false;

        image4.Visible:=false;

        Label3.Visible:=false;

  Edit1.Enabled:=true;          /бали можна редагувати (заповнити поля)/

  Edit2.Enabled:=true;

  Edit6.Enabled:=true;

  Edit7.Enabled:=true;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

    close;

end;

end.     

 

3