Ketentuan
:
- Setiap
obyek pada desain form diatas diatur tampilan dan namanya
-
tombol atas namanya satu
-
tombol kiri namanya dua
-
tombol bawah namanya tiga
-
tombol kanan namanya empat
-
label di tengah namanya lima.
Tabel
Propertinya :
|
Obyek
|
Properti
|
Setting
|
|
Button1
|
Name
|
Satu
|
|
|
Caption
|
Atas
|
|
Button2
|
Name
|
Dua
|
|
|
Caption
|
Kiri
|
|
Button3
|
Name
|
Tiga
|
|
|
Caption
|
Bawah
|
|
Button4
|
Name
|
Empat
|
|
|
Caption
|
Kanan
|
|
Label1
|
Name
|
Lima
|
|
|
Caption
|
Posisi
|
Apabila
tombol atas ditekan pada posisi tampil “Atas”, bila tombol kiri ditekan pada
posisi tampil “Kiri”, bila tombol bawah ditekan pada posisi tampil “Bawah” dan
bila tombol kanan ditekan pada posisi tampil “Kanan”.
Programnya
:
procedure
TForm1.SatuClick(Sender: TObject);
begin
lima.Caption := 'Atas' ;
end;
procedure
TForm1.DuaClick(Sender: TObject);
begin
lima.Caption := 'Kiri' ;
end;
procedure
TForm1.TigaClick(Sender: TObject);
begin
lima.Caption := 'Bawah' ;
end;
procedure
TForm1.EmpatClick(Sender: TObject);
begin
lima.Caption := 'Kanan' ;
end;
Hasil :
Ketentuan
:
-
Nama obyek tidak diubah
-
Nama barang, Harga Satuan dan Banyak diinput
-
jika tombol Hitung ditekan, maka akan menampilkan nilai Jumlah
-
Jumlah diperoleh dari hasil perkalian Harga Satuan dengan Banyak
-
jika tombol Hapus ditekan, maka akan mengosongkan seluruh obyek edit
Tabel
Propertinya :
|
Obyek
|
Properti
|
Setting
|
|
Form1
|
Caption
|
Mini Market
|
|
Label1
|
Caption
|
Nama Barang
|
|
Label2
|
Caption
|
Harga Satuan
|
|
Label3
|
Caption
|
Banyak
|
|
Label4
|
Caption
|
Jumlah
|
|
Button1
|
Caption
|
Hapus
|
|
Button2
|
Caption
|
Hitung
|
|
Edit1
|
Text
|
--
|
|
Edit2
|
Text
|
--
|
|
Edit3
|
Text
|
--
|
|
Edit4
|
Text
|
--
|
Programnya
:
procedure
TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := ' ' ;
Edit2.Text := ' ' ;
Edit3.Text := ' ' ;
Edit4.Text := ' ' ;
end;
procedure TForm1.Button2Click(Sender:
TObject);
var
a , b , c , z : integer ;
d :
string ;
begin
val
( Edit2.text , a , z ) ;
val
( Edit3.text , b , z ) ;
c :=
a * b ;
str
( c , d ) ;
Edit4.text
:= d ;
end
;
Hasil :
Ketentuan
:
-
Nama Barang dan Harga Barang tidak dapat diubah, jadi dibentuk dengan obyek
label
-
Jumlah Uang diinput
-
jika tombol Hitung ditekan, menampilkan jumlah barang yang dapat diperoleh pada
Diberikan dan besar sisa uang pada Uang Kembali
Tabel Propertinya :
|
Obyek
|
Properti
|
Setting
|
|
Form1
|
Caption
|
Minimarket
|
|
Label1
|
Caption
|
Nama Barang
|
|
Label2
|
Caption
|
Harga Barang
|
|
Label3
|
Caption
|
Jumlah Uang
|
|
Label4
|
Caption
|
Diberikan
|
|
Label5
|
Caption
|
Uang Kembali
|
|
Label6
|
Caption
|
Buku
|
|
Label7
|
Caption
|
3000
|
|
Button1
|
Caption
|
Hitung
|
|
Edit1
|
Text
|
--
|
|
Edit2
|
Text
|
--
|
|
Edit3
|
Text
|
--
|
Programnya
:
procedure
TForm1.Button1Click(Sender: TObject);
var
a , z : integer ;
c ,
x : real ;
d ,
f : string ;
begin
val
( edit1.Text , a , z ) ;
c :=
a div 3000 ;
x :=
a mod 3000 ;
str
( c : 0 : 0 , d ) ;
str
( x : 0 : 0 , f ) ;
edit2.Text
:= d ;
edit3.Text
:= f ;
end;
Hasil :
Ketentuan
:
-
Jari-jari diinput
-
jika menekan tombol Luas, akan menampilkan nilai luas lingkaran
-
nilai luas dalam 2 desimal
Tabel
Propertinya :
|
Obyek
|
Properti
|
Setting
|
|
Form1
|
Caption
|
Lingkaran
|
|
Label1
|
Caption
|
Jari-jari
|
|
Label2
|
Caption
|
Hasil
|
|
Button1
|
Caption
|
Luas
|
|
Edit1
|
Text
|
--
|
|
Edit2
|
Text
|
--
|
Programnya
:
procedure
TForm1.Button1Click(Sender: TObject);
var
a , z : integer ;
c
: real ;
d
: string ;
begin
val
( edit1.Text , a , z ) ;
c :=
pi * a * a ;
str
( c : 5 : 2 , d ) ;
edit2.Text
:= d ;
end ;
Hasil :
Ketentuan
:
-
Nama dan Tahun Lahir diinput
-
Usia dan Kelompok Umur akan tampil saat tombol Proses ditekan
-
Usia diperoleh dari tahun sekarang dikurangi Tahun Lahir
-
Kelompok Umur diperoleh dengan ketentuan,
jika
usia di bawah 5 maka 'balita'
selainnya
jika usia di bawah 13 maka 'anak-anak'
selainnya
jika usia di bawah 17 maka 'remaja'
selainnya
jika usia di bawah 33 maka ‘pemuda'
selainnya
jika usia di bawah 60 maka'dewasa'
selainnya
jika usia di bawah 120 maka 'lansia'
selainnya
‘Tidak Mungkin'
- Hapus
untuk mengosongkan seluruh edit
- Exit
untuk menghentikan jalannya program
Tabel
Propertinya :
|
Obyek
|
Properti
|
Setting
|
|
Form1
|
Caption
|
Horoscope
|
|
Label1
|
Caption
|
Nama
|
|
Label2
|
Caption
|
Tahun Lahir
|
|
Label3
|
Caption
|
Usia
|
|
Label4
|
Caption
|
Kelompok Umur
|
|
Button1
|
Caption
|
&Proses
|
|
Button2
|
Caption
|
&Hapus
|
|
Button3
|
Caption
|
&Exit
|
|
Edit1
|
Text
|
--
|
|
Edit2
|
Text
|
--
|
|
Edit3
|
Text
|
--
|
|
Edit4
|
Text
|
--
|
Programnya
:
procedure
TForm1.Button1Click(Sender: TObject);
var
a , b , z : integer ;
d :
string ;
begin
val
( edit2.Text , a , z ) ;
b :=
2014 – a ;
str
( b , d ) ;
Edit3.Text
:= d ;
if
b < 5 then edit4.text := 'balita'
else
if b < 12 then edit4.text := 'anak-anak'
else
if b < 16 then edit4.text := 'remaja'
else
if b < 32 then edit4.text := 'pemuda'
else
if b < 60 then edit4.text := 'orang tua'
else
if b < 120 then edit.text:='lansia'
else
edit4.text:='Tidak Mungkin';
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text
:= ' ' ;
Edit2.Text
:= ' ' ;
Edit3.Text
:= ' ' ;
Edit4.Text
:= ' ' ;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
Application.terminate
;
end;
Hasil :
Ketentuan
:
-
Tampilan desain form seperti di atas
-
Tampilan form saat baru dijalankan
- Alas dan Tinggi diinput, bila tombol Luas
ditekan akan menampilkan nilai Luas dengan tampilan sbb :
-
bila tombol Keliling ditekan akan menampilkan nilai Keliling dengan
tampilan sbb :
Tabel
Propertinya :
|
Obyek
|
Properti
|
Setting
|
|
Form1
|
Caption
|
Segitiga Sikusiku
|
|
Label1
|
Caption
|
Alas
|
|
Label2
|
Caption
|
Tinggi
|
|
Label3
|
Visible
|
False
|
|
Label4
|
Visible
|
False
|
|
Button1
|
Caption
|
&Luas
|
|
Button2
|
Caption
|
&Keliling
|
|
Edit1
|
Text
|
--
|
|
Edit2
|
Text
|
--
|
|
Edit3
|
Visible
|
False
|
|
Edit4
|
Visible
|
False
|
Programnya
:
procedure
TForm1.Button1Click(Sender: TObject);
var
a , b , z : integer ;
c
: real ;
d
: string ;
begin
val
( edit1.Text , a , z ) ;
val
( edit2.Text , b , z ) ;
c :=
0.5 * a * b ;
str
( c : 5 : 2 , d ) ;
edit3.Text
:= d ;
edit3.Visible
:= true ;
edit4.Visible
:= false ;
label3.Caption
:= 'Luas' ;
label3.Visible
:= true ;
label4.Visible
:= false ;
end;
procedure
TForm1.Button2Click(Sender: TObject);
var
a , b , z : integer ;
c ,
e : real ;
d ,
f : string ;
begin
val
( edit1.Text , a , z ) ;
val
( edit2.Text , b , z ) ;
c :=
sqrt ( ( a * a ) + ( b * b ) ) ;
e :=
c + a + b ;
str
( c : 5 : 2 , d ) ;
str
( e : 5 : 2 , f ) ;
edit3.Text
:= d ;
edit4.Text
:= f ;
label3.Visible
:= true ;
label3.Caption
:= ' Sisi miring ' ;
label4.Visible
:= true ;
label4.Caption
:= ' Keliling ' ;
edit3.Visible
:= true ;
edit4.Visible
:= true ;
end;
