Delphi for delphier

Format – Leading Zeroes

Tingkatan Pemula
Kategori Dasar
Sub Kategori Format
Judul Leading Zeroes
Oleh

 

Eko Indriyawan

Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Referensi http://delphi.about.com/od/adptips2005/qt/leadingzero.htm
   

Tujuan

Mengajarkan kepada programmer pemula tentang bagaimana membuat format dengan angka 0 untuk controlnya.

  spasi

Overview

Artikel ini akan menunjukkan kepada anda sebagai programmer pemula untuk membuat format kode dengan diawali dengan karakter 0.

Pembahasan dari materi ini sangat bermanfaat ketika dalam program aplikasi nanti membutuhkan pengkodean yang terstruktur dan urut berdasarkan indek.

Dengan contoh ini, nantinya anda bisa kembangkan sendiri untuk membuat format yang lebih kompleks.

  spasi
  Struktur fungsi :
  spasi
 

function AddLeadingZeroes(const aNumber, Length : integer) : string;
begin

result := Format (‘%.*d’, [Length, aNumber]) ;

end;

  spasi
 

Dari struktur fungsi dapat dijelaskan sebagai berikut.

AddLeadingZeroes = Nama fungsi
aNumber = Angka yang diformat
Length = Panjang format
result = Hasil format dengan tipe string
  spasi
  Misalkan:
   
  contoh 1 :
   
 
aNumber = 12
Length = 5
result = 00012
  spasi
  contoh 2 :
   
 
aNumber = 3
Length = 5
result = 00003
   
  contoh 3 :
   
 
aNumber = 100
Length = 8
result = 00000100
   
Petunjuk :

Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

  spasi

Langkah 1

Buat program aplikasi baru.
   

Langkah 2

Tambahkan beberapa object kedalam Form
   
  Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Bevel1: TBevel;
Button2: TButton;
Label3: TLabel;
Edit3: TEdit;
  spasi
Langkah 3 Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini
   
 

format0001.jpg

   
Langkah 4

Silahkan anda klik 2x tombol Proses. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

  spasi
 

procedure TForm1.Button1Click(Sender: TObject);
begin

Edit3.Text := AddLeadingZeroes(
StrToInt(Edit1.Text),
StrToInt(Edit2.Text)
);

end;

  spasi

Langkah 5

Silahkan anda compile. Tekan tombol Ctrl + F9.

   
 

Tunggu beberapa saat… ( Sedang di cek kode programnya )

 

Apabila tidak muncul pesan error, berarti program yang anda buat telah berhasil dan silahkan anda tekan tombol F9 untuk menjalankan program aplikasinya.

  spasi
Langkah 6

Silahkan anda tekan tombol Proses

   
 

format0002.jpg

   
 

Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar

Semoga artikel ini bisa bermanfaat. Silahkan anda berikan informasi ini kepada teman – teman anda yang belum tahu.

Mari kita wujudkan kemajuan IT Indonesia bersama dengan teman – teman yang lain dengan Delphi sebagai media pemupuk kebersamaan.

  spasi
  spasi

Download

Format – Leading Zeroes

Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.

Ada beberapa masukan dan keluhan dari teman – teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.

Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah – langkah yang sudah diberikan.

Atas perhatiannya, saya mengucapkan banyak terimakasih.

  spasi
Link terkait
   
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
 
 
 

Jika anda mau berusaha dan punya semangat, jangan biarkan waktu anda lari begitu saja. By Eko Indriyawan

Blog di WordPress.com.

%d blogger menyukai ini: