pemrogramman perhitungan sederhana delphi7

Program perhitungan pegangan guru

Selamat siang Gan….

Kali ini saya akan membuat tutorial tentang perhitungan pada pemrogaman DELPHI 7..

Oke langsung saja tutorial dari saya

Pertama Buat desain seperti ini :

Kemudian atur propertinya seperti berikut:

object	name	caption
Label1	Label1	Program perhitungan type achmad/113223003
Label2	Label2	Nilai praktik 1
Label3	Label3	Nilai praktik 2
Label4	Label4	Nilai perhitungan
Label5	Label5	Hasil
Label6	Label6	Hasil
Label7	Label7	Hasil
Label8	Label8	hasil

object	name	caption
Edit1	Enil1	-
Edit2	Enil2	-
Edit3	Ehtambah	-
Edit4	ehkali	-
Edit5	ehbagi	-
Edit6	ehkurang	-

Object	name	caption
Button1	btambah	tambah
Button2	bkali	kali
Button3	Bbagi	Bagi
Button4	Bkurang	kurang
Button5	bclose	Keluar

d. Listing Program

 Catatan =

Dalam bahasa pemograman Delphi semua data yang diinput melalui

edit box dideklarasikan dengan tipe data string, sehingga ketika kita

akan melakukan proses perkalian atau pengurangan kita tidak bisa

mengalikan secara langsung  edit  box yang dimaksud tetap kita

perlu merubah menjadi nilai dengan tipe data yang dapat dikalikan.

1. Program Tambah

Digunakan untuk menampilkan hasil penjumlahan antara nilai praktek 1

dengan nilai praktek II, cara double klik pada buton tambah dan tuliskan

kode berikut ini =

procedure TForm2.BtambahClick(Sender: TObject);

var

  nil1, nil2 : real;

  tambah: real;

begin

nil1 := strtofloat(enil1.text);

nil2 := strtofloat(enil2.text);

tambah := nil1 + nil2;

ehtambah.text := floattostr(tambah);

end; 

   

  Catatan

   Var

    Nil1,nil2 : real;

    Tambah ; real;

  

  Var digunakan untuk mendeklarasikan suatu nama varibael yag dibuat

oleh programmer yang berfungsi untuk menyimpan nilai atau data selama

proses program berjalan.

 

  Nil1,nil2 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.

 

 17

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.

2. Program untuk kali

procedure TForm2.BkaliClick(Sender: TObject);

var

   bil1,bil2:real;

   kali : real;

begin

bil1 := strtofloat(enil1.text);

bil2 := strtofloat(enil2.text);

kali := bil1*bil2;

ehkali.text := floattostr(kali);

{ehkali.text := inttostr(strtoint(enil1.text) *

strtoint(enil2.text));}

end;

3 Program untuk bagi

procedure TForm2.BbagiClick(Sender: TObject);

var

  bil1,bil2    : real;

  bagi : real;

begin

bil1 := strtofloat(enil1.Text);

bil2 := strtofloat(enil2.Text);

bagi := bil1/bil2;

ehbagi.Text := floattostr(bagi);

end; 

  

4. Program untuk kurang

procedure TForm2.BkurangClick(Sender: TObject);

var

bil1,bil2,kurang : real;

begin

bil1 :=  strtofloat(enil1.Text);

 18

bil2 := strtofloat(enil2.Text);

kurang := bil1 - bil2;

ekurang.Text := floattostr(kurang);

end;

5. Program untuk keluar

procedure TForm2.bcloseClick(Sender: TObject);

begin

messageDlg('Ingin Menutup form',mterror, [mbok],0);

close;

end;

Catatan

Messagedlg adalah penggalan program yang digunakan untuk

menampilkan kotak pesan.

Close  digunakan untuk menutup form.

Screenshot hasil jadi

Screenshot program

jika di tutup

Listing program keseluruhan

                                                                                                                                                       

procedure Tachmadanwarb.BtambahClick(Sender: TObject);

var

nil1,nil2:real;

tambah:real;

begin

nil1:=strtofloat(enil1.text);

nil2:=strtofloat(enil2.text);

tambah:=nil1+nil2;

ehtambah.text:=floattostr(tambah);

end;

procedure Tachmadanwarb.BkaliClick(Sender: TObject);

var

  bil1,bil2:real;

  kali:real;

begin

bil1:=strtofloat(enil1.text);

bil2:=strtofloat(enil2.text);

kali:=bil1*bil2;

ehkali.text:=floattostr(kali);

{ehkali.text:=inttostr(strtoint(enil1.text)*strtoint(enil2.text));}

end;

procedure Tachmadanwarb.BbagiClick(Sender: TObject);

var

  bil1,bil2:real;

  bagi:real;

begin

bil1:=strtofloat(enil1.text);

bil2:=strtofloat(enil2.text);

bagi:=bil1/bil2;

ehbagi.text:=floattostr(bagi);

end;

procedure Tachmadanwarb.BkurangClick(Sender: TObject);

var

bil1,bil2,kurang:real;

begin

bil1:=strtofloat(enil1.text);

bil2:=strtofloat(enil2.text);

kurang:=bil1-bil2;

ehkurang.text:=floattostr(kurang);

end;

procedure Tachmadanwarb.BcloseClick(Sender: TObject);

begin

messagedlg('ingin menutup form',mterror,[mbok],0);

close;

end;

end.