"LAPORAN PEMROGRAMMAN VISUAL "TAB ADDITIONAL I"
PROGRAM PENGISIAN PULSA PART II
I.
Tujuan Praktikum
Tujuan dari
praktikum kali yaitu untuk mengenal tab additional pada delphi. Selain itu para parktikan sendiri harus tau , fungsi
dan penggunaan dari tab additional, dan tentunya para praktikan harus tau cara membuat
sebuah program delphi dengan menggunakan tab additional. Mulai dari tahap membuat program sampai tahap
menjalankan program.
II.
Deskripsi
Program
Program yang saya buat pada praktikum kali ini yaitu
program pengisian
pulsa versi 2. Program ini
dibuat untuk mempermudah seseorang bertransaksi. Untuk menjalankan program ini, pertama-tama pengguna
harus memilih
Operator Pengisian Pulsa terlebih dahulu.
Setelah Operator dipilih maka selanjutnya pengguna akan memilih nominal pulsa
yang dipilih. Kemudian, isi
nomer hape dan nominal uang yang dibayar dan selanjutnya klik proses. Ketika
tombol proses di klik, maka form hasil transaksi akan muncul. Ketika penjual ingin melihat daftar transaksi pulsa
yang dilakukan, pengguna harus mengklik tombol list transaksi, maka akan muncul
form stringgrid yang berisi list transaksi, jika ingin keluar klik KELUAR.
III. Interface Program
IV.
Coding
Program
1.
Form2
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm2.Button1Click(Sender: TObject);
begin
form11.Showmodal;
end;
|
|
Button2
|
Onclick
|
procedure TForm2.Button2Click(Sender: TObject);
begin
form12.show;
form2.Hide;
end;
|
|
ComboBox1
|
Onclick
|
procedure TForm2.pilihanChange(Sender: TObject);
begin
hargapulsa.Visible:=true;
if pilihan.itemindex = 0 then
hargapulsa.Text:='7000';
if pilihan.itemindex = 1 then
hargapulsa.Text:='12000';
if pilihan.itemindex = 2 then
hargapulsa.Text:='22000';
if pilihan.itemindex = 3 then
hargapulsa.Text:='27000';
if pilihan.itemindex = 4 then
hargapulsa.Text:='50000';
if pilihan.itemindex = 5 then
hargapulsa.Text:='55000';
if pilihan.itemindex = 6 then
hargapulsa.Text:='100000';
if pilihan.itemindex = 7 then
hargapulsa.Text:='200000';
end;
|
|
Nama
Komponen
|
Event
|
Perintah
|
|
BitBtn1
|
Onclick
|
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
pilihan.ItemIndex:=-1;
pilopera.ItemIndex:=-1;
hargapulsa.Text:='harga';
edit1.Clear;
edit2.Clear;
end;
|
|
BitBtn3
|
Onclick
|
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') then
begin
MessageDlg('Maaf ,silahkan isi nomor hape dan nominal
uang anda terlebih dahulu',mtWarning,[mbOk],0);
end
else if strtofloat(edit2.Text)<strtofloat(hargapulsa.Text)
then
MessageDlg('Maaf , Uang Anda Tidak Cukup Untuk
Melakukan Pengisian Ulang Pulsa',mtWarning,[mbOk],0);
if
pilopera.ItemIndex = 0 then
begin
form1.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];
inc(x);
form11.stringgrid1.Cells[6,x]:=form1.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form1.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form1.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form1.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form1.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form1.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form1.Close;
end
else if
pilopera.ItemIndex = 1 then
begin
form4.show;
form4.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form4.Edit1.Text:=form2.Edit1.Text;
form4.Edit2.Text:=form2.pilihan.Text;
form4.Edit4.Text:=form2.Edit2.Text;
form4.Edit3.Text:=form2.hargapulsa.Text;
form4.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form4.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form4.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form4.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form4.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form4.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form4.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form4.Close;
end
else if
pilopera.ItemIndex = 2 then
begin
form5.show;
form5.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form5.Edit1.Text:=form2.Edit1.Text;
form5.Edit2.Text:=form2.pilihan.Text;
form5.Edit4.Text:=form2.Edit2.Text;
form5.Edit3.Text:=form2.hargapulsa.Text;
form5.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form5.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form5.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form5.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form5.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form5.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form5.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form5.Close;
end
else if
pilopera.ItemIndex = 3 then
begin
form6.show;
form6.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form6.Edit1.Text:=form2.Edit1.Text;
form6.Edit2.Text:=form2.pilihan.Text;
form6.Edit4.Text:=form2.Edit2.Text;
form6.Edit3.Text:=form2.hargapulsa.Text;
form6.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form6.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form6.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form6.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form6.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form6.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form6.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form6.Close;
end
else if
pilopera.ItemIndex = 4 then
begin
form7.show;
form7.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form7.Edit1.Text:=form2.Edit1.Text;
form7.Edit2.Text:=form2.pilihan.Text;
form7.Edit4.Text:=form2.Edit2.Text;
form7.Edit3.Text:=form2.hargapulsa.Text;
form7.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form7.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form7.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form7.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form7.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form7.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form7.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form7.Close;
end
else if
pilopera.ItemIndex = 5 then
begin
form8.show;
form8.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form8.Edit1.Text:=form2.Edit1.Text;
form8.Edit2.Text:=form2.pilihan.Text;
form8.Edit4.Text:=form2.Edit2.Text;
form8.Edit3.Text:=form2.hargapulsa.Text;
form8.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form8.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form8.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form8.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form8.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form8.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form8.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form8.Close;
end
else if
pilopera.ItemIndex = 6 then
begin
form9.show;
form9.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form9.Edit1.Text:=form2.Edit1.Text;
form9.Edit2.Text:=form2.pilihan.Text;
form9.Edit4.Text:=form2.Edit2.Text;
form9.Edit3.Text:=form2.hargapulsa.Text;
form9.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form9.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form9.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form9.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form9.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form9.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form9.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form9.Close;
end
else if
pilopera.ItemIndex = 7 then
begin
form10.show;
form10.Edit5.Text:=inttostr(strtoint(form2.edit2.Text)-strtoint(form2.hargapulsa.Text));
form10.Edit1.Text:=form2.Edit1.Text;
form10.Edit2.Text:=form2.pilihan.Text;
form10.Edit4.Text:=form2.Edit2.Text;
form10.Edit3.Text:=form2.hargapulsa.Text;
form10.Edit6.Text:=pilopera.Items[pilopera.ItemIndex];
inc(x);
form11.stringgrid1.Cells[6,x]:=form10.Edit5.Text;
form11.stringgrid1.Cells[2,x]:=form10.Edit1.Text;
form11.stringgrid1.Cells[3,x]:=form10.Edit2.Text;
form11.stringgrid1.Cells[5,x]:=form10.Edit4.Text;
form11.stringgrid1.Cells[4,x]:=form10.Edit3.Text;
form11.stringgrid1.Cells[1,x]:=form10.Edit6.Text;
MessageDlg('Selamat,Pulsa Anda Telah
Terisi...!!!',mtInformation,[mbOk],0);
form10.Close;
end
end;
|
2.
Form12
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm12.Button1Click(Sender: TObject);
var i:integer;
begin
memo1.clear;
showmessage('Pembayaran Selesai');
for i := 1 to 7 do
form12.memo1.Lines.Append('THANKSSS...!!!');
end;
form5.memo1.Lines.Append('THANKS');
end;
|
|
Button2
|
Onclick
|
procedure TForm12.Button2Click(Sender: TObject);
begin
if(application.MessageBox('Yakin akan Keluar dari Program','Konfirmasi
Ulang',MB_YesNo)=ID_Yes) then
begin
Application.terminate;
end;
end;
|
V. Output
 |
| Tampilan saat program dijalankan |
 |
| Tampilan saat menginput data |
 |
| Tampilan Hasil Inputan |
 |
| Tampilan List Transaksi |
Yang mau coba programnya silahkan Sedot aja gan...disini...!!!
0 Response to ""LAPORAN PEMROGRAMMAN VISUAL "TAB ADDITIONAL I""
Posting Komentar