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.
