PEMOGRAMAN VISUAL, MEMBUAT PROGRAM ARITMATIKA DENGAN DELPHI 7

---

OLEH    RISYAD MUKCRAM     Ikuti di twitter

---

Materi Pendidikan - Berikut ini adalah contoh program dasar aritmatika yang dibuat dengan aplikasi Borland Delphi 7. Di bawah ini adalah langkah-langkah pembuatan program dasar aritmatika

Keterangan Form :

Object                  Nama              Caption

Label 1                 Label 1            Program aritmatika

Label 2                 Label 2            nilai pratikum 1

Label 3                 Label3             nilai pratikum 2

Label 4                 Label4             hasil perhitungan

Object                  Nama              Text

Edit1                    nil1                 -

Edit2                    nil2                  -

Edit3                    Etambah          -

Edit4                    Ekali                -

Edit5                    Ebagi               -

Edit6 kurang        Ekurang           -

Object                  Nama              Caption

Button1                Btambah          Tambah

Button2                Bkali                Kali

Button3                Bbagi               Bagi

Button4                Bkurang          Kurang

Button5                Bmulai             Mulai ulang

Button6                Bselesai           Selesai

Listing Program :

1.        Program tambah

procedure TOPERASI_ARITMATIKA.BtambahClick(Sender: TObject);

var

bil1,bil2,tambah:real;

begin

bil1:=strtofloat(nil1.Text);

bil2:=strtofloat(nil2.Text);

tambah:=bil1+bil2;

Etambah.Text:=floattostr(tambah);

end;

2.        Program kali

procedure TOPERASI_ARITMATIKA.BkaliClick(Sender: TObject);

var

bil1,bil2,kali:real;

begin

bil1:=strtofloat(nil1.Text);

bil2:=strtofloat(nil2.Text);

kali:=bil1*bil2;

Ekali.Text:=floattostr(kali);

end;

3.        Program bagi

procedure TOPERASI_ARITMATIKA.BbagiClick(Sender: TObject);

var

bil1,bil2,bagi:real;

begin

bil1:=strtofloat(nil1.Text);

bil2:=strtofloat(nil2.Text);

bagi:=bil1/bil2;

Ebagi.Text:=floattostr(bagi);

end;

4.        Program kurang

procedure TOPERASI_ARITMATIKA.BkurangClick(Sender: TObject);

var

bil1,bil2,kurang:real;

begin

bil1:=strtofloat(nil1.Text);

bil2:=strtofloat(nil2.Text);

kurang:=bil1-bil2;

Ekurang.Text:=floattostr(kurang);

end;

5.        Program Mulai ulang

procedure TOPERASI_ARITMATIKA.BmulaiClick(Sender: TObject);

begin

nil1.Text:='';

nil2.Text:='';

Etambah.Text:='';

Ekali.Text:='';

Ebagi.Text:='';

Ekurang.Text:='';

end;

6.       Program Selesai

procedure TOPERASI_ARITMATIKA.BselesaiClick(Sender: TObject);

begin

if(application.MessageBox('Anda Yakin Ingin Keluar','EXIT',MB_YESNO)=IDYES)

then close

end;

Catatan :

Var

bil1,bil2,Tambah ; real;

Var digunakan untuk mendeklarasikan suatu nama varibael yag dibuat oleh programmer yang berfungsi untuk menyimpan nilai atau data selama proses program berjalan.

bil1,bil2  dan  tambah  adalah  nama  variabel  baru  yang  dibentuk  oleh progrmmer

Real    adalah nama dari  sekeian banyak tipe data  yang dikenal dalam bahasa  peograman  Delphi.  Cakupan  tipe  data  real  adalah  membaca bilangan angka dalam bentuk decimal.

Strtofloat    adalah fungsi yang digunakan merubah nilai dari tipe data string menjadi tipe data numeric.

Floattostr adalah fungsi yang digunakan merubah nilai pecahan menjadi data string.

UNTUK MENDOWNLOAD CONTOH APLIKASINYA  => DI SINI 

DOWNLOAD BORLAND DELPHI 7 => DI SINI

DOWNLOAD E-BOOK BORLAN DELPHI 7 => DI SINI