LA pert.2 AP2A (delphi)


Membuat Percabangan pada delphi menggunakan IF – Else

label 1

Bentuk Form

Bentuk Form

Codingan Pada button IF-else

var

A : Integer;

begin

A := StrToInt (input_nilai.Text);

hasil_nilai.Text := ”;

predikat_nilai.Text := ”;

if A < 50 then

begin

hasil_nilai.Text := ‘Gagal ‘;

predikat_nilai.Text := ‘E’;

end

else if A <= 100 then

begin

hasil_nilai.Text := ‘Lulus ‘;

predikat_nilai.Text := ‘A’;

end

else

begin

hasil_nilai.Text := ‘Salah Input’;

predikat_nilai.Text := ‘Ulangi Lagi’;

end;

end;

Diatas hanya contoh program saja dapat dilengkapi lagi dan dikembangkan lagi menggunkan and dan or pada kondisi else ifnya

 

Percabangan menggunakan case of (pilihan)

Case Of

 

Menu Hidangan

Codingan pada button

var

B, C : Integer;

 

Begin

B:= StrToInt(input_makanan.text);

C:= StrToInt(input_minuman.Text);

 

begin

case B of

1: pesanan.Text := ‘Ayam Bakar dan ‘;

2: pesanan.Text := ‘Ayam Kremes dan ‘;

3: pesanan.Text := ‘Ayam Goreng dan ‘;

end;

 

case C of

4: pesanan.Text := pesanan.Text + ‘Es Teh Manis’;

5: pesanan.Text := pesanan.Text + ‘Es Jeruk’;

6: pesanan.Text := pesanan.Text + ‘Jus Mangga’;

end;

end;

end;

 

Laporan Pendahuluan Untuk pertemuan ke-3

  1.  Bagaimana cara penggunaan sub menu pada delphi
  2.  Apa yang kalian ketahui tentang timer pada delphi
  3.  Berikan contoh penggunaan timer pada delhi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s