Skip to main content

Program Sederhana Persewaan CD/DVD for Delphi

Di dalam program ini Pemilik persewaan CD/DVD, menginputkan jumlah CD/DVD yang dipinjam oleh konsumen dan menginputkan keterlambatan konsumen dalam mengembalikannya. Sehingga Si pemilik persewaan ini mendapatkan sedikit kemudahan dalam menghitung CD/DVD yang dipinjam.

Di program ini harga sewa CD,DVD dan keterlambatan sudah diterntukan, diantaranya adalah :

a. harga sewa CD / keping : Rp. 1000
b. harga sewa DVD / keping : Rp. 2000
c. keterlambatan CD / keping : Rp. 500
d. keterlambatan DVD / keping : Rp. 1000

Untuk membuat program yang sangat sederhana seperti penjelasan diatas. Yang perlu disiapkan adalah :

a. 12 (duabelas) komponen TLabel.
b. 3 (tiga) komponen TEdit.
c. 2 (dua) komponen TButton.

kemudian susunlah komponen-komponen diatas seperti gambar dibawah ini :


Untuk mengganti nama label,nama button dan mengganti warna TForm dapat dilihat di postingan sebelumnya.

Selanjutnya langkah memasukkan program ke dalam button hitung dan exit, diantaranya adalah :

a. button hitung isikan program seperti dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
cd,dvd,trlmbt,jw,hsewa,denda:real;
begin
cd:=strtofloat(edit1.Text);
dvd:=strtofloat(edit2.Text);
trlmbt:=strtofloat(edit3.Text);
jw:=cd+dvd;
hsewa:=(cd*1000)+(dvd*2000);
label10.Caption:=floattostr(hsewa);
denda:=(trlmbt*cd*500)+(trlmbt*dvd*1000);
label11.Caption:=floattostr(denda);
label12.Caption:=floattostr(hsewa+denda);
end;


b. button exit isikan program seperti dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin???',
'informasi',mb_okcancel or mb_iconquestion)=mrok then
Application.Terminate;
end;
end.


nah... sangat mudahkan?? silahkan coba jalankan program tersebut jika tidak ada kesalahan maka akan berjalan seperti gambar di bawah ini :


kurang lebihnya seperti itu, program ini untuk contoh programer pemula, jadi para master jangan
menertawakan dengan postingan ini. ngledek boleh tapi orang lain jangan sampek tahu,,, hehehe




Comments

Post a Comment

Popular posts from this blog

Menghitung Volume Bangun Ruang Dengan PHP

Dalam kesempatan kedua ini saya akan sharing tugas saya yang kedua. yaitu pemrograman PHP, Di dalam tugas ini mahasiswa disuruh menampilkan Volume Bola, kerucut dan kubus.Dengan ketentuan jari-jari,tinggi,sisi yang sudah ditentukan. Untuk lebih jelasnya silahkan lihat dan pelajari program dan outputanya dibawah ini : <? $phi=3.14; $r=7; $t=14; $s=10; $volbola=(4/3)*$phi*$r*$r*$r; $volkerucut=(1/3)*$phi*$r*$r*$t; $volkubus=$s*$s*$s; echo"========================================="; echo"<br/>"; echo"Nama = Fauzan Vega Saputra"; echo"<br/>"; echo"Kelas = TI_B"; echo"<br/>"; echo"NIM = 3085111136"; echo"<br/>"; echo"========================================="; echo"<br/>"; echo"| Menghitung Volume Bola, Kerucut dan Kubus |"; echo"<br/>"; echo"========================================="; echo"<br/>"; echo"

Program Konversi Uang Dengan Delphi

Pertama-tama wajib mendownload delphi 7, cari aja di mbah google pasti ada banyak banget. Setelah download selesai, install di kompi atau laptop anda, kalau dah punya delphi 7 gak diwajibkan untuk download, siapkan aja ember,gayung dan air, cari dikamar mandi jangan di mbah google.. xixixxi bingung ya kok pake ember,gayung dan air???? yaiaylah orang aku boongin,,, ckckckck udah deh bercandanya sekarang serius.... Langkah pembuatan program : 1. Jalankan Delphi 7 2. Pada kotak objek inspector terdapat 2 baris dan banyak kolom. pada kolom color isi dengan warna kesukaan anda. Disini saya contohkan dengan warna "clAqua" 3. Pada kolom caption "Form1" ganti dengan "konversi uang" 4. Tambahkan label,edit,dan button pada form konversi uang, dengan mengeklik simbol "A","OK","AB|" pada bagian atas lalu klik kan ke form konversi uang. lihat gambar dibawah : 5. dan di atur letaknya seperti gambar dibawah ini: 6. Untuk me

Program java Menghitung Bangun Kerucut & Tabung

Didalam program ini user menginputkan tinggi dan jari - jari untuk bangun A dan bangun B. kemudian program mengeksekusinya sehingga akan di ketahui luas permukaan dan volume bangun A maupun bangun B, sesuai tinggi dan jari - jari yang telah di inputkan. Berikut contoh programnya : import java.io.*; class fauyan {     double r,s,t;     double phi = 3.14;     double volumekerucut, volumetabung;     double luaskerucut, luastabung; /* Email  : f_zan.hack@yahoo.com Web   : fzan-aquana.blogspot.com             fauzanvs.blogspot.com */     void hitung() {         luaskerucut = (phi * r) * (s + r);         luastabung = (phi* r * 2) * (t + r);         System.out.println(" ");         System.out.println("  Luas Permukaan Kerucut : " +luaskerucut +" cm^2");         System.out.println("  Luas Permukaan Tabung : " +luastabung +" cm^2");         System.out.println(" ");         volumekerucut = (phi * r * r * t) / 3;