Penggunaan If Then Pada Delphi

Thursday, November 21, 2013

Assalamualaikum,,

Sesuai judulnya, penggunaan If Then pada delphi, If Then atau sering disebut dengan kondisi, dan tidak banyak para programer menggunakan fungsi ini untuk menentukan suatu keputusan. If Then yaitu sebuah perintah untuk menyatakan suatu kondisi, perintah ini akan menghasilkan nilai TRUE/Benar apabila kondisi yang dimasukkan itu benar, dan akan bernilai False/Salah apabila suatu kondisi itu salah.

Pormat penulisan If.

if (kondisi) Then

(Perintah)

Ini berarti, perintah akan dijalankan apabila bernilai benar, sedangkan apabila salah, maka perintah tidak akan dijalankan, dan program akan menjalankan program berikutnya.

Contoh.

Buatlah sebuah program baru, dan designlah formnya seperti berikut ini.

Nah, setelah anda membuat tampilan interfacenya seperti diatas, kemudian double click pada button proses, kemudian source code dibawah ini.

procedure TForm1.Button1Click(Sender: TObject);

var

nilai: integer;

keterangan,nama,nim : string;

begin

nim:=edit1.Text;

nama:=edit2.Text;

nilai:=StrToInt(edit3.Text);

if nilai > 60 then

begin

keterangan:='Lulus';

ShowMessage('Detail Data'+#13+'Nim : ' +nim + #13 + 'Nama : '+nama +#13+ 'Anda dinyatakan : '+keterangan);

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit1.SetFocus;

end

else

keterangan:='Tidak Lulus';

ShowMessage('Detail Data'+#13+'Nim : '+nim+ #13 + 'Nama : '+nama +#13+ 'Anda dinyatakan : '+keterangan);

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit1.SetFocus;

end;

end.

Penjelasan koding :

var

nilai: integer;

keterangan,nama,nim : string;

ini maksudnya yaitu pendeklarasian variabel-variabel yang kita butuhkan, seperti nim, berarti variabel nim akan mendapatkan nilai dari edit1.text begitu juga seterusnya.

nim:=edit1.Text;

nama:=edit2.Text;

nilai:=StrToInt(edit3.Text);

seperti yang telah dijelaskan diatas, variabel nim akan mendapatkan nilai inputan dari edit1.text, begitu juga dengan variabel nama, variabel nama akan mendapatkan nilai dari inputan edit2.text,, kemudian pada variabel nilai, karna nanti hasilnya dalam bentuk integer, maka perlu dilakukan konversi typedata string ke integer.

if nilai > 60 then

begin

keterangan:='Lulus';

ShowMessage('Detail Data'+#13+'Nim : ' +nim + #13 + 'Nama : '+nama +#13+ 'Anda dinyatakan : '+keterangan);

Ini adalah sebuah kondisi, apabila variabel nilai mendapat inputan nilai integer lebih dari 60 maka akan bernilai True/False dan program akan dijalankan. tapi apabila tidak maka program akan menjalankan perintah yang lainnya.

Sekarang kalau semua sudah selesai, sekarang waktunya jalankan aplikasi kita, apabila semua sudah benar, maka akan seperti ini.