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;