PEMROGRAMAN VISUAL PRAKTIKUM 2

 

I.    Tujuan Praktikum 

      Praktikum ini bertujuan untuk mengenal apa itu Logika Percabangan, mengetahui jenis-jenis dari logika

      percabangan serta fungsing dari setiap jenis logika percabangan.

II. Deskripsi Program 

      Pada program visual kali ini menggunakan Delphi XE4. Pada program ini merupakan program tentang

      perhitungan nilai pada mahasiswa. Jika nilai lebih dari 90 maka keteranganya sangat baik, jika nilai lebih

     dari 70 maka keterangannya baik, jika nilai lebih dari 60 maka keterangannya cukup, jika nilai lebih dari

     60 maka keterangannya kurang dan jika kurang dari 60 maka keterangan sangat mengecewakan.

III.  Interface Program 

IV.  Coding Program

Nama Komponen	Event	Perintah
Button 1	OnClick	procedure TForm30.Button1Click(Sender: TObject); begin edit5.Text:= floattostr ((strtofloat(edit1.Text)+strtofloat(edit2.Text)+strtofloat(edit3.Text)+strtofloat(edit4.Text))/(4)); if edit5.Text >= '90' then edit6.Text := 'Sangat Baik' else if edit5.Text >'70' then edit6.Text := 'Baik' else if edit5.Text > '60' then  edit6.Text := 'Cukup' else if edit5.Text >'50' then edit6.Text := 'Kurang' else edit6.Text := 'Sangat Mengecewakan'; end;
Button 2	OnClick	procedure TForm30.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; close; end; end.

  

V.   Ouput

Gambar 5.1. Proses Input

Gambar 5.2. Output Nilai Rata-rata dan Keterangan