Kode program hitung bab 1

unit prak1;
interface
uses
    windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
    stdCtrls;

type
   Tform1 = class(Tform)
       Label1 : TLabel ;
       Label2 : TLabel ;
       Label3 : TLabel ;
       TLM : TEdit ;
       THK : TEdit ;
       TJUMLAH : TEdit ;
       CMULAI : TButton ;
       CSELESAI : TButton;
       procedure CMULAIClick(Sender : Tobject);
       procedure CSELESAIClick(sender : Tobject);
       procedure FormCreate ( sender : Tobject);
       procedure THKChange ( sender : Tobject);
       procedure TLMChange (sender : Tobject);
private
      { private declarations }
public
      {public declarations }
end;

var
   Form1: Tform1;
implementation
{$R *.DFM}

procedure TForm1.CMULAIClick(sender : Tobject);
Begin
     Tlm.Text:=' ';
     Thk.Text:=' ';
     Tjumlah.text:=' ';
     Tlm.Setfocus;
end;

procedure Tform1.CSELESAIClick(sender: Tobject);
Begin
     Application.Terminate;
end;

procedure Tform1.FormCreate(sender : Tobject );
Begin
    Tjumlah.enabled:=False;
    Tjumlah.color:=clbtnface;
end;



procedure Tform1.THKChange(sender: Tobject);
var
     Sjml:string[30];
     Tsem: integer;
     Slm,Shk,Sjumlah:single;

Begin
    val(Tlm.text,Slm,Tsem);
    val(Thk.Text,Shk,Tsem);
    Sjumlah :=Slm*Shk;
    str(Sjumlah:30:0,Sjml);
    Tjumlah.text:=Sjml;
end;

procedure Tform1.TLMChange(sender : Tobject);
var
    Sjml: string[30];
    Tsem: integer;
    Slm,Shk,Sjumlah:single;

Begin
    val(Tlm.text,Slm,Tsem);
    val(Thk.text,shk,Tsem);
    Sjumlah:=Slm*Shk;
    str(Sjumlah:30:0:Sjml);
    Tjumlah.text:=Sjml;

end;

End.