Minggu, 04 Januari 2015
Ø Logika Program
Logika program ini adalah membuat program berisi
form yang terdapat listbox berisi daftar bahasa dan label sebagai output nya.
Misal nya ketika memilih pada listbox bahasa inggris maka akan tercetak I love
you begitupun bahasa yang lain nya.
Terdapat tombol tutup sebagai button untuk keluar
program .
Kondisi yang
digunakan adalah Case Of
Ø Berikut adalah
cara membuat program ungkapan rasa cinta berbagai bahasa
1. 1. Pertama buat form menjadi seperti ini. Yang berisi
listbox ,button dan 3 label
Logika :
Membuat ListBox sebagai tempat menampung
daftar-daftar bahasa
Membuat Label untuk judul program,output hasil cetak
dari bahasa yang di pilih di ListBox
Membuat Button untuk tombol tutup program
2.
2. Mengisi ListBox dengan Item.
Logika :
Klik listbox nya kemudian pada bagian object
inspector klik pada properties item dan isi dengan bahasa yang akan dimuat.
4. Isikan bahasa-bahasa yang akan dimuat pada daftar
pilihan.
3. 5. Setelah Listbox terisi , kemudian klik dua kali
listbox dan isikan kode seperti ini.
Logika :
begin
Label2.Caption:=ListBox1.Items[ListBox1.ItemIndex]; ( pada label2 cetak nama dari item yang
dipilih)
Case
ListBox1.ItemIndex Of
0:Label3.Caption:='Aku Cinta Kamu'; (jika
dipilih Indonesia maka cetak Aku Cinta Kamu)
1:Label3.Caption:='Holong Rohangku Tuha'; (jika dipilih Batak maka cetak Holong Rohangku Tuha)
2:Label3.Caption:='Aina Sidokhaou';
(jika dipilih Nias maka cetak Aina Sidokhau)
3:Label3.Caption:='Aku Tresno Kowe';
(jika dipilih Jawa maka cetak Aku Treno kowe)
4:Label3.Caption:='Abdi Tresna Anjeun';(jika dipilih Sunda maka cetak Abdi Tresna Anjeun)
5:Label3.Caption:='I Love You';
(jika dipilih Inggris maka cetak I Love You)
6:Label3.Caption:='Ich liebe dich';
(jika dipilih Jerman maka cetak Ich Liebe Dich)
7:Label3.Caption:='Ti amo';(jika
dipilih Italia maka cetak Ti amo)
end;
4. 6. Kemudian klik dua kali pada Button tombol tutup dan
isi kode seperti ini.
Logika :
begin
Application.Terminate; ( perintah
untuk menutup aplikasi )
end;
5. 7. Hasil Program jika di Run.
