Пример программы «Закон Ома» в Delphi (ч.2)

Решение данной программы решено построить при помощи класса. Класс записывается в разделе implementation. В классе будут три функции. Суть функции в том, что она возвращает одно единственное решение. По дефолту это переменная Result.

[php]

type Ohms = class
x : Integer;
y : Integer;
function Amper (x,y:Integer): Integer;
function Volt (x,y:Integer): Integer;
function Om (x,y:Integer): Integer;
end;
function Ohms.Amper (x,y:Integer):Integer;
begin
Result:=0;
Result := x mod y;
end;
function Ohms.Volt (x,y:Integer):Integer;
begin
Result:=0;
Result := x*y;
end;
function Ohms.Om (x,y:Integer):Integer;
begin
Result:=0;
Result := y mod x;
end;

[/php]

В процедуре нажатия кнопки будет оператор Case. Он проверяет условие (итемы) RadioGroup1. Items от RadioGroup1 начинают счет с нуля. То есть ноль это у нас I (сила тока). Описывать весь процесс не буду. Покажу примерно:

[php]

procedure TForm1.Button1Click(Sender: TObject);
Var My:Ohms;
begin
My.Create();
case RadioGroup1.ItemIndex of
0:
begin
My.x:=StrToInt(Edit1.Text);
My.y:=StrToInt(Edit2.Text);
My.Amper(My.x , My.y);
ShowMessage(‘I = ‘ + IntToStr(My.Amper(My.x,My.y)));
end;
1: ShowMessage(‘U’);
2: ShowMessage(‘R’);
end;
end;

[/php]

Вот и все решение данного примера. Можно сделать проще м2м решения — одни функции, но программа теряет свою модульность. То есть самого модуля вычисления отдельно не будет. Напоминаю, что класс можно вставить в отдельный файл. Этот модуль можно будет просто подключать в других программах.

. закон ома делфи
. программа для расчета закона ома на делфи
Комментирование и размещение ссылок запрещено.