BAB 10

BAB X. OBYEK COMBO BOX

unit UnitBab10;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    EDHRGKONV: TEdit;
    EDPANJANG: TEdit;
    EDLEBAR: TEdit;
    EDLUAS: TEdit;
    CMULAI: TButton;
    CSELESAI: TButton;
    CMBJNSUKR: TComboBox;
    procedure CMULAIClick(Sender: TObject);
    procedure EDPANJANGChange(Sender: TObject);
    procedure CSELESAIClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CMULAIClick(Sender: TObject);
begin
edpanjang.text:=' ';
edlebar.Text:=' ';
edluas.text:=' ';
end;
procedure TForm1.EDPANJANGChange(Sender: TObject);
var
lebar,panjang,luas,hrgkonv :single;
kode:integer;
begin
if cmbjnsukr.text='M' then hrgkonv:=100;
if cmbjnsukr.text='CM' then hrgkonv:=1;
edhrgkonv.text:=format('%8.0n',[hrgkonv]);
val(edpanjang.Text,panjang,kode);
val(edlebar.text,lebar,kode);
val(edhrgkonv.Text,hrgkonv,kode);
luas :=(panjang*hrgkonv)*(lebar*hrgkonv);
edluas.text:=format('%20.0n',[luas]);
end;
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;

HASIL PROGRAM: