Membuat Proses Berurutan Menggunakan Delphi 7

Sebelum saya memberikan source code untuk membuat proses berurutan menggunakan program delphi 7, saya ingin menjelaskan tujuan dari pembelajaran tahap pertama dalam belajar Delphi 7 yaitu sebagai berikut.

1.     Mengerti cara membuat program Proses Berurutan

2.     Dapat menggunakan Obyek Label, Edit serta Button

3.     Mengerti cara menggunakan Prosedur Standar Val Dan Str

Kita langsung saja ke dalam proses pembuatan program aplikasinya, pertama kalian harus membuka program delphi 7 terlebih dahulu, jika sudah membuka program delphi 7, ikuti langkah demi langkah seperti pada gambar di bawah ini.

pertama kalian harus mengklik label sebanyak 3 kali, lalu setelah mengklik label sebanyak 3x tinggal mengganti tulisan label tersebut menjadi ( LAMA MENGINAP, HARGA KAMAR/HARI, JUMLAH ), jika sudah maka kita lanjut ke langkah selanjutnya yaitu membuat foam edit sediakan foam edit sebanyak 3, jika sudah jangan lupa untuk menghapus nama file text. lalu jangan lupa untuk memberikan nama di masing - masing edit. Untuk Edit1  rubah namanya menjadi TLM ( keterangan TOTAL LAMA MENGINAP ), lalu edit2 menjadi THK ( keterangan TOTAL HARGA KAMAR ) yang ketiga file edit3 menjadi TJUMLAH( keterangan JUMLAH ). Jangan lupa untuk membuat foam button sebanyak 2 pcs yang file Mulai untuk Captionya &Mulai dan namenya CMulai, lalu untuk Caption S&elesai dan untuk namenya CSelesai.

apabila kalian sudah selesai sampai tahan di atas makan lanjut ke proses memasukan coding program delphi, untuk coding programnya kalian bisa mengikuti sepeerti dibawah ini :

unit prak1;

interface

uses

  Windows, Messages, SysUtils, Variants, 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.

jika sudah mengikut coding diatas dan langkah - langkah sebelumnya coba untuk mengcomfile program dengan menekan tombol

, maka hasilnya akan seperti gambar di bawah ini.

Sekian dan terima kasih, ini adalah salah satu contoh program aplikasi sederhana menggunakan program delphi 7 ( Proses Berurutan ), sampai bertemu lagi di pengetahuan dan pembelajaran mengenai program delphi 7.