Pembuatan Aplikasi Dekstop dengan Deplhi7

Assalamu:alaikum wrr.wb

Berikut ini saya akan membuat modul sederhana ini dengan judul “Pembuatan Aplikasi Dekstop (If, else)” bertujuan agar siapapun yang ingin membuat aplikasi sedehana seperti yang saya buat, bisa belajar menggunakan modul sederhana ini.

Ok, disini saya akan membahas langkah-langkah cara membuat Aplikasi Dekstop V2 yaitu penghitungan Luas dan Volume bangun, menggunakan pascal, dengan aplikasi Delphi 7, langsung saja langkah-langkahnya sebagai berikut:

1.      Klik/buka aplikasi Delphi 7 pada dekstop

Kemudian Klik file>pilih new>application

Kemudian ganti namapada bagian Form1 menjadi Aplikasi Aritmatika

Pilih label kemudian ketikan “ Pilihan Menu” selanjutnya pilih combobox,

2.   Kemudian kamu bisa atur sendiri agar tampilannya serapi dan seindah mungkin.

       emudian selanjutnya kita masukan pilihan menunya, dibagian combobox, dengan cara klik kotak combobox, kemudian pilih item pada properties, klik bagian string,kemudian akan muncul tampilan layar,dan isikan pilihan menunya nanti.

                                                                                                                                                                   

Kemudian klik Ok

3.Kemudian buat 4 form baru dengan klik new form, untuk membuat masing-masing aplikasi penghitungan luas dan volume bangun,beri nama seperti dibawah:

·         Form2 : Luas dan Volume Balok

·         Form3 : Luas dan Volume Bola

·         Form4 : Luas dan Volume Tabung

·         Form5 : Luas dan Volume Kerucut

Selanjutnya hubungkan masing-masing form tadi dengan cara klik Use Unit, kemudian blok unit 2 sampai unit 5, kemudian klik Ok :

Ok, kemudian  klik pada combobox tadi, pilih Events pilih Onchange, pada kotak sebelah kanannya klik 2 kali, kemudian akan muncul lembar kerja untuk memasukan rumus, agar nanti menu-menu tadi saat diilih bisa langsung membuka lembar kerja(aplikasi)  masing-masing , masukan script dibawah ini:
 

begin

if combobox1.text='1. Luas dan Volume Tabung'then

begin

form2.showmodal;

end

else

if combobox1.text='2. Luas dan Volume Bola'then

begin

form3.showmodal;

end

else

if combobox1.text='3. Luas dan Volume Balok'then

begin

form4.showmodal;

end

else

if combobox1.text='4. Luas dan Volume Kerucut'then

begin

form5.showmodal;

end

end;

end.

4. Kemudian masuk ke masing-masing lembar kerja untuk membuat aplikasi penghitungan luas dan volume bangun masing-masing:

                                                                                                                

5.  Kemudian pada masing-masing tombol hasil, masukan script/code  dibawah ini :

·         Balok

procedure TForm4.Button1Click(Sender: TObject);

var

p,l,t,lb,vb:double;

begin

p:=strTocurr(Edit1.Text);

l:=strTocurr(Edit2.Text);

t:=strTocurr(Edit3.Text);

lb:=2*p*l+2*p*t+2*l*t;

vb:=p*l*t;

Edit4.Text:=currTostr(lb);

Edit5.Text:=currTostr(vb);

end;

end.

·         Bola

procedure TForm3.Button1Click(Sender: TObject);

var

r,lbl,vbl:double;

begin

r:=strTocurr(Edit1.Text);

lbl:=4*3.14*r*r;

vbl:=4*3.14*r*r*r;

Edit2.Text:=currTostr(lbl);

Edit3.Text:=currTostr(vbl);

end;

end.

·         Tabung

procedure TForm2.Button1Click(Sender: TObject);

var

r,t,lt,vt:double;

begin

r:=strTocurr(Edit1.Text);

t:=strTocurr(Edit2.Text);

lt:=2*3.14*r*r;

vt:=3.14*r*r*t;

Edit3.Text:=currTostr(lt);

Edit4.Text:=currTostr(vt);

end;

end.

·         Kerucut

procedure TForm5.Button1Click(Sender: TObject);

var

s,r,t,lk,vk:double;

begin

s:=strTocurr(Edit1.Text);

t:=strTocurr(Edit2.Text);

r:=strTocurr(Edit3.Text);

lk:=3.14*r*r+3.14*r*s;

vk:=1/3*3.14*r*r*t;

Edit4.Text:=currTostr(lk);

Edit5.Text:=currTostr(vk);

end;

end.

Dan setelah semua selesai, tinggal kita run programnya.

 

Jika tampilan kalian sudah seperti diatas, dan semua aplikasi benar, maka selamat anda sudah memiliki apikasi perhitungan luas dan volume bangun sederhana.

Sekian modul sederhana saya ini, semoga bermanfaat. Selamat Mencoba.

Wassalamu”alaikum wr.wb.