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
Form 1
|
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;
|
Form 2
|
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;
|
|
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;
|
Tidak ada komentar:
Posting Komentar