Pemrograman Terstruktur pertemuan pertama

Whatsuuuuuuuuuuuupppp... Masuk pertemuan pertama, langsung ada tugas camku gan.
Langsung aja keintinya..


Yang agan butuhkan
3 Buah textbox
2 Buah button
4 Buah Label

masuk ke source code:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    THK: TEdit;
    TJUMLAH: TEdit;
    CMULAI: TButton;
    CSELESAI: TButton;
    TLM: TEdit;
    procedure TLMChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CSELESAIClick(Sender: TObject);
    procedure THKChange(Sender: TObject);
    procedure CMULAIClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.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;

procedure TForm2.FormCreate(Sender: TObject);
begin
 Tjumlah.enabled:=False;
 Tjumlah.color:=clbtnface;
end;

procedure TForm2.CSELESAIClick(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm2.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);
end;

procedure TForm2.CMULAIClick(Sender: TObject);
begin
Tlm.text:='';
Thk.text:='';
Tjumlah.text:='';
Tlm.SetFocus;
end;

end.


Jadi hasilnya seperti ini gan

Tampilan Program

Oi gan, jangan lupa camku nya ada 2, pertama di blog dan yang kedua di catatan.
Jika ada kesalahan tolong dimaafkan karena kita disini semua belajar.
Peace Out!