Kali ini saya akan menjelaskan membuat program kondisi pada Delphi. Pertama-tama kita create new application. Lalu kita membuat groupbox dengan caption “Kondisi”. Setelah itu kita memberikan label,edit dan button sesuai yang kita inginkan. Di program ini terdapat 3 label, 3 edit, dan 1 button. di label 7 saat kita klik tombol button. Kita juga mengubah masing-masing nama pada edit. Edit yg pertama kita ubah dengan nama ”input_nilai” lalu yang kedua dengan “hasil_nilai” dan yang ketiga dengan “predikat_nilai”. Disini kita menginginkan disaat menginput nilai akan tampil keterangan nilai dan predikat nilai. Dan kita juga menginginkan jika yang diinput bukan angka 0-100 akan tampil “Salah Input” di hasil_nilai dan predikat _nilai. Kita menyisipkan listing program dengan cara klik dua kali di button. Lalu sebelum “begin” kita ketikan listing seperti berikut:
VAR
A : INTEGER;
Setelah “begin” kita sisipkan listing seperti berikut:
A:= STRTOINT (INPUT_NILAI.TEXT);
HASIL_NILAI.TEXT:='';
PREDIKAT_NILAI.TEXT:='';
IF A <0 THEN
BEGIN
HASIL_NILAI.TEXT:='SALAH INPUT';
PREDIKAT_NILAI.TEXT:='SALAH INPUT';
END
ELSE IF A < 50 THEN
BEGIN
HASIL_NILAI.TEXT:='ANDA TIDAK LULUS';
PREDIKAT_NILAI.TEXT:='E';
END
ELSE IF A < 60 THEN
BEGIN
HASIL_NILAI.TEXT:='SELAMAT ANDA LULUS';
PREDIKAT_NILAI.TEXT:='D';
END
ELSE IF A < 70 THEN
BEGIN
HASIL_NILAI.TEXT:='SELAMAT ANDA LULUS';
PREDIKAT_NILAI.TEXT:='D';
END
ELSE IF A < 80 THEN
BEGIN
HASIL_NILAI.TEXT:='SELAMAT ANDA LULUS';
PREDIKAT_NILAI.TEXT:='C';
END
ELSE IF A < 90 THEN
BEGIN
HASIL_NILAI.TEXT:='SELAMAT ANDA LULUS';
PREDIKAT_NILAI.TEXT:='B';
END
ELSE IF A <= 100 THEN
BEGIN
HASIL_NILAI.TEXT:='SELAMAT ANDA LULUS';
PREDIKAT_NILAI.TEXT:='A';
END
ELSE IF A >100 THEN
BEGIN
HASIL_NILAI.TEXT:='SALAH INPUT';
PREDIKAT_NILAI.TEXT:='SALAH INPUT';
END
Maka nanti akan menghasilkan output seprerti di bawah ini:
Kondisi jika kita menginput nilai >100
Kondisi jika kita menginput nilai < 0
Kondisi jika kita menginput nilai dengan kondisi ,0 < nilai < 50,
Kondisi jika kita menginput nilai dengan kondisi ,100> = nilai > 50
