Tugas Pra UTS

B. Coding Program :

unit TOKO;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label11: TLabel;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label18: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    kodebarang:array[1..4] of string;
    barang,harga,beli,total,ppn,potongan,bonus,totbay,ubay,ukem:real;
    procedure bersih;
    procedure nonaktif;
    { Public declarations }
  end;

var
  Form1: TForm1;
  implementation

{$R *.dfm}

procedure TForm1.bersih;
begin
  ComboBox1.Text:='';
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit6.Text:='';
  Edit7.Text:='';
  Edit8.Text:='';
  Edit9.Text:='';
  Edit10.Text:='';
end;

procedure TForm1.nonaktif;
begin
  edit1.Enabled:=False;
  edit2.Enabled:=False;
  edit4.Enabled:=False;
  edit5.Enabled:=False;
  edit6.Enabled:=False;
  edit7.Enabled:=False;
  edit8.Enabled:=False;
  edit10.Enabled:=False;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 4 do
  ComboBox1.Items.Append(kodebarang[i]);
  bersih;
  nonaktif;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  Case ComboBox1.ItemIndex of
    0: edit1.Text:='Mesin Cuci';
    1: edit1.Text:='Kulkas';
    2: edit1.Text:='LED TV';
  else
    edit1.Text:='DVD Player';
  end;
  Case ComboBox1.ItemIndex of
    0: edit2.Text:='2500000';
    1: edit2.Text:='2000000';
    2: edit2.Text:='1750000';
  else
    edit2.Text:='500000';
  end;
  harga:=StrToFloat(Edit2.Text);
  edit3.SetFocus;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin

    Button2.SetFocus;
  end;
end;

procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      ubay:=StrToFloat(edit9.Text);
      ukem:=ubay-totbay;
      edit10.Text:=FloatToStr(ukem);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  bersih;
  ComboBox1.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  beli:=StrToFloat(Edit3.Text);
  total:=harga*beli;
  ppn:=total*0.1;
  if total>=5000000 then
    begin
      potongan:=total*0.05;
      edit7.Text:='Payung Cantik';
    end
  else
    begin
      potongan:=0;
      edit7.Text:='Tidak Ada Bonus';
    end;
  totbay:=(total+ppn)-potongan;
  edit4.Text:=FloatToStr(total);
  edit5.Text:=FloatToStr(ppn);
  edit6.Text:=FloatToStr(potongan);
  edit8.Text:=FloatToStr(totbay);
  edit9.SetFocus;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  kodebarang[1]:='1';
  kodebarang[2]:='2';
  kodebarang[3]:='3';
  kodebarang[4]:='4';
end;

end.

Tugas Delphi Program menghitung luas dan keliling lingkaran ,persegi panjang

//coding

unit Unit5;

interface

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

type
TForm5 = class(TForm)
Image1: TImage;