Sistem Cerdas (Jaringan Saraf Tiruan)

Sistem Cerdas menurut aku adalah sebuah sistem komputer yang dibuat sedemikian rupa sehingga menghasilkan / terciptanya sebuah kemampuan layaknya pemikiran manusia yg mampu menyelesaikan beberapa masalah (Profesi manusia yang dituangkan kedalam komputer)

Contoh masalah kecil : Kemampuan seorang Penjual buah yg dikonversikan kedalam sebuah Program Komputer, dalam artian nantinya komputer akan mampu mengenali berbagai macam buah-buahan.

dalam hal ini saya sebagai pemula ingin berbagi kepada pemula lainnya :)
ada beberapa langkah mudah dalam menyelesaikan masalah kecil diatas :

1. Objek buah yg digunakan :

kita anggap saja si penjual buah cuma mengetahui 7 jenis buah

(hehe.. biar nggk terlalu ribet aku bikinnya)

• Pisang

• Jambu biji

• Melon

• Duren

• Nenas

• Bengkoang

• Mangga
  

2. Desain Pertanyaan (ya – tidak) :

1. Memiliki biji

2. Kulitnya Berduri

3. bentuknya agak bengkok

4. berbiji banyak

5. daunnya Panjang & berduri

6. Rasanya terkadang kalat

3. Membuat TABEL SISTEM PAKAR

No.	Buah	Memiliki biji	Kulitnya Berduri	Bentuknya agak bengkok	Berbiji banyak	Daunnya panjang &berduri	Rasanya terkadang kalat
1 2 3 4 5 6 7	Pisang Jambu biji Melon Duren Nenas Bengkoang Mangga	0 1 1 1 0 0 1	0 0 0 1 0 0 0	1 0 0 0 0 0 0	0 1 1 0 0 0 0	0 0 0 0 1 0 0	0 1 0 0 0 0 0

4. Membuat Desain flowchart :

Klik gambar utk memperbesar !

5. Mengolah Bentuk Tree berdasarkan Flowchart diatas :

Klik gambar utk memprbesar !

6. Listing Program Dengan Visual Basic :

Private Sub Form_Activate()

Dim Msg, Style, Title

Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.

Title = "Pilih Yes atau No" ' Define title

Data = MsgBox("Apakah Memiliki Biji ?", Style, Title)

If Data = vbYes Then

Data = MsgBox("Apakah Kulitnya berduri?", Style, Title)

If Data = vbYes Then

Print "Buah Duren"

Else

Data = MsgBox("Apakah Berbiji Banyak?", Style, Title)

If Data = vbNo Then

Print "Buah Mangga"

Else

Data = MsgBox("Apakah Rasanya terkadang kalat?", Style, Title)

If Data = vbYes Then

Print "Buah Jambu Biji"

Else

Print "Buah Melon"

End If

End If

End If

Else

Data = MsgBox("Bentuknya Agak Bengkok?", Style, Title)

If Data = vbYes Then

Print "Buah Pisang"

Else

Data = MsgBox("Daunnya Panjang & berduri?", Style, Title)

If Data = vbYes Then

Print "Buah Nenas"

Else

Print "Buah Bengkoang"

End If

End If

End If

End Sub

Selamat mencoba & Semoga bermanfaat ^_^