LAPORAN PEMROGRAMMAN VISUAL "LOGIKA PERCABANGAN"
PROGRAM BIODATA MAHASISWA ILMU KOMPUTER ANGKATAN 2013
Assalamualaikum wr.wb
Dalam posting kali,saya akan membagikan program delphi yang telah diselesaikan
untuk memenuhi praktikum 2 (Logika Percabangan) 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 biodata mahasiswa ilkom 2013 serta program sederhana potocopy dan nilai mata pelajaran.
Program yang saya share kali ini adalah program biodata mahasiswa ilkom 2013 serta program sederhana potocopy dan nilai mata pelajaran.
- Deskripsi Program (Biodata Mahasiswa Ilkom 2013)
Program yang saya buat pada praktikum kali ini yaitu program biodata
mahasiswa ilkom angkatan 2013. Seperti terlihat dari namanya, program ini
berfungsi untuk menampilkan biodata dari mahasiswa llmu komputer angkatan 2013.
input yang terdapat pada program ini yaitu,pilihan nim. Kemudian dari data
input tersebut dihasilkan output berupa nama, tempat tanggal lahir, dan nomor
hp.
Ketika
nim kita pilih dari sebuah combobox, maka program akan menampilkan hasil output berdasarkan logika percabangan yang telah
kita tentukan, misalkan: jika kita memilih nim J1F113001,maka di bagian edit1
muncul nama”muhammad nikman nasir”,jika nama yang muncul “muhammad nikman
nasir”maka di edit2 dan di edit3 akan muncul output tempat tanggal lahir dan
nomor hp. Jika tombol “Hapus” diklik maka akan
mengosongkan seluruh isian sedangkan jika tombol “Exit” diklik maka akan keluar
dari program.
- Interface Program
- Coding Program
Nama
Komponen
|
Event
|
Perintah
|
ComboBox1
|
On Change
|
procedure
TForm2.pilihanChange(Sender: TObject);
begin
case
pilihan.ItemIndex of
0:nama.Text:='Muhammad Nikman Nasir';
1:nama.Text:='Nindea Rahmelianti';
2:nama.Text:='Sukran';
3:nama.Text:='Andre Revaldy Respati
Putra';
4:nama.Text:='Muhammad Diannor Saputera';
5:nama.Text:='Wahyu Ramadansyah';
6:nama.Text:='Riza Hidayat';
7:nama.Text:='Gusti Rahmad Haryadi';
8:nama.Text:='Dina Aulia';
9:nama.Text:='Rosidi';
10:nama.Text:='Muhammad Ripani';
11:nama.Text:='Mas Rangga Ramandika';
12:nama.Text:='Dwidya Poernareksa';
13:nama.Text:='Angga Apriliandi';
14:nama.Text:='Siti Raudah';
15:nama.Text:='Agutina Maulidiawati';
16:nama.Text:='Muhammad Ikhsan Maulana
Akbar';
17:nama.Text:='Ahmad Fajri Saadi';
18:nama.Text:='Della Safitri';
19:nama.Text:='Riyan Susilo Adji';
20:nama.Text:='Dahlia';
21:nama.Text:='Izmi Fatmawati';
22:nama.Text:='Farid Maulana Firdaus';
23:nama.Text:='Muhammad Ari Wismoyo';
24:nama.Text:='Samsudin';
25:nama.Text:='Gusti Dimas A. Thoriqi';
26:nama.Text:='Muhammad Sadillah';
27:nama.Text:='Ade Putra Ramadhan';
28:nama.Text:='Darma Sutarinda';
29:nama.Text:='Rajib Putradinata';
30:nama.Text:='Ellisa Maulina';
31:nama.Text:='Yuli Kartika Sari';
32:nama.Text:='Ramadoni Noor Rachman';
33:nama.Text:='Shelly Prafita Dewi';
34:nama.Text:='Heru Komara';
35:nama.Text:='Muhammad Alvin D.A';
36:nama.Text:='Ahmad Sarif';
37:nama.Text:='Achmad Nur R.F';
38:nama.Text:='Miftakhul Huda';
39:nama.Text:='Fahmi';
40:nama.Text:='Muhammad Anshari';
41:nama.Text:='Dedo Soeryo Seto P';
42:nama.Text:='Lisa Ulkhair';
43:nama.Text:='Riski Putri Audia';
44:nama.Text:='Muhammad Surya Rahman';
45:nama.Text:='Ardyanoor Ramadhani';
46:nama.Text:='Liza Eka Maya Yusrini';
47:nama.Text:='Haris Abdillah';
48:nama.Text:='Siti Fatma Laila';
49:nama.Text:='Nafisah';
50:nama.Text:='Dana Mahyuni';
51:nama.Text:='Iga Selvia';
52:nama.Text:='M.Faisal Rozai';
53:nama.Text:='Noorhidayah';
54:nama.Text:='Dedi Kurniawan';
end;
end;
|
Edit1
|
On Change
|
procedure
TForm2.namaChange(Sender: TObject);
begin
if nama.Text = 'Muhammad Nikman Nasir'
then
begin
ttl.Text:='Martapura, 18 Januari 1995';
hp.Text:='08991180436';
end
else if nama.Text = 'Nindea Rahmelianti'
then
begin
ttl.Text:='Kuala Kapuas, 13 Juni 1996';
hp.Text:='082352409573';
end
else if nama.Text = 'Sukran' then
begin
ttl.Text:='Tanjung, 21 Desember 1994';
hp.Text:='085386127441';
end
else if nama.Text = 'Andre Revaldy
Respati Putra' then
begin
ttl.Text:='Muara Uya, 6 Juni 1995';
hp.Text:='085251105310';
end
else if nama.Text = 'Muhammad Diannor
Saputera' then
begin
ttl.Text:='Kandangan, 28 Maret 1995';
hp.Text:='085652430913';
end
else if nama.Text = 'Wahyu Ramadansyah'
then
begin
ttl.Text:='Sampit , 31 Januari 1996';
hp.Text:='085393424128';
end
else if nama.Text = 'Riza Hidayat' then
begin
ttl.Text:='Banjarmasin , 12 Desember
1995';
hp.Text:='089628268667';
end
else if nama.Text = 'Gusti Rahmad
Haryadi' then
begin
ttl.Text:='Barabai , 23 April 1995';
hp.Text:='081254716067';
end
else if nama.Text = 'Dina Aulia' then
begin
ttl.Text:='Tanah Abang , 23 Juni 1995';
hp.Text:='089692149368';
end
else if nama.Text = 'Rosidi' then
begin
ttl.Text:='sampit,6 April 1994';
hp.Text:='085345386464';
end
else if nama.Text = 'Muhammad Ripani'
then
begin
ttl.Text:='Barabai , 29 Maret 1996';
hp.Text:='085754943365';
end
else if nama.Text = 'Mas Rangga
Ramandika' then
begin
ttl.Text:='Balikpapan , 15 februari
1996';
hp.Text:='085251105310';
end
else if nama.Text = 'Dwidya Poernareksa'
then
begin
ttl.Text:='Banjarmasin , 8 April 1995';
hp.Text:='081350438640';
end
else if nama.Text = 'Angga Apriliandi'
then
begin
ttl.Text:='Banjarmasin , 9 April 1995';
hp.Text:='08981096332';
end
else if nama.Text = 'Siti Raudah' then
begin
ttl.Text:='Kotabaru , 19 Juni 1995';
hp.Text:='085213669422';
end
else if nama.Text = 'Agustina
Maulidiawati' then
begin
ttl.Text:='Kandangan , 22 Agustus 1995';
hp.Text:='087814364182';
end
else if nama.Text = 'Muhammad Ikhsan
Maulana Akbar' then
begin
ttl.Text:='Maniang , 04 September
1995';
hp.Text:='081255212537';
end
else if nama.Text = 'Ahmad Fajri Saadi'
then
begin
ttl.Text:='Banjarmasin , 24 Mei 1996';
hp.Text:='087716160048';
end
else if nama.Text = 'Della Safitri' then
begin
ttl.Text:='Banjarmasin , 22 Februari 1995';
hp.Text:='087716160048';
end
else if nama.Text = 'Riyan Susilo Adji'
then
begin
ttl.Text:='Purwodadi , 21 Februari
1995';
hp.Text:='085828014343';
end
else if nama.Text = 'Dahlia' then
begin
ttl.Text:='Martapura , 15 Mei 1995';
hp.Text:='081909330057';
end
else if nama.Text = 'Izmi Fatmawati'
then
begin
ttl.Text:='Bali, 18 April 1994';
hp.Text:='085737578844';
end
else if nama.Text = 'Farid Maulana
Firdaus' then
begin
ttl.Text:='Sungai Danau , 15 Mei 1996';
hp.Text:='087806992528';
end
else if nama.Text = 'Muhammad Ari
Wismoyo' then
begin
ttl.Text:='Banjarmasin , 26 Desember
1994';
hp.Text:='089654598611';
end
else if nama.Text = 'Samsudin' then
begin
ttl.Text:='Jenamas , 12 April 1994';
hp.Text:='085246263301';
end
else if nama.Text = 'Gusti Dimas A.
Thoriqi' then
begin
ttl.Text:='Banjarmasin , 25 Agustus
1996';
hp.Text:='089624343402';
end
else if nama.Text = 'Muhammad Sadillah'
then
begin
ttl.Text:='Rantau Kujang , 10 April
1996';
hp.Text:='085345450015';
end
else if nama.Text = 'Ade Putra Ramadhan'
then
begin
ttl.Text:='Kotabaru , 8 Februari 1995';
hp.Text:='087715777335';
end
else if nama.Text = 'Darma Sutarinda'
then
begin
ttl.Text:='Kotabaru , 12 Januari 1996';
hp.Text:='087814705112';
end
else if nama.Text = 'Rajib Putradinata'
then
begin
ttl.Text:='Banjarmasin , 24 November
1995';
hp.Text:='087815331555';
end
else if nama.Text = 'Ellisa Maulina' then
begin
ttl.Text:='Banjarbaru , 23 Agustus
1995';
hp.Text:='082151839666';
end
else if nama.Text = 'Yuli Kartika Sari'
then
begin
ttl.Text:='Balikpapan , 5 Juli 1995';
hp.Text:='08971824130';
end
else if nama.Text = 'Ramadoni Noor
Rachman' then
begin
ttl.Text:='Banjarbaru , 14 Februari
1993';
hp.Text:='085251915731';
end
else if nama.Text = 'Shelly Prafita
Dewi' then
begin
ttl.Text:='Tamban, 5 Agustus 1995';
hp.Text:='082155613618';
end
else if nama.Text = 'Heru Komara' then
begin
ttl.Text:='Kotabaru , 27 April 1996';
hp.Text:='087715944314';
end
else if nama.Text = 'Muhammad Alvin D.A'
then
begin
ttl.Text:='Kotabaru , 6 Mei 1995';
hp.Text:='087815100195';
end
else if nama.Text = 'Ahmad Sarif' then
begin
ttl.Text:='Ampah , 10 April 1995';
hp.Text:='085754934040';
end
else if nama.Text = 'Achmad Nur R.F'
then
begin
ttl.Text:='Banjarmasin , 7 Juli 1995';
hp.Text:='082220361793';
end
else if nama.Text = 'Miftakhul Huda' then
begin
ttl.Text:='Kotabaru, 27 Juni 1995';
hp.Text:='081222214722';
end
else if nama.Text = 'Fahmi' then
begin
ttl.Text:='Barambai , 13 September
1994';
hp.Text:='085393769933';
end
else if nama.Text = 'Muhammad Anshari'
then
begin
ttl.Text:='Batumandi , 25 Mei 1995';
hp.Text:='081953506063';
end
else if nama.Text = 'Dedo Soeryo Seto P'
then
begin
ttl.Text:='Jember , 27 oktober 1994';
hp.Text:='082352909276';
end
else if nama.Text = 'Lisa Ulkhair' then
begin
ttl.Text:='Cempaka , 3 Maret 1995';
hp.Text:='085751752257';
end
else if nama.Text = 'Riski Putri Audia'
then
begin
ttl.Text:='Banjarbaru , 10 Agustus
1995';
hp.Text:='081251329048';
end
else if nama.Text = 'Muhammad Surya
Rahman' then
begin
ttl.Text:='Muara Teweh , 27 Agustus
1995';
hp.Text:='085652423231';
end
else if nama.Text = 'Ardyanoor
Ramadhani' then
begin
ttl.Text:='Banjarbaru, 27 Januari 1996';
hp.Text:='089602987704';
end
else if nama.Text = 'Liza Eka Maya
Yusrini' then
begin
ttl.Text:='Banjarmasin , 1 Mei 1994';
hp.Text:='082350941972';
end
else if nama.Text = 'Haris Abdillah' then
begin
ttl.Text:='Banjarmasin , 14 Oktober
1995';
hp.Text:='085754449324';
end
else if nama.Text = 'Siti Fatma Laila'
then
begin
ttl.Text:='Barabai , 13 Desember 1995';
hp.Text:='081348129446';
end
else if nama.Text = 'Nafisah' then
begin
ttl.Text:='Banjarbaru , 4 Juli 1995';
hp.Text:='08575233440';
end
else if nama.Text = 'Dana Mahyuni' then
begin
ttl.Text:='Banjarmasin , 20 Juni 1995';
hp.Text:='089622424447';
end
else if nama.Text = 'Iga Selvia' then
begin
ttl.Text:='Tabat , 10 Desember 1995';
hp.Text:='085754011467';
end
else if nama.Text = 'M.Faisal Rozai' then
begin
ttl.Text:='Banjarbaru , 6 Agustus
1995';
hp.Text:='081255212537';
end
else if nama.Text = 'Noorhidayah' then
begin
ttl.Text:='Daha Utara , 13 November
1993';
hp.Text:='087806920877';
end
else
begin
ttl.Text:='Pekanbaru , 25 Mei 1996';
hp.Text:='081952825677';
end
end;
|
Speedbutton1
|
On click
|
procedure
TForm2.SpeedButton1Click(Sender: TObject);
begin
pilihan.Text:='J1F113XXX';
nama.Text:='';
ttl.Text:='';
hp.Text:='';
end;
|
Speedbutton2
|
On click
|
procedure
TForm2.SpeedButton2Click(Sender: TObject);
begin
close;
end;
|
- Output
Gambar 1 Tampilan saat program
dijalankan
Gambar 2 Tampilan saat Memilih NIM
Gambar 3 Tampilan ketika menampilkan output data
5 November 2014 pukul 17.22
keren gan. Ada nama aku diprogram km :D