Skip to main content

Contoh Aplikasi Delphi If Else Sederhana Lengkap dengan Penjelasannya

Contoh Aplikasi Delphi If Else Sederhana Lengkap dengan Penjelasannya - Setelah kemarin kita belajar membuat program sederhana dengan ComboBox di Delphi, hari ini kita akan belajar yang lebih menarik lagi, yaitu membuat aplikasi Delphi sederhana dengan menggunakan fungsi logika if else.

Jadi, aplikasi Delphi sederhana ini seputar menghitung nilai mahasiswa, yaitu nilai tugas, UTS, dan UAS dan mencari rata-rata nilai yang kemudian menjadi indikator apakah mahasiswa tersebut mendapat GRADE A, B, atau C. Kamu bisa menambah baris fungsi if untuk menentukan mahasiswa lulus atau tidak.

Namun sebelum masuk ke script, kamu harus tahu cara membuat ComboBox di Delphi. Bagi yang belum tahu, bisa lihat contoh program sebelumnya tentang menampilkan data di ComboBox dalam tutorial cara membuat ComboBox Delphi

Contoh Aplikasi Delphi If Else Sederhana Lengkap dengan Penjelasannya


Untuk lebih jelasnya, berikut ini contoh aplikasi Delphi if else sederhana lengkap dengan output dan penjelasannya.

Pertama, dalam program aplikasi ini, kita akan belajar beberapa hal:
  1. Menggunakan ComboBox
  2. Konversi Tipe Data
  3. Logika If Else
  4. Penggunaan Logika OR (Atau)
Palette Standard yang kita butuhkan adalah sebagai berikut.
  • 1 TComboBox
  • 5 TEdit
  • 2 TButton
  • 4 TLabel
Rincian untuk desain form aplikasi.

- 1 TComboBox yang berisi data-data mahasiswa

- 5 TEdit yang meliputi:
  • edit1 = Tugas
  • edit5 = UTS
  • edit5 = UAS
  • edit5 = Nilai Rata-rata
  • edit5 = Nilai Akhir
- 2 TButton
  • Button1 = Rata-rata
  • Button2 = Nilai Akhir
- 4 TLabel
  • Label1 = Data Mahamahasiswa
  • Label1 = Tugas
  • Label1 = UTS
  • Label1 = UAS
Untuk langkah dan proses membuat aplikasi Delphi Sederhana, berikut ini penjelasan lengkapnya beserta kode program.

Klik 2 kali ComboBox1 (Data Mahamahasiswa)


Kemudian copy dan paste kode berikut ini.

if ComboBox1.Text='Anak Toraja' then
begin
edit1.Text:='90';
edit2.Text:='80';
edit3.Text:='75';
end
else if ComboBox1.Text='Steven' then
begin
edit1.Text:='90';
edit2.Text:='80';
edit3.Text:='75';
end
else if ComboBox1.Text='Romi' then
begin
edit1.Text:='90';
edit2.Text:='80';
edit3.Text:='75';
end
else if ComboBox1.Text='Agus' then
begin
edit1.Text:='90';
edit2.Text:='80';
edit3.Text:='75';
end

Klik 2 Kali TButton1 (Rata-rata)


Sebelum kode Begin, deklarasikan variabel terlebih dahulu.

var a,b,c,c1 :real;

Setelah kode Begin, copy dan paste kode berikut.

a:= StrToFloat (edit1.text);
b:= StrToFloat (edit2.text);
c:= StrToFloat (edit3.text);
c1:=(a*b*c);
edit4.Text:= FloatTostr ((c1));

Penjelasan kode di atas:

var a,b,c,c1 :real; adalah kode untuk mendeklarasikan variabel a, b, c, c1 dengan tipe data real.

a:= StrToFloat (edit1.text);
b:= StrToFloat (edit2.text);
c:= StrToFloat (edit3.text);

adalah kode untuk konversi tipe data string ke real (float) di Delphi. Ini karena data yang di edit1, edit2, dan edit3 adalah tipe data string.

c1:=(a*b*c); adalah operasi matematika yang merupakan kode untuk mendapatkan nilai rata-rata.

edit4.Text:= FloatTostr ((c1)); adalah kode untuk menampilkan operasi c1 ke edit4.Text.

Klik 2 Kali TButton2 (Nilai Akhir)


Deklarasikan variabel sebelum kode Begin

var j :real;

Setelah kode Begin, copy dan paste kode berikut ini.

j:=StrToFloat (edit5.text);

if (j>85) or (j<=100) then
edit4.Text :='1';
if (j>75) or (j<=85) then
edit4.Text :='2';
else
edit4.Text :='3';

if edit4.Text ='1' then
edit5.Text :='GRADE A';
if edit4.Text ='2' then
edit5.Text :='GRADE B';
if edit4.Text ='3' then
edit5.Text :='GRADE C';

Setelah itu, klik Run (F9) untuk menjalankan kode program di atas. Berikut ini output dari program di atas.

Contoh Aplikasi Delphi If Else Sederhana
Contoh Aplikasi Delphi If Else Sederhana

Jadi, data mahasiswa berada di ComboBox. Oh ya, karena ini hanya berupa aplikasi Delphi sederhana tanpa database, jadi kita isi data mahasiswa manual langsung di ComboBox.

Jika menggunakan database, tidak sulit kok. Kita hanya perlu membuat form input data mahasiswa dan nilainya.

Ketika kita memilih mahasiswa di ComboBox1, maka secara otomatis akan tampil nilai Tugas, UTS, dan Uas.

Setelah itu, kita klik tombol Rata-rata untuk menampilkan nilai rata-rata mahasiswa tersebut. Nilai tersebut diperoleh dari nilai tugas x UTS x UAS kemudian dibagi 3. Ini adalah rumus mencari rata-rata.

Setelah nilai rata-rata diperolah, klik tombol Nilai Akhir maka akan tampil GRADE mahasiswa tersebut yang ditentukan dengan logika if.

Kesimpulan penting adalah tentang konversi tipe data di Delphi.


Jadi, konversi tipe data float ke string ketika ingin menampilkan hasil operasi ke edit.Text.
Sebaliknya, konversi tipe data string ke float ketika hasil di edit.Text mau dioperasikan.
  • FloatToStr = Konversi tipe data real ke string
  • StrToFloat = Konversi tipe data string ke real
  • StrToInt = Konversi tipe data string ke integer
  • IntToStr = Konversi tipe data integer ke string
Demikianlah contoh aplikasi Delphi sederhana tanpa database. Semoga bermanfaat!
Contact Us: Komentar, saran dan masukan melalui WA 085396717324 dan Gmail Lara4store@gmail.com.