Delphi – Menghitung Jumlah Karakter Edit Box

Delphi – Menghitung Jumlah Karakter Edit Box

Assalamualaikum Temen Temen Semua, Salam Semangat Di Jum’at Pagi ini /(^o^”) masih tetap Setia untuk Tips Tips Materi Pembelajaran Dlephi nich (^.^”).
Nah kesempatan kali ini saya mau berbagi tips materi Delphi dengan Tema Mengetahui Jumlah Karakter Pada Edit Box. Jadi kita dapat menghitung jumlah karakter teks yang terdapat pada edit box. Untuk pembahasan Karakter ini maka untuk spasi pada edit box pun akan terhitung 1 karakter nich, Nah Langsung aja disimak biar gak penasaran.
Pembuatan kali ini sangat sederhana kita hanya akan menghitung panjang karakter yang diinput dalam nilai edit box. Komponen yang digunakan pun semuanya standar yang biasa kita gunakan di materi materi sebelumnya. Langsung kita praktekkan ya.
  • Pertama Tama Buatlah Design Form Sebagai Berikut :
  • Aturlah Properties Namenya seperti dibawah ini :
Nah untuk alur programnya temen temen bisa liat di bawah ini :
  • Pada Saat program dijalankan kita bisa mengetikkan teks pada edit nama.
  • Jika button hitung di klik namun edit nama masih kosong maka akan ada konfirmasi message box untuk mengisi nama pada edit nama agar ada nilai teks yang bisa dihitung (validasi nilai).
  • Jika button hitung di klik dan edit nama sudah terisi maka edit jumlah akan menampilkan jumlah karakter yang di input pada edit naman ( spasi dihitung satu karakter ).
  • Jika button bersih di klik akan membersihkan teks dan set focus ke edit nama untuk perhitungan selanjutnya.
  • Jika button keluar di klik maka akan muncuk kotak konfirmasi apakah yakin akan keluar dari program, jika ya maka akan keluar dari program.
Berikut ini adalah listing codenya :
01procedure Tform_materi26.button_hitungClick(Sender: TObject);
02  var
03    nama:string;
04begin
05 
06  if edit_nama.Text='' then
07    begin
08      showmessage('Silahkan isikan Nama Anda');
09      edit_nama.SetFocus;
10    end
11  else
12    begin
13      nama:=edit_nama.Text;
14      edit_jumlah.Text:=inttostr(length(nama));
15    end
16 
17end;
 buat variable nama untuk mewakili nilai hasil edit nama, penggunaan fungsi if untuk melakukan validasi nilai agar tidak ada nilai yang kosong yang dapat membuat error program. untuk menhasilkan nilai jumlah karakter kita hanya menggunakan fungsi length dari nilai yang ingin kita lihat jumlah karakternya.
1procedure Tform_materi26.button_bersihClick(Sender: TObject);
2begin
3 
4  edit_nama.Text:='';
5  edit_jumlah.Text:='';
6 
7end;
JIka button bersih di klik maka akan membersihkan teks pada program.
1procedure Tform_materi26.button_keluarClick(Sender: TObject);
2begin
3 
4  if(application.MessageBox('Yakin akan keluar dari program ?','Konfirmasi',MB_YesNo)=ID_Yes)then
5    begin
6      close;
7    end;
8 
9end;
Pada saat button keluar di klik maka akan memberikan konfirmasi keluar dari program.
_______________________________________________________________________________
Nah dibawah ini adalah hasil tampilan programnya :
tampilan hasil perhitungan karakter
konfirmasi pengisian saat edit teks kosong
hasil button bersih
konfirmasi keluar dari program
Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Menghitung Jumlah Karater pada Edit Box Delphi. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

0 Response to " Delphi – Menghitung Jumlah Karakter Edit Box "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!