Delphi визуалды программалау ортасы


-сурет Жұмысты атқару бағдарламасы



бет87/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   83   84   85   86   87   88   89   90   ...   97
Байланысты:
Delphi vizualdy programmalau ortasy

36-сурет
Жұмысты атқару бағдарламасы:

unit kedergy;

// Есептеу батырмасында шерту

procedure TForm1.Button1Click(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;


37-сурет
// 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;

end.






Достарыңызбен бөлісу:
1   ...   83   84   85   86   87   88   89   90   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет