Hallo sahabat blogger, kali ini saya akan membagikan contoh dari Cara Membuat Program Perhitungan Menggunakan Delphi. Program perhitungan ini seringan digunakan dalam transaksi pembayaran di kasir seperti pada toko maupun rumah makan. Program perhitungan menggunakan delphi ini bisa dikatakan sangat simple sehingga proses pembuatannya sangat mudah. Berikut Cara Membuat Program Perhitungan Menggunakan Delphi:
- Buka aplikasi Delphi
- Kemudian klik Run Program
- Kemudian buat form baru dengan cara klik file > New > Form
- Kemudian desain form tersebut seperti gambar dibawah ini:
- Kemudian masukan script di bawah ini ke dalam form tersebut:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
Var
Total_belanja,total_bayar,kembali:Integer;
begin
Total_belanja:= StrToInt(Edit1.Text);
total_bayar:= StrToInt(Edit2.Text);
Kembali:=Total_bayar-Total_belanja;
Edit3.Text:= IntToStr(Kembali);
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
end;
end. - Kemudian run program dan tes program tersebut makan hasilnya seperti gambar berikut ini:
Demikian Cara Membuat Program Perhitungan Menggunakan Delphi. Semoga Bermanfaat!
sudah lama tak pegang delphi..saya sudah lupa :D
ReplyDelete