design program delphi 7 dan kode objek nya

 1. PROSES BERURUTAN

kode objek pada gambar diatas


  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    TLM: TEdit;
    THK: TEdit;
    TJUMLAH: TEdit;
    CMULAI: TButton;
    CSELESAI: TButton;


2. PROSES PECABANGAN IF SATU PERNYATAAN

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    CMULAI: TButton;

    CSELESAI: TButton;

3. PROSES PERCABANGAN IF BEBERAPA PERNYATAAN

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    TKDIS: TEdit;

    Label7: TLabel;

    CMULAI: TButton;

    CSELESAI: TButton;

4. PROSES BEBERAPA IF DENGAN RADIO BUTTON

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    TKDIS: TEdit;

    Label7: TLabel;

    RadioGroup1: TRadioGroup;

    RDIS30: TRadioButton;

    RDIS20: TRadioButton;

    RDIS10: TRadioButton;

    RDIS0: TRadioButton;

    CMULAI: TButton;

    CSELESAI: TButton;

5.PROSES BEBERAPA IF DENGAN CHECK BOX & RADIO BUTTON

kode objek pada gambar diatas

TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    TLM: TEdit;

    THK: TEdit;

    TJUMLAH: TEdit;

    TDIS: TEdit;

    TBAYAR: TEdit;

    TKDIS: TEdit;

    Label7: TLabel;

    GroupBox1: TGroupBox;

    RadioGroup1: TRadioGroup;

    CKETAM: TCheckBox;

    CKETUM: TCheckBox;

    CKETRY: TCheckBox;

    RDIS30: TRadioButton;

    RDIS20: TRadioButton;

    RDIS10: TRadioButton;

    RDIS0: TRadioButton;

    CMULAI: TButton;

    CSELESAI: TButton;

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.