Skip to main content

Posts

Showing posts with the label Case Of

Penggunaan Komponen RadioGroup Lazarus Free Pascal (Belajar Lazarus #10)

Pada Tutorial Penggunaan Komponen RadioGroup Lazarus Free Pascal kali ini bertujuan untuk memahami cara penggunaan RadioGroup serta penerapan pernyataan / statement CASE. Untuk itu maka silahkan buka kembali proyek aplikasi kasiratk yang telah anda buat sebelumnya. Untuk mengingat kembali jika lupa silahkan buka kembali tutorial RadioGroup dan Validasi Data . KOMPONEN RADIOGROUP RadioGroup adalah gabungan dari komponen RadioButton dan komponen GroupBox, fungsinya sama dengan komponen RadioButton. Setelah program aplikasi kasiratk terbuka, ikuti langkah-langkah di bawah ini: LANGKAH-LANGKAH PENAMBAHAN KOMPONEN & PROPERTIES : Ubah aplikasi yang memakai RadioButton dengan RadioGroup, caranya dengan klik GroupBox, lalu tekan tombol Delete, maka ketiga komponen RadioButton didalamnya akan ikut terhapus. Tempatkan komponen RadioGroup di tempat GroupBox. Ubah Name menjadi RGBarang dan Caption-nya menjadi Nama Barang. Klik tombol [,,,] pada Properties Items milik komponen RGBar...

Penggunaan Pernyataan Case Of Lazarus Free Pascal

Pernyataan Case ... Of fungsinya sama dengan Nested If, Case ... Of mempunyai kelebihan format penulisannya lebih ringkas sehingga mempermudah programmer. Perbedaan yaang lain Case ... Of dengan Statement / Pernyataan If adalah dalam hal tipe data yang digunakan. Case ... Of menggunakan tipe data bukan Real dalam Syarat percabangan dan hanya boleh satu saja. Sementara Statement If boleh menggunakan tipe data real dan syarat percabangan boleh lebih dari satu. Pemeriksaan Syarat pada pernyataan Case ... Of lebih tepat disebutkan dalam hubungan relasi samadengan ( = ). Dengan demikian bila Syarat bernilai tertentu maka akan dilakukan perintah terkait, bila bernilai lain maka dilakukan perintah yang lain juga, demikian seterusnya. Syntax 1: case (syarat) of   (nilai_1): (perintah_1);   (nilai_2): (perintah_2);   ...   (nilai_n): (perintah_n);   else     (perintah_x); end; Contoh kasus 1: Jika nilai siswa kurang dari atau sama dengan 50 m...