BELAJAR
PEMROGRAMAN DENGAN MENGGUNAKAN PROGRAM DELPHI
Delphi
adalah Suatu bahasa pemrograman yang menggunakan visualisasi sama seperti
bahasa pemrograman Visual Basic ( VB ) . Namun Delphi menggunakan bahasa yang
hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih
mudah untuk digunakan . Bahasa pemrograman Delphi
dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik
embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa ini
memiliki versi Borland Delphi .
Gambar
1.1
Gambar
diatas adalah lingkup kerja Delphi, yang
saya tandai dengan tinta merah adalah
·
Unit Editor
·
Object Tree View
·
Form Designer
·
Component Pallete
Unit Editor adalah tempat mengisikan perintah-perintah yang akan
digunakan dalam aplikasi, setiap form akan memiliki 1 unit yang mana tiap unit
berisikan perintah yang dikelompokkan kedalam prosedur, jadi 1 form ada 1 unit seberapapun banyaknya komponen yang digunakan.
Object Tree View, berisikan daftar komponen yang diletakkan pada
Form Designer. Form ini sangat berguna
ketika sudah terlalu banyak komponen yang diletakkan ataupun komponen sudah
tertumpuk sehingga tidak terlihat, melalui form ini akan mempermudah dalam
mencari komponen.
Component Palette, disini terletak
komponen-komponen yang akan digunakan dalam membangun aplikasi, terdiri dari
banyak Tab yang mana komponen ini
bisa ditambahkan lagi dari menu component, atau ditambahkan melalui aplikasi
pihak ketiga, contohnya Raize Component atau SUIPack.
Pengenalan
pada lembar kerja Delphi sudah cukup kita
ketahui maka kita sekarang belajar prakteknya.
Pengenalan percabangan
Percabangan dalam Delphi
sebagaimana dalam Pascal memiliki sintaks sebagai berikut:
If kondisi then pernyataan;
If kondisi then
Pernyataan1
Else
Pernyataan2;
If kondisi1 then
Pernyataan1
Else if kondisi2
then
Pernyataan2
Else
Pernyataan3;
Perlu diperhatikan adalah titik koma pada sintaks if hanya satu dan terletak diakhir
sintaks, kecuali ketika ada lebih dari 1 pernyataan dalam satu
kondisi maka sintaksnya adalah sebagai berikut:
If kondisi1 then
Begin
Pernyataan1;
Pernyataan2;
End
Else if kondisi2
then
Begin
Pernyataan3;
Pernyataan4;
End
Else
Begin
Pernyataan5;
Pernyataan6;
End;
percabangan selanjutnya akan kita
pelajari di http:/trianiarista.blogspot.com
Peraktek program Delphi
Gambar 1.2
Design
form seperti gambar diatas
Buat aplikasi baru dengan komponen seperti pada gambar:
1.
Label 3 Buah
2.
Edit 2 Buah
3.
Button 3 Buah
No
|
Komponen
|
Properties
|
Value
|
1
|
Label1
|
Caption
|
Nama
|
|
|
Font Size
|
10
|
2
|
Label2
|
Caption
|
Nilai
|
|
|
Font Size
|
10
|
3
|
Label3
|
Caption
|
(kosongkan)
|
|
|
Font Size
|
10
|
4
|
Edit1
|
Text
|
(kosongkan)
|
5
|
Edit2
|
Text
|
(kosongkan)
|
6
|
Button1
|
Caption
|
Proses
|
7
|
Button2
|
Caption
|
Baru
|
8
|
Button3
|
Caption
|
Keluar
|
Tombol Proses akan berisi proses
pengubahan nilai angka menjadi nilai huruf, tombol baru untuk membersihkan
edit, dan tombol keluar untuk menutup aplikasi.
procedure
TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
begin
nilai:=strtoint(edit2.Text);
if nilai<40 then
label3.Caption:='E'
else if nilai<55 then
label3.Caption:='D'
else if nilai<70 then
label3.Caption:='C'
else if nilai<80 then
label3.Caption:='B'
else if nilai<=100 then
label3.Caption:='A'
else
label3.caption:=’Error’;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Text:='';
label3.Caption:='';
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
0 komentar:
Posting Komentar