Perhitungan Sederhana Delphi 7.0

Langkah latihan ini bisa anda ikuti dengan cara anda membuka aplikasi Delphi 7.0 dan silakan anda praktekkan secara langsung. Yang harus anda lakukan :
1. Buat beberapa objek pada form : Label1,Label2,Edit1,Edit2,Edit3,Buton1,Buton2,Buton3
ubah properties name untuk :
Edit1 => enilai1
Edit2 => enilai2
Edit3 => ehasil
ubah properties name dan caption :
Buton1 => btntambah, Tambah
Buton2 => btnbagi, Bagi
Buton3 => btnkeluar, Keluar
Label1 => lblnilai1, Nilai 1
Label2 => lblnilai2, Nilai 2

Tambahkan listing program berikut :
procedure Tform1.btntambahClick(sender :Tobject);
var n1,n2,tambah : real;
begin
n1 := strtofloat(enilai1.text);
n2 := strtofloat(enilai2.text);
tambah := n1 + n2 ;
ehasil.text := floattostr(tambah);
end;

procedure Tform1.btnbagiClick(sender :Tobject);
var n1,n2,bagi : real;
begin
n1 := strtofloat(enilai1.text);
n2 := strtofloat(enilai2.text);
bagi := n1 / n2 ;
ehasil.text := floattostr(bagi);
ehasil.text := formatfloat(‘#.##’,bagi);
end;
Procedure Tform1.btnkeluarClick(sender:Tobject);
begin
if MessageDlg(‘Yakin Mau Keluar’,mtConfirmation,[mnYes,mbNo],0)=mr Yes then
close;
end;

Baris diatas merupakan contoh sederhana saja, bila anda ingin melengkapinya silakan anda kembangkan lagi.

Iklan

2 Comments

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s