Cara Penggunaan Input Box Pada Delphi

Cara Penggunaan Input Box Pada Delphi – Input Box adalah sebuah form yang berfungsi untuk menginputkan data atau nilai yang mana pembuatannya tidak perlu membuat form baru dan juga menggunakan komponen yang ada pada Delphi, melainkan hanya tinggal membuat sintaks untuk memanggil Input Box tersebut. Sebenarnya pembuatan, Input Box hampir sama dengan Message Box hanya saja yang membedakan adalah didalam Message Box hanya terdapat tombol OK/Yes/Cancel, sementara di dalam Input Box bukan hanya tombol tetapi juga terdapat komponen edit untuk memasukan data/nilai serta dalam pembuatannya harus disertai dengan variabel karena data yang dimasukan lewat input Box selanjutnya disimpan dalam variabel tersebut.

Untuk lebih jelasnya silahkan simak langkah – langkah Cara Penggunaan Input Box Pada Delphi dibawah ini:

#1. Langkah pertama buka aplikasi Delphinya buat form baru dan desain formnya seperti dibawah ini:

#2. Setelah itu waktunya untuk membuat sintaksnya dobel klik pada Nilai A dan masukan sintaks dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
var a:string;
    aa:Integer;
begin
a:=InputBox('Masukan','Nilai A','');
aa:=StrToInt(a);
Label1.Caption:=IntToStr(aa);
end;

#3. Lalu selanjutnya dobel klik pada Nilai B dan masukan sintaks dibawah ini:

procedure TForm1.Button2Click(Sender: TObject);
var b:string;
    bb:Integer;
begin
b:=InputBox('Masukan','Nilai B','');
bb:=StrToInt(b);
Label2.Caption:=IntToStr(bb);
end;

#4. Lalu selanjutnya dobel klik pada Hasil dan masukan sintaks dibawah ini:

procedure TForm1.Button3Click(Sender: TObject);
var a,b,c:Integer;
begin
 a:=StrToInt(label1.Caption);
 b:=StrToInt(label2.Caption);
 c:=a+b;
 label3.Caption:=IntToStr(c);
end;

#5. Selanjutnya dobel klik pada tombol ulang dan masukan sintaks dibawah ini:

procedure TForm1.Button4Click(Sender: TObject);
begin
Label1.Caption:='0';
Label2.Caption:='0';
Label3.Caption:='0';
end;

#6. Dan terakhir coba jalankan/RUN projeknya

Sekian artikel mengenai Cara Penggunaan Input Box Pada Delphi semoga bermanfaat

• 0comment

Achmad Fajar

"Musuh yang sebenarnya bukanlah orang lain, melainkan ego diri kita sendiri. Jadi, kalahkanlah ego diri kita sendiri, maka kesuksesan dapat diraih!".

Related Posts

Delphi