delphy7 sederhana

unit Unit3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    RadioGroup1: TRadioGroup;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    GroupBox1: TGroupBox;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure Edit5Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

radiobutton1.Checked:=false;

radiobutton2.Checked:=false;

radiobutton3.Checked:=false;

edit1.SetFocus;

end;

procedure TForm3.RadioButton1Click(Sender: TObject);

begin

edit4.Text:='500000';

end;

procedure TForm3.RadioButton2Click(Sender: TObject);

begin

edit4.Text:='550000';

end;

procedure TForm3.RadioButton3Click(Sender: TObject);

begin

edit4.Text:='350000';

end;

procedure TForm3.Edit5Change(Sender: TObject);

var

biaya,jumlah,total:integer;

begin

if edit4.Text='' then

biaya:=0 else

biaya:=strtoint(edit4.Text);

if edit5.Text='' then

jumlah:=0 else

jumlah:=strtoint(edit5.Text);

total:=biaya*jumlah;

edit6.Text:=inttostr(total);

if jumlah >=3 then

edit7.Text:='FLASH DISK'

else

if jumlah <3 then

edit7.Text:='NOTES BOOK';

end;

end.