Главная » Delphi, Исходники, Разное » Расчет курсов валют. Покупка. Продажа.
Окт
23

Расчет курсов валют. Покупка. Продажа.

Задание: Создать программу для расчета курсов валют (в данном случае Доллара и Гривны). 

Уникальность программы в следующем: если мы ставим точку на значении «Продажа» то стрелочка будет повернута вправо, если значение «Покупка» то влево.

  

[sourcecode language=»css»]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure RadioButton2Click(Sender: TObject);





procedure RadioButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Label3.Caption := ‘n';
Edit3.SetFocus;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Label3.Caption := ‘p';
Edit3.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var kurs1,kurs2,summa : real;
cod : integer;
ed : string[9];
begin
Val(Edit1.Text,kurs1,cod);
Val(Edit2.Text,kurs2,cod);
Val(Edit3.Text,summa,cod);
if RadioButton2.Checked = True then
summa := summa*kurs2
else
summa := summa*kurs1;
Str(summa:9:2,ed);
Edit4.Text := ed;
end;

end.
[/sourcecode]

Скачать программу для Расчета курсов валют 



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.