cara membuat contoh percabangan menggunakan delphi

Tampilan Form1 untuk Inputan Nilai Sederhana  ...

#Klik 2x pada form1 .. Isi script/kode di bawah ini untuk memberikan nama pada komponen form1.

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='Inputan Nilai Sederhana';
label2.Caption:='Nilai';
Label3.Caption:='Predikat';
Label4.Caption:='Keterangan';
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Button1.caption:='Proses';
Button2.Caption:='Ganti warna';
Button3.Caption:='Hapus';
Button4.Caption:='Exit';

end;

#Klik 2x pada Button1, kemudian isi dengan script di bawah ini untuk memberikan kondisi dengan percabangan if-else, dan dengan memberikan range nilai yang ditentukan.

procedure TForm1.Button1Click(Sender: TObject);
var
A:Integer;
begin
A := StrToInt (Edit1.Text);
  if (A>=0) and (A < 30) then
    begin
    edit2.Text:='E';
    edit3.Text:='Gagal';
    end
  else if (A>=30) and (A<50) then
    begin
    edit2.text:='D';
    edit3.Text:='Gagal';
    end
  else if (A>=50) and (A<70) then
    begin
    edit2.text:='C';
    edit3.Text:='Lulus';
    end
  else if (A>=70) and (A<85) then
    begin
    edit2.Text:='B';
    edit3.Text:='Lulus';
    end
  else if (A>=85) and (A<=100) then
    begin
    edit2.Text:='A';
    edit3.Text:='Lulus';
    end
  else
    begin
    edit2.Text:='Salah Input';
    edit3.Text:='Ulangi Lagi';
  end;
end;

#Klik 2x pada Button2, kemudian ketikkan script di bawah ini untuk memberikan warna pada font yang terletak di komponen edit.

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Font.Color:=clred;
Edit2.Font.Color:=clyellow;
Edit3.Font.Color:=clgreen;
end;

#Klik2x pada Button3, kemudian ketikkan script di bawah ini untuk membersihkan hasil layar/output-an yang terjadi jika ingin mebersihkan layar output.

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

#Klik 2x, pada Button4, kemudian ketikkan script di bawah ini untuk keluar dari form ketika sedang running.

(ini cari tau sendiri yaa kodingan yang ini, jangan pake perintah close pokoknya! ada kok gampang ;)
end;

end.

aih maaf banget yaa telat ngepost, ini mungkin agak beda yaa sama yang kmaren gue ajarin, soalnya ini copasan ahahaha
gapapa mau pake yang ini atau pake yang kmaren gue ajarin sama aja ko.

LP pertemuan ke-3
1. Apa yang kalian ketahui tentang perulangan pada delphi, berikan contoh nya!
2. Apa yang kalian ketahui tentang sub menu dan menu pada delphi.

ini kira-kira besok mau belajar perulangan apa langsung masuk menu nih?
ah yasudahlah.


sb: http://toerzun.blogspot.com/2012/03/inputan-nilai-sederhana-percabangan.html