Senin, 20 Januari 2014

Label, Edit & Button pada Delphi


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;