Pembuatan Himpunan Crisp Fuzzy Pada Delphi

 Bagi mahasiswa yang sedang mengerjakan Skripsi yang berkaitan dengan Fuzzy sering kali mencari cari coding untuk Fuzzy pada Delphi, berikut saya bagikan coding untuk perhitungan Hipunan Crisp Fuzzy pada Delphi.

                                                                                                                                          

Misalkan ada himpunan fuzzy seperti digambar, yang mana huruf f,h, dan j bisa anda tentukan sendiri sesuai data yang dipakai dalam penelitian anda.

  

Rumus perhitungan untuk setiap himpunan sebagai berikut

   

Untuk dalam Delphi rancanglah form dengan 7 edit, 1 button, dan 1 TImage hingga berbentuk seperti berikut.

Untuk tombol Go !! klik 2 kali dan isi prosedurnya seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);

var f,h,j,y,rendah,normal,tinggi:Double;

begin

  f:=StrToFloat(Edit1.Text);

  h:=StrtoFloat(Edit2.Text);

  j:=StrToFloat(Edit3.Text);

  y:=StrToFloat(Edit4.Text);

  //untuk himpunan Rendah

  if y<=f then rendah:=1

  else if (y>=f) and (y<=h) then rendah:=(h-y)/(h-f)

  else if y>=h then rendah:=0;

  //untuk himpunan Normal

  if  (y<=f) or (y>=j) then normal:=0

  else if (y>=f) and (y<=h) then normal:=(y-f)/(h-f)

  else if (y>=h) and (y<=j) then normal:=(j-y)/(j-h);

  //untuk himpunan Tinggi

  if y<=h then tinggi:=0

  else if  (y>=h) and (y<=j) then tinggi:=(y-h)/(j-h)

  else if y>=j then tinggi:=1;

  Edit5.Text:=FloatToStr(rendah);

  Edit6.Text:=FloatToStr(normal);

  Edit7.Text:=FloatToStr(tinggi);

end;

Maka Ketika Dijalankan akan tampil seperti berikut:

Melakukan Perhitungan dengan Komponen Edit pada Delphi

Komponen edit bisa kita gunakan sebagai variabel dalam sebuah perhitungan, misalnya kita bisa buat aplikasi sederhana yang menghitung luas dan keliling persegi panjang.

Dalam contoh digunakan 3 edit yang mana edit1 untuk isian panjang, edit2 untuk isian lebar, edit3 untuk isian hasil. Kemudian ada tombol Luas untuk melakukan proses penghitungan luas dan tombol keliling untuk penghitungan keliling persegi panjang.

Agar ketika aplikasi dijalankan semua komponen edit bersih dari tulisan namanya bisa kita lakukan pembersihan pada prosedur events form OnShow, klik tempat kosong di form pilih tab Events pada Object Inspector, cari OnShow lalu klik 2x. Lalu isi seperti berikut

procedure TForm1.FormShow(Sender: TObject);

begin

Edit1.Text:=''; {berfungsi untuk mengkosongkan Edit}

Edit2.Text:='';

Edit3.Text:='';

Edit3.Enabled:=false; {berfungsi untuk membuat Edit tidak bisa dipilih ataupun diubah secara manual}

Edit1.SetFocus;{berfungsi untuk membuat kursor langsung berada di Edit1}

end;

Sebagai mana kita ketahui rumus menghitung luas adalah Luas=panjang*lebar, dan rumus menghitung keliling adalah Keliling=2*(p+l), nah kita punya edit1 sebagai panjang, edit2 sebagai lebar maka untuk menghitung luas kurang lebih adalah

edit3.text:=edit1.text*edit2.text

yang maksudnya adalah isi teks pada edit3 adalah perkalian dari teks pada edit1 dan edit2, akan tetapi karena text merupakan tipe data String dan tidak bisa dlakukan perkalian maka perlu ada konversi dari String ke Integer (StrToInt)

maka kita buat dulu variabel panjang dan lebar yang bertipe data Integer, pada tombol luas klik 2x dan isi seperti ini

procedure TForm1.Button1Click(Sender: TObject);

var panjang,lebar,luas:Integer;

begin

  panjang:=StrToInt(Edit1.Text);{mengubah teks pada edit kedalam variabel integer panjang}

  lebar:=StrToInt(Edit2.Text);

  luas:=panjang*lebar; {rumus menghitung luas}

  Edit3.Text:=IntToStr(luas);{ menampilkan luas ke edit3}

end;

maka ketika aplikasi dijalankan kita isi panjang dan lebar kemudian klik tombol luas maka akan tampil seperti berikut

 

Coba Lakukan hal yang sama pada tombol Keliling

Nilai Produktif Java SMK Mandiri

Komponen Edit pada Delphi

Ada Bermacam nama untuk komponen yang berfungsi untuk memasukkan (input) ataupun menampilkan (output) ini, untuk Delphi komponen ini bernama TEdit atau Edit, Terletak pada Palette Standard, tinggal klik dan letakkan pada form yang diinginkan maka komponen edit sudah bisa kita gunakan.

 

 

 

Pada Object Inspector tab Properties bisa kita lihat bermacam-macam pilihan yang bisa kita pakai untuk komponen ini, diantaranya:

1. 
   

   CharCase, bisa kita pilih huruf yang akan tampil dalam Edit ini apakah huruf kecil (ecLowerCase), huruf capital (ecUpperCase), atau

   normal (ecNormal).
   
2. Left, Top, untuk menentukan posisi Edit yang kita pakai
   
3. Height, Width, untuk ukurannya
   
4. Font, untuk menentukan bentuk huruf
   
5. Enabled, True/False, untuk menentukan sebuah Edit bisa dirubah atau tidak
   
6. Text, untuk langsung menampilkan teks pada Edit
   
7. Visible, True/False, untuk menentukan apakah Edit terlihat atau tidak
   
8. Name, untuk memberi nama komponen Edit
   
9. PasswordChar, untuk memberi penutup untuk penulisan password/kata sandi
   
   

Pada Object Inspector tab Events terdapat event-event yang dapat digunakan berkenaan dengan komponen Edit


 
Sementara ini yang sering saya gunakan hanya dua event yaitu OnChange dan OnKeyDown.

Untuk mengisi event OnChange cukup klik 2x (double klik) komponen Editnya, kalo yang lain terpaksanya ya didoblel klik di eventnya.
OnChange digunakan untuk kejadian terjadinya perubahan pada Edit sedangkan OnKeyDown untuk event terjadinya penekanan key pada saat posisi kursor dalam Edit

 

First Post !!

Bismillahirrohmaanirrohiim, dengan ini Saya Buka Blog Baru ini untuk berbagi pengalaman dan ilmu seadanya semoga bermanfaat.