LAPORAN PEMROGRAMMAN VISUAL "PENGENALAN DELPHI"
PROGRAM PENGISIAN PULSA DENGAN DELPHI
Assalamualaikum wr.wb
Dalam posting kali,saya akan membagikan program delphi yang telah diselesaikan
untuk memenuhi praktikum 1 (Pengenalan delphi) Pemrograman Visual, Prodi
Ilmu Komputer Universitas Lambung Mangkurat. Asisten praktikum ini
adalah Ka Wenie Hardianti dan Ka Anis Fairizza.
Program yang saya share kali ini adalah program pengisian pulsa serta program sederhana perhitungan diskon serta jumlah total yang harus dibayar pembelian barang.
Program yang saya share kali ini adalah program pengisian pulsa serta program sederhana perhitungan diskon serta jumlah total yang harus dibayar pembelian barang.
- Deskripsi Program (Pengisian Pulsa)
Program yang saya buat pada praktikum kali ini yaitu program pengisian
pulsa. Seperti terlihat dari namanya, program ini berfungsi untuk melakukan
transaksi pengisian pulsa.. input yang terdapat pada program ini
yaitu,pemilihan operator,nominal pulsa,nomer handphone,serta pembayaran.
Kemudian dari data input tersebut dihasilkan output berupa oprator yang
dipilih, no telpon yang dimasukan,nominal pulsa yang dipilih, harga
pulsa,jumlah pembayaran yang dimasukan,dan terakhir kembalian.
Ketika
tombol proses ditekan di form pertama,
maka program akan menghitung kembalian
dengan rumus : jumlah pembayaran
– Harga
pulsa. Kemudian akan muncul output – output lain yang ditampilkan diform ke
2. Jika tombol “New” diklik maka akan mengosongkan
seluruh isian sedangkan jika tombol “Exit” diklik maka akan keluar dari
program.
- Interface Program (Pengisian Pulsa)
-
Coding Programa. Form1Nama KomponenEventPerintahComboBox1On Changeprocedure TForm2.pilihanChange(Sender: TObject);beginhargapulsa.Visible:=true;if pilihan.itemindex = 0 thenhargapulsa.Text:='7000';if pilihan.itemindex = 1 thenhargapulsa.Text:='12000';if pilihan.itemindex = 2 thenhargapulsa.Text:='22000';if pilihan.itemindex = 3 thenhargapulsa.Text:='27000';if pilihan.itemindex = 4 thenhargapulsa.Text:='50000';if pilihan.itemindex = 5 thenhargapulsa.Text:='55000';if pilihan.itemindex = 6 thenhargapulsa.Text:='100000';if pilihan.itemindex = 7 thenhargapulsa.Text:='200000';end;BitBtn1On clickprocedure TForm2.BitBtn1Click(Sender: TObject);beginpilihan.ItemIndex:=-1;pilopera.ItemIndex:=-1;hargapulsa.Text:='harga';edit1.Clear;edit2.Clear;end;BitBtn2On clickprocedure TForm2.BitBtn2Click(Sender: TObject);beginapplication.Terminate;end;BitBtn3On clickprocedure TForm2.BitBtn3Click(Sender: TObject);beginif (edit1.Text='') or (edit2.Text='') thenshowmessage('silahkan isi nomor ponsel dan nominal uang anda')else if strtofloat(edit2.Text)<strtofloat(hargapulsa.Text) then showmessage('Maaf Bos, Dasar ka baduit') elsebeginform1.show;form1.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));form1.Edit1.Text:=form2.Edit1.Text;form1.Edit2.Text:=form2.pilihan.Text;form1.Edit4.Text:=form2.Edit2.Text;form1.Edit3.Text:=form2.hargapulsa.Text;form1.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];showmessage('selamat, pulsa anda telah disi')end;end;b. Form2Nama KomponenEventPerintahBitBtn1On Clickprocedure TForm1.BitBtn1Click(Sender: TObject);beginapplication.terminate;end;
- Output
Gambar 1 Tampilan saat program
dijalankan
Gambar 2 Tampilan saat menginput data
Apa bila
jumlah uang kurang maka akan muncul pesan”Maaf,Uang anda tidak Cukup...!!!”
Gambar 3 Tampilan ketika menampilkan output data
bagi yang ingin download program ini silah kan klik link dibawah ini :
download (via dropbox)
download (via google drive)
untuk tugas modul bisa download disini :
download (via dropbox)
