Home » » BELAJAR PEMROGRAMAN DENGAN MENGGUNAKAN PROGRAM DELPHI

BELAJAR PEMROGRAMAN DENGAN MENGGUNAKAN PROGRAM DELPHI


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;



Written by : Your Name - Describe about you

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Etiam id libero non erat fermentum varius eget at elit. Suspendisse vel mattis diam. Ut sed dui in lectus hendrerit interdum nec ac neque. Praesent a metus eget augue lacinia accumsan ullamcorper sit amet tellus.

Join Me On: Facebook | Twitter | Google Plus :: Thank you for visiting ! ::

0 komentar:

Posting Komentar