Kembali lagi bersama saya, pada tutorial kali ini kita akan bermain menggunakan TComboBox, TMemo, dan TButton. ComboBox ini biasanya banyak digunakan untuk mengambil data yang tersedia. Contohnya data makanan. Ketika kita meng-click ComboBox tersebut maka akan mulcul sederetan data yang sudah disediakan oleh program. Untuk lebih jelasnya mari ikuti tutorial ini hingga selesai.
langsung saja kita design Form seperti gambar dibawah ini:
Komponen yang dibutuhkan antara lain:
TLabel = 1
TComboBox = 2
TMemo = 1
TButton = 1
Setelah design selesai Click ComboBox1 lalu pada Event OnChange masukan Coding seperti dibawah ini :
if (ComboBox1->Text == "Makanan") {Setelah itu masukan Codingan berikut pada Button1 :
ComboBox2->Items->Clear();
ComboBox2->Items->Add("Nasi Goreng");
ComboBox2->Items->Add("Rendang");
ComboBox2->Items->Add("Sate");
ComboBox2->Items->Add("Soto");
ComboBox2->Items->Add("Ayam Bakar");
} else if (ComboBox1->Text == "Minuman"){
ComboBox2->Items->Clear();
ComboBox2->Items->Add("Kopi");
ComboBox2->Items->Add("Jus Strawberry");
ComboBox2->Items->Add("Jus Anggur");
ComboBox2->Items->Add("Jus Orange");
}
if (ComboBox1->Text == "" || ComboBox2->Text == "") {
ShowMessage("Pilih terlebih dahulu..!");
} else {
Memo1->Lines->Add("Jenis : " + ComboBox1->Text);
Memo1->Lines->Add("Nama : " + ComboBox2->Text);
}
Jika ComboBox1 bernilai kosong atau "" dan ComboBox2 bernilai kosong atau "" maka memunculkan pesan = Pilih terlebih dahulu..!
jika ComboBox1 dan ComboBox2 tidak kosong maka menambahkan Text pada memo = Jenis : + data dari ComboBox1 lalu menambahkan Text pada memo = Nama : + data dariComboBox2.
Untuk lebih jelasnya kita jalankan dan test program kita.
Tetap bereksplorasi, semangat dan tentunya Coding Dong! ;)
Selamat berjumpa pada tutorial berikutnya :)
//Coding Dong!
No comments:
Post a Comment