Mata Kuliah
Membuat aplikasi sederhana dengan menggunakan delphi.
Tambahkan label , combo box, list box, dan button.
Setelah semua telah ditambahkan, maka lakukan pengubahan caption dan text pada object inspector
label1 (caption) = MATA KULIAH
label2 (caption) = Wyka Nova Thella R
label3 (caption) = HARI
label4 (caption) = MATA Kuliah
ComboBox(text) = ‘ ‘
Button1 (Caption) = Tampil
Button2 (Caption) = Keluar
Serta tambahkan pula pada ComboBox dibagian Items yang terletak pada object inspector.
Lakukan penambahan dari hari senin sampai hari minggu. seperti pada gambar diatas.
Setelah melakukan penambahan pada items.
Maka berlanjut dengan melakukan pengcodingan pada button1 dan button2.
Button1(tampil)
Dengan menggunakan coding
(DEKLARASI)
Procedure TForm1.Button1Click(Sender:TObject);
begin
if combobox1.Text = ‘Senin’ then
begin
listbox1.Items[0] := ‘Algorytma Pemrograman’;
listbox1.Items[1] := ‘Matematika Dasar’;
end
else
if combobox1.Text =’Selasa’ Then
begin
listbox1.Items[0] := ‘Sistem Operasi’;
listbox1.Items[1] := ‘Pemrograman Dasar’;
end
else
if combobox1.Text = ‘Rabu’ Then
begin
listbox1.Items[0] := ‘Sistem Komputer’;
listbox1.Items[1] := ‘Pemrograman Java’;
end
else
if combobox1.Text = ‘Kamis’ Then
begin
listbox1.Items[0] := ‘Penetration Testing’;
listbox1.Items[1] := ‘Sniffing jaringan’;
end
else
if combobox1.Text = ‘Jumat’ Then
begin
listbox1.Items[0] := ‘Inject SQL’;
listbox1.Items[1] := ‘Deface’;
end
else
begin
listbox1.Items[0] := ‘Libur Coy’;
listbox1.Items[1] := ‘Waktunya Hibernasi’;
end
end;
end.
Setelah button1 (tampil) telah diisi coding dengan benar, maka lanjutkan dengan mengcoding pada button2(keluar).
Untuk coding button2(keluar)
procedure TForm.Button2Click(Sender:TObject);
begin
close;
end;
end.
Setelah semua berhasil dicoding, maka lakukan percobaan dengan langkah running program/jalankan program.
Lakukan perintah tampil, pada saat kondisi combobox berada pada hari senin s/d minggu. Lalu gunakan perintah tampil untuk melihat hasil pada listbox. Seperti pada gambar dibawah ini.
