Borland delphi 6 adalah bahasa pemrograman yang bekerja pada lingkup sistem operasi windows, dan merupakan salah satu program yang berorientasi object ( OOP ). kemampuanya dapat dipakai untuk merancang program aplikasi yang berpenampilan seperti program aplikasi lainya yang berbasis Windows.
Kemampuan Borland Delphi 6 secara umum adalah menyediakan komponen komponen yang memungkinkan anda membuat program aplikasi yang sesuai dengan tampilan dan cara kerja windows, diperkuat dengan bahasa pemrograman tersetruktur yang sangat handal, yaitu bahasa pemrograman Object Pascal yang sangat terkenal.
Khusus untuk pemrograman database Borland Delphi 6 menyediakan fasilitas object yang sangat kuat dan lengkap. Selain menyediakn format database Paradoxs dab dBase Borland Delphi 6 juga menangani bebrbagai macam format database seperti: MS-Access, ODBC, SyBASE, Oracle dan lain lain.
1.2 Memulai Program Borland Delphi 6
Untuk memulai menjalankan Borland Delphi 6 lakukan langkah langkah sebagai berikut :
a. Klik Icon Start pada sistem operasi Windows (pastikan program Borland Delphi 6 sudah di install)
b. Tunjuk program, lalu pilih Borland Delphi 6 atau Delphi 6, kemudian akan muncul program Borland Delphi 6 yang sudah siap dipakai, seperti yang nampak pada gambar dibawah ini:
1.3 Langkah Umum Membuat Program Aplikasi
Program berikut program yang sederhana brtujuan untuk memudahkan dalam memahami membuat program aplikasi Borland Delphi 6 . Langkah langkah umum untuk membuat program aplikasi dengan Borland Delphi 6 adalah sebagai berikut :
a. Gambar object dan tata letak kedalam jendela form menggunakan ikon ikon object dalam komponen palette.
b. Bila perlu, tentukan properti pada tiap komponen menggunakan lembar properties pada jendela Object Inspector.
c. Tuliskan kode program untuk event pada object yang diinginkan. Event adalah suatu kejadian yang dirasakan object, misalnya tunjuk klik, atau kejadian lainya.
1.3.1 Membuat Program Aplikasi Pertama
Sebagai contoh yang pertama kita membuat program program aplikasi pencatat waktu seperti yang nampak pada gambar berikut :
Untuk mebuat contoh program diatas, lakukan langkah langkah sebagai berikut :
1. klik ganda pada icon label yang terdapat pada tab standart dalam konponen Palette, sehingga muncul object yang bernama label1.
2. ubah properties caption-nya pada jendela object inspector menjadi Mulai, kemudian atur tata letaknya seperti pada gambar diatas.
3. lakukan cara yang sama untuk mendapatkan label Selesai dan Lama.
4. tambahkan object edit yang letaknya disebelah kanan label. Dan kosongkan properties Text-nya.
5. tambahkan oject button, letakkan dibawah object label dan edit seperti yang nampak pada gambar. Ubah properties captionya menjadi Start.
6. tambahkan object timer yang letaknya pada tab System dalam komponen palette.
7. tekan tombol F12 untuk menampilkan editor kode program, kemudian tuliskan kode programnya. Ingat Borland Delphi 6 sudah memberikan sebagian kode program anda tinggal melengkapinya saja. Untuk kembali ke design form tekan F12 lagi. Jadi tombol ini untuk menuju design Form dan kode program secara bolak balik. Atau dengan cara meng-kilk object yang akan diisi program.
8. setelah selesai, jalankan program diatas dengan memilih menu Run lalu pilih Run atau tekan tombol F9 atau klik Icon Run.
9. Kode program dapat anda lihat seperti dibawah ini:
Unit lat01;
Interface
Uses
Windows, messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
Type
Tform1 = class(Tform)
Timer1:Ttimer;
Edit1:TEdit;
Edit2:Tedit;
Edit3:Tedit;
Label1:Tlabel;
Label2:Tlabel
Label3:Tlabel
Button1:Tbutton;
Procedure FormCreate(Sender: Tobject);
Procedure Button1Clik(Sender: Tobject);
Procedure Timer1Timer(Sender: Tobject);
Private
{ Private Declaration }
public
{ Public Declaration }
end;
var
Form1 :Tform1;
Awal,akhir : tDateTime;
Lama : Real;
Implementation
( SR *.DFM )
procedure Tform1.FormCreate (Sender: Tobject);
begin
timer1.Interval:=1;
end;
procedure Tform1.Button1Click(Sender: Tobject);
begin
if Button1.Caption=’Start’ then
begin
awal:=time;
edit1.text:=timetostr(time);
Button1.caption:=’Stop’;
end
else if button1.caption=’Stop’ then
Button1.caption:=’Selesai’
Else
Aplication.terminate
End;
Procedure Tform1.Timer1Timer(Sender: Tobject);
Var slama : String;
Begin
If Button1.Caption=’Stop’ Then
Begin
Akhir:=time;
Edit2.text:TimeToStr(akhir);
Lama:=(akhir-awal)*100000;
Str(lama:12:2,Slama);
Edit3.text:=slama;
End;
End;
End.
0 komentar:
Posting Komentar