src='https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js'/> Contoh Aplikasi Delphi If Else Sederhana Lengkap dengan Penjelasannya - teachertekno.com

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, & UAS & mencari homogen-homogen nilai yang lalu menjadi indikator apakah mahasiswa tersebut mendapat GRADE A, B, atau C. Kamu mampu menambah baris fungsi if untuk memilih mahasiswa lulus atau nir.

Namun sebelum masuk ke script, engkau wajib memahami cara menciptakan ComboBox pada Delphi. Bagi yg belum memahami, bisa lihat contoh acara sebelumnya tentang menampilkan data pada ComboBox dalam tutorial cara menciptakan ComboBox Delphi

Contoh Aplikasi Delphi If Else Sederhana Lengkap dengan Penjelasannya

Untuk detail, berikut ini contoh aplikasi Delphi if else sederhana lengkap menggunakan output & penjelasannya.

Pertama, pada acara pelaksanaan 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 yg berisi data-data mahasiswa

- lima TEdit yg 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 ini dia.

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 dua Kali TButton1 (Rata-homogen)

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);

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

C1:=(a*b*c); merupakan operasi matematika yg adalah kode buat menerima nilai homogen-rata.

Edit4.Text:= FloatTostr ((c1)); adalah kode buat 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 ='dua' 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 hasil dari program pada atas.

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

Jadi, data mahasiswa berada pada ComboBox. Oh ya, lantaran ini hanya berupa pelaksanaan Delphi sederhana tanpa database, jadi kita isi data mahasiswa manual pribadi pada ComboBox.

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

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

Setelah itu, kita klik tombol Rata-homogen buat menampilkan nilai homogen-homogen mahasiswa tadi. Nilai tadi diperoleh menurut nilai tugas x UTS x UAS kemudian dibagi 3. Ini adalah rumus mencari homogen-homogen.

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

Kesimpulan krusial adalah mengenai konversi tipe data pada Delphi.

Jadi, konversi tipe data float ke string saat ingin menampilkan hasil operasi ke edit.Text.

Sebaliknya, konversi tipe data string ke float saat output 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!

0 Response to "Contoh Aplikasi Delphi If Else Sederhana Lengkap dengan Penjelasannya"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel