Rinduku Pada Sang Bulan

--Pandang, teliti dan hadamkan kod di bawah...
insyaAllah sakit kepala anda akan sembuh--


Option Explicit
'Q1'Dim X0, X1, X2, X3 As IntegerDim Q1 As Single
'Q2'Dim Y0, Y1, Y2, Y3 As IntegerDim Q2 As Single
'Q3Dim A0, A1, A2, A3 As IntegerDim Q3 As Single
'Q4Dim B0, B1, B2, B3 As IntegerDim Q4 As Single
'define r as row and c as column'Dim r, c, counter As Integer
'variable for FAM TableDim minValues(1 To 3, 1 To 3) As Integer
'Variable for dimensional arrayDim minValue(1 To 9) As DoubleDim question1(1 To 9), question2(1 To 9) As DoubleDim cvLess, cvModerate, cvMore, cvFocus_Goal, cvMedium, cvFocus_Relationship As Double
'Variable Declaration for subroutine fuzzy_defuzzyficationDim rule(1 To 9) As StringDim actual_time(1 To 9) As DoubleDim z0, z1, z2, z3 As DoubleDim upperCOA, belowCOA, crispMinVal As Double
Private Sub CmdKira_Click()
'Error Message if input 0If lblSlider1 = "0" Then MsgBox "Please Select Your Answer For Question NUMBER 1", vbInformation, "Information Message" Exit Sub Else If lblSlider2 = "0" Then MsgBox "Please Select Your Answer For Question NUMBER 2", vbInformation, "Information Message" Exit Sub Else If lblSlider3 = "0" Then MsgBox "Please Select Your Answer For Question NUMBER 3", vbInformation, "Information Message" Exit Sub Else If lblSlider4 = "0" Then MsgBox "Please Select Your Answer For Question NUMBER 4", vbInformation, "Information Message" Exit Sub
Else
'Fuzzification for Q1'Call Fuzzification_Q1
'Fuzzification for Q2'Call Fuzzification_Q2
'Fuzzification for Q3'Call Fuzzification_Q3
'Fuzzification for Q4'Call Fuzzification_Q4
'for call Famtable1'Call FamTable1
'for call Famtable2'Call FamTable2
'for call Famtable3'Call FamTable3
'for call Fuzzy Defuzzyfication'Call Fuzzy_defuzzyfication
End IfEnd IfEnd IfEnd If
End Sub
Private Sub Fuzzification_Q1()
'define Slider1.value as Q1'Q1 = Val(Slider1.Value)
'VALUE FOR MEMBERSHIP FUNCTION GRAPH OF Q1'X0 = 30X1 = 40X2 = 80X3 = 90
'Zone 1 If Q1 <= X0 Then cvLess = 1 cvModerate = 0 cvMore = 0 'Zone 2 ElseIf Q1 >= X0 And Q1 < cvless =" (X1" cvmoderate =" (Q1" cvmore =" 0">= X1 And Q1 < cvless =" 0" cvmoderate =" 1" cvmore =" 0">= X2 And Q1 < cvless =" 0" cvmoderate =" (X3" cvmore =" (Q1">= X3 Then cvLess = 0 cvModerate = 0 cvMore = 1
End If
End Sub
Private Sub Fuzzification_Q2()
'define Combo2.Text as Q2'Q2 = Val(Slider2.Value)
'VALUE FOR MEMBERSHIP FUNCTION GRAPH OF Q2'
Y0 = 30Y1 = 40Y2 = 80Y3 = 90
' Zone 1 If Q2 <= Y0 Then cvFocus_Goal = 1 cvMedium = 0 cvFocus_Relationship = 0 ' Zone 2 ElseIf Q2 >= Y0 And Q2 < cvfocus_goal =" (Y1" cvmedium =" (Q2" cvfocus_relationship =" 0">= Y1 And Q2 < cvfocus_goal =" 0" cvmedium =" 1" cvfocus_relationship =" 0">= Y2 And Q2 < cvfocus_goal =" 0" cvmedium =" (Y3" cvfocus_relationship =" (Q2">= Y3 Then cvFocus_Goal = 0 cvMedium = 0 cvFocus_Relationship = 1
End If
End Sub
Private Sub Fuzzification_Q3()
'define Slider1.Count as Q3'Q3 = Val(Slider3.Value)
'VALUE FOR MEMBERSHIP FUNCTION GRAPH OF Q3'A0 = 30A1 = 40A2 = 80A3 = 90
'Zone 1 If Q3 <= A0 Then cvLess = 1 cvModerate = 0 cvMore = 0 'Zone 2 ElseIf Q3 >= A0 And Q3 < cvless =" (A1" cvmoderate =" (A1" cvmore =" 0">= A1 And Q3 < cvless =" 0" cvmoderate =" 1" cvmore =" 0">= A2 And Q3 < cvless =" 0" cvmoderate =" (A3" cvmore =" (Q3">= A3 Then cvLess = 0 cvModerate = 0 cvMore = 1
End If
End Sub
Private Sub Fuzzification_Q4()
'define Slider1.Count as Q4'Q1 = Val(Slider4.Value)
'VALUE FOR MEMBERSHIP FUNCTION GRAPH OF Q4'B0 = 30B1 = 40B2 = 80B3 = 90
'Zone 1 If Q4 <= B0 Then cvLess = 1 cvModerate = 0 cvMore = 0 'Zone 2 ElseIf Q4 >= B0 And Q4 < cvless =" (B1" cvmoderate =" (Q4" cvmore =" 0">= B1 And Q4 < cvless =" 0" cvmoderate =" 1" cvmore =" 0">= B2 And Q4 < cvless =" 0" cvmoderate =" (B3" cvmore =" (Q4">= B3 Then cvLess = 0 cvModerate = 0 cvMore = 1
End If
End Sub
Private Sub FamTable1()
'need one array to hold confidence value for Load'question1(1) = cvLessquestion1(2) = cvModeratequestion1(3) = cvMore
'need one array to hold confidence value for Dirt'question2(1) = cvFocus_Goalquestion2(2) = cvMediumquestion2(3) = cvFocus_Relationship
'looping to calculate min for row and column'counter = 0For r = 1 To 3 For c = 1 To 3 counter = counter + 1 minValues(r, c) = Min(question1(r), question2(c)) Next cNext r
minValue(1) = Min(question2(1), question1(1))minValue(2) = Min(question2(2), question1(1))minValue(3) = Min(question2(3), question1(1))minValue(4) = Min(question2(1), question1(2))minValue(5) = Min(question2(2), question1(2))minValue(6) = Min(question2(3), question1(2))minValue(7) = Min(question2(1), question1(3))minValue(8) = Min(question2(2), question1(3))minValue(9) = Min(question2(3), question1(3))
End Sub
Private Sub FamTable2()
'need one array to hold confidence value for Load'question1(1) = cvLessquestion1(2) = cvModeratequestion1(3) = cvMore
'need one array to hold confidence value for Dirt'question2(1) = cvLessquestion2(2) = cvModeratequestion2(3) = cvMore
'looping to calculate min for row and column'counter = 0For r = 1 To 3 For c = 1 To 3 counter = counter + 1 minValues(r, c) = Min(question1(r), question2(c)) Next cNext r
minValue(1) = Min(question2(1), question1(1))minValue(2) = Min(question2(2), question1(1))minValue(3) = Min(question2(3), question1(1))minValue(4) = Min(question2(1), question1(2))minValue(5) = Min(question2(2), question1(2))minValue(6) = Min(question2(3), question1(2))minValue(7) = Min(question2(1), question1(3))minValue(8) = Min(question2(2), question1(3))minValue(9) = Min(question2(3), question1(3))
End Sub
Private Sub FamTable3()
'need one array to hold confidence value for Load'question1(1) = cvLessquestion1(2) = cvModeratequestion1(3) = cvMore
'need one array to hold confidence value for Dirt'question2(1) = cvLessquestion2(2) = cvModeratequestion2(3) = cvMore
'looping to calculate min for row and column'counter = 0For r = 1 To 3 For c = 1 To 3 counter = counter + 1 minValues(r, c) = Min(question1(r), question2(c)) Next cNext r
minValue(1) = Min(question2(1), question1(1))minValue(2) = Min(question2(2), question1(1))minValue(3) = Min(question2(3), question1(1))minValue(4) = Min(question2(1), question1(2))minValue(5) = Min(question2(2), question1(2))minValue(6) = Min(question2(3), question1(2))minValue(7) = Min(question2(1), question1(3))minValue(8) = Min(question2(2), question1(3))minValue(9) = Min(question2(3), question1(3))
End Sub
Function Min(question1, question2)Min = question1If (question2 < min =" question2" uppercoa =" 0" belowcoa =" 0" z0 =" 120" z1 =" 160" z2 =" 320" z3 =" 360" i =" 1" actual_time1 =" z0" actual_time2 =" z3" actual_time1 =" z1" actual_time2 =" z2" j =" 1" uppercoa =" upperCOA" belowcoa =" belowCOA" crispminval =" upperCOA" text =" crispMinVal" text = "" value =" 50Slider2.Value" value =" 50Slider4.Value" caption =" 0lblSlider2.Caption" caption = "0" caption = "0" caption =" Slider1.ValueEnd" caption =" Slider2.ValueEnd" caption =" Slider3.ValueEnd" caption =" Slider4.ValueEnd">

----Tahniah, anda dah sihat!---