DelphiPemrograman

InputBox dan InputQuery pada Delphi #90

Badan sapi tidak berbulu seperti ayam

andrypein.net : Jika kemarin mengenal messagedialog dan messagebox sekarang bagian Inputbox dan InputQuery pada delphi, sekarang ane satuin aja, soalnya bahasannya pendek gan.

Langsung aja gan kita testing, biasa lah kita buat form aja yang standar dengan penampakan seperti ini gan:

InputBox dan InputQuery pada Delphi
penampakan form

ada 3 button dan 1 label.

menurut delphi.about.com deklarasi fungsi inputbox itu seperti ini :

function InputBox(const ACaption, APrompt, ADefault: string): string;

Sedangkan deklarasi fungsi inputQuery nya seperti ini :

function InputQuery(const ACaption, APrompt; var Value: string): boolean;

Terlihat ada boolean dan ada string.

Supaya tidak bingung kita coba kodingkan dalam 3 buah button yang sudah disiapkan gan.

Sebelumnya beri event pada form show seperti ini gan:

procedure TForm1.FormShow(Sender: TObject);
begin
 label1.Caption:='';
 form1.Caption:='inputbox dan inputquery';
end;

Button pertama kita beri listing seperti ini gan:

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:=inputbox('masukan nama anda','input here',s);
 showmessage('nama anda adalah '+s);
 form1.Caption:='selamat datang '+s;
end;

coba dicoba gan:

Kemudian button kedua listing nya seperti ini gan:

procedure TForm1.Button3Click(Sender: TObject);
var
  nama:string;
  s:boolean;
begin
 s:=inputquery('Masukan lagi nama anda','again beybeh',nama);
 nama:='nama kamu';
 if s then
   showmessage('nama anda adalah '+nama)
 else
  showmessage('ko gak diisi men???')
end;

Diharap kode diatas terlebih dahulu bisa menemukan dan memahami perbedaanya gan.

Setelah paham, untuk button ketiga kodingin buat mengecek bilangan seperti ini gan :

procedure TForm1.Button2Click(Sender: TObject);
var
  angka:string;
  cek:boolean;
begin
 cek:=inputquery('testing gan','Masukan angka dari 1..100000',angka);
 label1.Font.Style:=[fsBold];
 try
  if (cek)and(strtofloat(angka) >= 1)and(strtofloat(angka) < 10) then
   label1.Caption:=angka+' merupakan bilangan satuan' 
  else if (cek)and(strtofloat(angka) >= 10)and(strtofloat(angka) < 100) then 
   label1.Caption:=angka+' merupakan bilangan puluhan' 
  else if (cek)and(strtofloat(angka) >= 100)and(strtofloat(angka) < 1000) then 
   label1.Caption:=angka+' merupakan bilangan ratusan'
  else if (cek)and(strtofloat(angka) >= 1000)and(strtofloat(angka) < 10000) then 
   label1.Caption:=angka+' merupakan bilangan ribuan' 
  else if (cek)and(strtofloat(angka) >= 10000)and(strtofloat(angka) < 100000) then 
   label1.Caption:=angka+' merupakan bilangan puluh ribuan' 
  else if (cek)and(strtofloat(angka) >= 100000)and(strtofloat(angka) < 1000000) then
   label1.Caption:=angka+' merupakan bilangan ratus ribuan'
  else if cek = false then
   showmessage('udah ah gan');
  except
   label1.Caption:='jangan ngaco';
  end;
end;

Jujur kode diatas sangat JELEK, A.K.A (DIRTY CODE), scum, tapi yaudahlah mau gimana lagi dan semoga bermanfaat gan.! 

kalau mau download apps inputBox dan inputQuery pada Delphi nya silahkan gan ane sediakan !

Download

*AFK

Andry Fadrie K

CPU : AMD Ryzen 5 1600 12Core
Mobo : Asus ROG Strix B450-F GAMING
RAM : 16GB
Storage : 12.8TB
VGA : NVIDIA GeForce GTX 1050ti
OS : KDE Neon
Kernel : 5.11.0-46

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button