Delphi – Menggunakan Input Box

Assalamualaikum Temen Temen Semua, Salam Semangat Di Hari ini untuk Semuanya, semoga hari ini menjadi hari yang baik untuk kita Semua *Amin.

Nah Kesempatan kali ini saya mau kembali berbagi tips tips materi Delphi lainnya nich, tetep materi materi yang mudah dan sederhana namun bisa menambah wawasan coding kita dalam pembelajaran Borland Delphi 7. Untuk Kali ini judul yang akan kita bahas adalah Mengenai Penggunaan Input Box pada Delphi. Input box dapat berguna dalam pemasukan kata kata dengan menggunakan pesan message box untuk pemasukkan katanya yang cukup atraktif /(^.^”) Monggo Langsung aja Di Simak ya.

Untuk Input Box sendiri ialah kotak Informasi pada program Delphi yang berguna dalam memasukkan kata atau suatu nilai. Tanpa harus kita sediakan edit box untut tempat penulisan kata kata tersebut kita bisa mengurangi jumlah component dengan penggunaan Input Box ini. Dalam Materi Kalii ini Penggunaan Input box yang kita akan gunakan untuk mengisi teks ke dalam Listbox yang sudah kita bahas sebelumnya. Nah Langsung aja ya.

  • Pertama tama kita akan membuat design form sebagai berikut :

 

  • Atur Properties namenya sebagai berikut ya :

Nah Berikut ini adalah alur Programnya :

  • Jika Button Input Data di klik maka akan muncul kotak input box dimana kita bisa meningiskan kata atau suatu nilai untuk dimasukkan ke dalam listbox.
  • Jika Tombol Oke Di klik maka teks yang kita tuliskan pada input box akan segera terinput kedalam List Box
  • Jika Button Keluar di klik makan akan menampilkan messagebox konfirmasi yang menyatakan ‘apakah anda yakin akan keluar dari program’ jika ya maka akan keluar dari program

Nah Berikut ini adalah Source Codenya :

procedure Tform_materi17.button_inputClick(Sender: TObject);
var
  kata_input:string;
begin

  kata_input:=inputbox('Silahkan Masukkan Kata Yang ingin dimasukkan','Konfirmasi','');
  listbox1.Items.Add(kata_input);

end;

Pertama kita akan membuat variable untuk isi dari input box yang diberi nama kata_input (disesuaikan keingingan temen temen), Kemudian varible tersebut di masukkan sebagai isian dari Hasil Input box dari coding diatas. Hasil Dari Input Box adalah Tipe Data String, Kemudian setelah itu kita membuat agar variable kata_input langsung masuk ke input box pada saat Tombol Ok Di Pilih.

procedure Tform_materi17.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_Yesno)=ID_Yes) then
    begin
      Close;
    end;

end;

JIka Button Keluar di klik maka akan muncul konfirmasi masi penringatan, dimana jika kita tekan tombol Yes untuk keluar maka akan keluar dari program jika tidak Program akan tetep berjalan.

Nah Berikut ini adalah hasil Aplikasi saat dijalankan :

  

Nah itulah materi yang kita bahas kali ini yakni penggunaan Input Box pada Delphi, Gampang dan menyenangkan itulah yang harus kita tanamkan dalam pikiran kita dalam mempelajar bahasa pemrograman Borland Delphi 7.0. Nah untuk temen temen yang mau download langsung aplikasinya bisa di download di link di bawah ini.

Download – Materi 17 Menggunakan Input Box

Nah Tetep Simak Terus Catatan Eko Personal Blog ya Temen Temen. Kita akan kembali dengan sederetan materi materi Delphi yang seru lainnya /(^.^”). Sampai jumpa lagi Esok hari Di SIni, Salam Semangat Ya d(^o^”).

Thanks & Regards

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Membuat Message Box

–          Delphi – Mengubah Posisi Teks Di List Box

–          Delphi – Menghapus Teks Di List Box

_______________________________________________________________________________

6 thoughts on “Delphi – Menggunakan Input Box

  1. Ping-balik: Delphi – Lopping Input Box « Catatan Eko

  2. Ping-balik: Delphi – Penggunaan Procedure « Catatan Eko

  3. Ping-balik: Delphi – Penggabungan String « Catatan Eko

  4. buat project pake module di raudus gimana ya mas…biar 1 module bisa dipakai di semua form…?
    saya uda coba pake delphi 7 & ra1udus tp tidak bisa, mohon pencerahannya
    tolong diadd ke emailku ya mas di kalikabur@yahoo.co.id.
    thx, eddy

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s