Inputan Nilai Sederhana (Percabangan) Pada 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.

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

end.