Лабораторлық жұмыс № 9.

 

Тақырыбы: Button, BitBtn, SpeedButton, RadioGroup, RadioButton, GroupBox, CheckBox компоненттерін қолдану

Сабақтың мақсаты: Button, BitBtn, SpeedButton, RadioGroup, RadioButton, GroupBox, CheckBox компоненттерін қолдануды игеру.

 

Мысал 1. «Электр тоғының кедергісі».

Екі резистерден тұратын электр тізбегінің кедергісін есептейді. Егер тізбек тізбекті түрінде біріктірілсе, онда келесі формула қолданылады: R=R1+R2; ал параллель қосылысы: R=

 

 

 

Компонент

Қасиеті

Мәні

1

Form1

Caption

Сопротивление электрической цепи

2

Label1

AutoSize

WordWrap

False

True

3

RadioGroup1

Caption

Тип соединения

4

RadioButton1

Caption

Checked

TabStop

последовательно

True

True

5

RadioButton2

Caption

параллельно

6

BitBtn

Caption

Glyph

Вычислить

 

7

Label4

Caption

AutoSize

(Пусто)

False

 

Программа коды:

// Вычислить батырмасы

 procedure TForm1.BitBtn1Click(Sender: TObject);

 var

    r1,r2: real; // величины сопротивлений

    r: real;     // сопротивление цепи

begin

    // получить исходные данные

    r1 := StrToFloat(Edit1.Text);

    r2 := StrToFloat(Edit2.Text);

 

    if (r1 = 0) and (r2 = 0) then

    begin

        ShowMessage('Надо задать величину хотя бы одного сопротивления');

        exit;

    end;

    // переключатели RadioButton1 и RadioButton2

    // зависимые, поэтому о типе соединения можно

    // судить по состоянию одного из этих

    // переключателей

    if RadioButton1.Checked

        then  // выбран переключатель Последовательно

            r:= r1+r2

        else  //  выбран переключатель Параллельно

            r:= (r1*r2)/(r1+r2);

 

    Label4.Caption := 'Сопротивление цепи: ';

    if r < 1000 then

       Label4.Caption := Label4.Caption +

                   FloatToStrF(r,ffGeneral,3,2) + ' Ом'

    else

        begin

            r:=r/1000;

            Label4.Caption := Form1.Label4.Caption +

                   FloatToStrF(r,ffGeneral,3,2) + ' кОм';

        end

end;

 

// щелчок на переключателе Последовательно

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

   // пользователь изменил тип соединения

   Label4.Caption := '';

end;

 

// щелчок на переключателе Параллельно

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

   // пользователь изменил тип соединения

   Label4.Caption := '';

end;

Тапсырмалар.

 

1.      Саяжайға барудың жолының бағасын есептейтін қосымшаны құрыңдар.

 

 

2. Салым қосындысы, пайыздық ставканың мезгілі және пайыздың схемасына тәуелді салым бойынша кірісті есептейтін қосымшаны құрыңдар. Егер қарапайым пайыз таңдалса, онда келесі формула қолданылады: Кіріс=Салым қосындысы*(пайыздық ставка/100)*(салым мезгілі/100). Ал күрделі пайыз бойынша: Кіріс=салым қосындысы + салым қосындысы*(пайыздық ставка/100).

       

 

3.      Ом заңы (I=U/R, U=I*R, R=U/I) бойынша тоқты (Ампер - I), кернеуді (вольт -U) және кедергіні (Ом - R) есептейтін қосымшаны құрыңдар.

 

         

 

4.      Спортсменнің жүгіру жылдамдығын есептейтін қосымшаны құрыңдар. Дистанция (м) және уақыты (мин, сек) берілсін. Спортсменнің жылдамдығы келесі формула бойынша есептеленеді: v=s/t. Жауабын км/сағ беріңдер.

 

 

 

 

Алдыңғы Л.Ж.БастыКелесi Л.Ж.