I.
Tujuan Praktikum
1.
Mempelajari
bahasa pemrograman Delphi
2.
Membuat
program sederhana di windows menggunakan Delphi
3.
Sebagai
tugas perkuliahan pemrograman visual
4.
Mempelajari
komponen case
of, if else dan speedbutton pada Delphi
II.
Deskripsi
Program
Program di buat menggunakan Delphi 7. Program
ini adalah tentang menghitung kubus, yang di cari adalah luas, keliling dan
volume. Program ini menggunakan label, edit, button, memo, panel dan image.
Didalam program ini kita bisa menginput data pada Input
nilai, data yang kita input bisa di lihat hasilnya pada pilihan hitung, kalau
kita ingin mencari menghapus semua data maka pilih reset dan exit adalah untuk
keluar dari program. Inputan yang di masukkan adalah berapa nilai yang ingin di
masukkan, nilai yang di masukkan. Output yang di tampilkan adalah luas kubus, keliling
kubus dan volume kubus.
III.
Interface
Program
IV.
Coding
Program
|
Nama Komponen
|
Event
|
Perintah
|
|
Proses
Reset
Close
|
OnClick
OnClick
OnClick
|
procedureTForm1.SpeedButton1
Click(Sender:
TObject);
var
ket:string;
nilai:integer;
begin
nilai:=StrToInt(edit2.Text);
ket:=edit3.Text;
case
nilai of
90..100:ket:='A';
80..89:ket:='B';
70..79:ket:='C';
60..69:ket:='D';
0..59:ket:='E';
end;
if
nilai > 100 then
begin
messageDlg('Pengisian tidak
valid',mtWarning,[mbOK],0);
edit2.SetFocus;
edit2.Clear;
end;
edit3.Text:=ket;
end;
procedure
TForm1.ResetClick
(Sender:
TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.clear;
end;
procedure TForm1.SpeedButton3
Click(Sender:
TObject);
begin
application.Terminate;
end;
|
V.
Output
Tidak ada komentar:
Posting Komentar