Tugas VII (7) Program Fuzzy Logic

Spesifikasi Sistem Yang Akan Dirancang :

Perhitungan gaji karyawan perusahaan menurut hasil omset penjualannya.

Masukan :

1. total Omset Penjualan Karyawan tersebut

Keluaran :

1. Total Gaji karyawan setiap bulan

Berikut Listing Program nya :

Dim txtpenjualan
Dim sngGajiPokok, sngBonus, sngPajak, sngTotalGaji As Single

Private Sub C1_Click()
sngGajiPokok = 200000
If T1.Text >= 1000000 Then
sngBonus = T1.Text * 0.1
sngPajak = (sngGajiPokok + sngBonus) * 0.15
sngTotalGaji = sngGajiPokok + sngBonus - sngPajak
End If
If T1.Text < sngbonus =" T1.Text" sngpajak =" (sngGajiPokok" sngtotalgaji =" sngGajiPokok" sngbonus =" 0" sngpajak =" (sngGajiPokok" sngtotalgaji =" sngGajiPokok" text =" sngBonus" text =" sngPajak" text =" sngTotalGaji">

Berikut Hasil Program yang didapat :

1. Execute program
2. Dipilih ok. lalu muncul gambar berikut.
3. Berikut contoh-contoh hasil eksekusi program :
- Bila Penjualan sebesar 100,000 rupiah

- Bila Penjualan sebesar 150,000 rupiah
- Bila Penjualan sebesar 1,000,000 rupiah
- Bila dimasukkan data huruf, maka akan terjadi error seperti berikut.


Program ( .EXE ) dapat diambil di sini :
http://www.4shared.com/file/H0k-TPax/_2__Project1.html