I.
Deskripsi
Program
Program ini dibuat dengan Delphi7 yang digunakan
untuk mengetahui nilai
kelulusan. Menggunakan 3 label, 3 edit dan program ini hanya menggunakan 3 button,
yaitu : button (Proses) untuk menampilkan keterangan, button (New) untuk mengisi data lagi dan button( Exit) untuk keluar.
II. Interface Program
III. Coding
Program
|
Nama Komponen
|
Event
|
Perintah
|
|
Button1
|
OnClick
|
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
ComboBox1.ItemIndex:=-1;
end;
|
|
Button2
|
OnClick
|
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit1.SetFocus;
end;
|
|
Button3
|
OnClick
|
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
|
Selengkapnya disini
Tidak ada komentar:
Posting Komentar