I.
Deskripsi
Program
Program ini merupakan program Bagian
Sel. Program ini digunakan untuk melihat gambar dan deskripsi bagian-bagian
dari sel. Program ini menggunakan logika percabangan atau singkatnya menggunakan
logika percabangan if….. then….. .
II.
Interface
Program
IV.
Coding
Program
|
Nama Komponen
|
Event
|
Perintah
|
|
proses
|
OnClick
|
procedure TForm1.PilihClick(Sender: TObject);
begin
if rb1.Checked=true then
Image1.Show
else
if rb2.Checked=true then
Image2.Show
else
if rb3.Checked=true then
Image3.Show;
end;
|
|
Reset
|
Onclick
|
procedure TForm1.ResetClick(Sender: TObject);
begin
rb1.Checked:=false;
rb2.Checked:=false;
rb3.Checked:=false;
image1.Hide;
image2.Hide;
image3.Hide;
end;
|
|
Form1
|
OnCreate
|
procedure TForm1.FormCreate(Sender: TObject);
begin
Shape1.SendToBack;
Image1.Hide;
Image2.Hide;
Image3.Hide;
end;
|
V.
Output
Untuk Source Code dan Aplikasi lengkapnya bisa didownload DISINI
Tidak ada komentar:
Posting Komentar