Fuzzinator: A Fuzzy Logic Controller

1.IF InternalTemp is Zero And ExternalTemp is Zero And InternalTemp is Neg And ExternalTemp is Zero Then Actions is NoAction And Actions is TurnVentOn<br />
2.IF InternalTemp is Zero And ExternalTemp is Zero And InternalTemp is Neg And ExternalTemp is Zero Then Actions is NoAction And Actions is TurnVentOn

Imports FuzzyLogicController
Imports System.IO

Public Class frmmain
    Dim internaltemprange As String
    Dim externaltemprange As String

    Dim tempruleparse As ArrayList

    Dim optimum As String
    Dim deltainttemp As Double
    Dim deltaexttemp As Double
    Dim temprules As New ArrayList

    Dim interrange As String
    Dim interneglow As String
    Dim interneg As String
    Dim interzero As String
    Dim interpos As String
    Dim interposhigh As String

    Dim exterrange As String
    Dim externeglow As String
    Dim externeg As String
    Dim exterzero As String
    Dim exterpos As String
    Dim exterposhigh As String

    Dim config As New RuleEngine.Config(RuleEngine.ImpMethod.Prod, RuleEngine.ConnMethod.Min)
    Dim InternalTemp As New LingVariable("InternalTemp", VarType.Input)
    Dim ExternalTemp As New LingVariable("ExternalTemp", VarType.Input)
    Dim Actions As New LingVariable("Actions", VarType.Output)
    Dim c As New FLC.FLC(config)
    Private Sub frmmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '--------------------------------READ VARIABLE DATA FROM FILES----------------------------------------
        'read optimum temp and the fuzzy rules for temp in "temprules.dat"
        Dim w As New System.IO.StreamReader(Application.StartupPath & "\temprules.dat")
        optimum = w.ReadLine()
        While w.Peek <> -1
            temprules.Insert(0, w.ReadLine)
        End While
        w.Close()

        tempruleparse = temprules.Clone

        For x = 0 To tempruleparse.Count - 1
            tempruleparse(x) = tempruleparse(x).ToString.Replace("If internal temperature is ", "")
            tempruleparse(x) = tempruleparse(x).ToString.Replace("and external temperature is ", "")
            tempruleparse(x) = tempruleparse(x).ToString.Replace(" then:", "")
            tempruleparse(x) = tempruleparse(x).ToString.Trim
            tempruleparse(x) = tempruleparse(x).ToString.Replace(" ", ",")
        Next

        'read internal temperature member functions to "internaltemp.dat"
        Dim h As New System.IO.StreamReader(Application.StartupPath & "\internaltemp.dat")
        interrange = h.ReadLine
        interneglow = h.ReadLine
        interneg = h.ReadLine
        interzero = h.ReadLine
        interpos = h.ReadLine
        interposhigh = h.ReadLine
        h.Close()
        'read external temperature member functions to "externaltemp.dat"
        Dim q As New System.IO.StreamReader(Application.StartupPath & "\externaltemp.dat")
        exterrange = q.ReadLine
        externeglow = q.ReadLine
        externeg = q.ReadLine
        exterzero = q.ReadLine
        exterpos = q.ReadLine
        exterposhigh = q.ReadLine
        q.Close()
        '--------------------------------------SET TEXTBOXES,COMBOBOXES,LISTS,ETC-----------------------------
        opttemp.Text = optimum
        intrange.Text = interrange
        intneglow.Text = interneglow
        intneg.Text = interneg
        intzero.Text = interzero
        intpos.Text = interpos
        intposhigh.Text = interposhigh
        extrange.Text = exterrange
        extneglow.Text = externeglow
        extneg.Text = externeg
        extzero.Text = exterzero
        extpos.Text = exterpos
        extposhigh.Text = exterposhigh
        For x = 0 To (temprules.Count - 1)
            lsttemprules.Items.Add(temprules(x))
        Next


        'Internal Temperature Variable and Membership Function Declaration/Assignment
        InternalTemp.setRange(interrange.Split(",")(0), interrange.Split(",")(1))
        InternalTemp.addMF(New MFs.Trimf("NegLow", interneglow.Split(",")(0), interneglow.Split(",")(1), interneglow.Split(",")(2)))
        InternalTemp.addMF(New MFs.Trimf("Neg", interneg.Split(",")(0), interneg.Split(",")(1), interneg.Split(",")(2)))
        InternalTemp.addMF(New MFs.Trimf("Zero", interzero.Split(",")(0), interzero.Split(",")(1), interzero.Split(",")(2)))
        InternalTemp.addMF(New MFs.Trimf("Pos", interpos.Split(",")(0), interpos.Split(",")(1), interpos.Split(",")(2)))
        InternalTemp.addMF(New MFs.Trimf("PosHigh", interposhigh.Split(",")(0), interposhigh.Split(",")(1), interposhigh.Split(",")(2)))

        'External Temperature Variable and Membership Function Declaration/Assignment
        ExternalTemp.setRange(exterrange.Split(",")(0), exterrange.Split(",")(1))
        ExternalTemp.addMF(New MFs.Trimf("NegLow", externeglow.Split(",")(0), externeglow.Split(",")(1), externeglow.Split(",")(2)))
        ExternalTemp.addMF(New MFs.Trimf("Neg", externeg.Split(",")(0), externeg.Split(",")(1), externeg.Split(",")(2)))
        ExternalTemp.addMF(New MFs.Trimf("Zero", exterzero.Split(",")(0), exterzero.Split(",")(1), exterzero.Split(",")(2)))
        ExternalTemp.addMF(New MFs.Trimf("Pos", exterpos.Split(",")(0), exterpos.Split(",")(1), exterpos.Split(",")(2)))
        ExternalTemp.addMF(New MFs.Trimf("PosHigh", exterposhigh.Split(",")(0), exterposhigh.Split(",")(1), exterposhigh.Split(",")(2)))

        'Actions Variable and Membership Function Assignment/Declaration
        Actions.setRange(0, 6)
        Actions.addMF(New MFs.Trimf("TurnHeatOn", 1, 1, 1))
        Actions.addMF(New MFs.Trimf("Forecast", 2, 2, 2))
        Actions.addMF(New MFs.Trimf("TurnVentOn", 3, 3, 3))
        Actions.addMF(New MFs.Trimf("NoAction", 4, 4, 4))
        Actions.addMF(New MFs.Trimf("TurnCoolOn", 5, 5, 5))

        'Set them for my testing
        deltainttemp = -6
        deltaexttemp = -7

        Dim fuzzy_internaltemp As New FuzzySet(c.Fuzzification(deltainttemp, InternalTemp), InternalTemp.Name)
        Dim fuzzy_externaltemp As New FuzzySet(c.Fuzzification(deltaexttemp, ExternalTemp), ExternalTemp.Name)


        Dim input_sets As New List(Of FuzzySet)()
        input_sets.Add(fuzzy_internaltemp)
        input_sets.Add(fuzzy_externaltemp)

        Dim rule1in As New List(Of RuleEngine.RuleItem)()

        Dim rule1out As New List(Of RuleEngine.RuleItem)()
        Dim rules As New List(Of RuleEngine.Rule)

        ' the if part of the Rule, add more than one if X1 and X2, 
        ' add another RuleItem in the list
        For x = 0 To tempruleparse.Count - 1
            rule1in.Add(New RuleEngine.RuleItem("InternalTemp", tempruleparse(x).split(",")(0)))
            rule1in.Add(New RuleEngine.RuleItem("ExternalTemp", tempruleparse(x).split(",")(1)))
            rule1out.Add(New RuleEngine.RuleItem("Actions", tempruleparse(x).split(",")(2)))
            rules.Add(New RuleEngine.Rule(rule1in, rule1out, RuleEngine.Connector.And))
        Next
        For x = 0 To rules.Count
            MsgBox(rules(x).ToString)
        Next
        'rule1in.AddRange(New RuleEngine.RuleItem(1) {New RuleEngine.RuleItem("InternalTemp", "Zero"), New RuleEngine.RuleItem("ExternalTemp", "Zero")})

        ' the then part in the Rule

        ' List of rules "RuleBase" passed to the Inference Engine

        Dim engine As New RuleEngine.InferEngine(config, rules, input_sets)
        Dim fuzzy_out As List(Of FuzzySet) = engine.evaluateRules()
        MsgBox(engine.FiredRules.Count)
        For x = 0 To fuzzy_out.Count - 1
            For y = 0 To fuzzy_out(x).Set.Count - 1
                MsgBox(fuzzy_out(x).Set(y).MemberShipName.ToString & ":" & fuzzy_out(x).Set(y).FuzzyValue)
            Next
        Next
        'MsgBox(fuzzy_out(fuzzy_out.Count - 1).Set(0).MemberShipName.ToString & ":" & fuzzy_out(fuzzy_out.Count - 1).Set(0).FuzzyValue.ToString)

    End Sub

    Private Sub cmdsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsave.Click
        cmdsave.Enabled = False
        '-------------------------------------SAVE TO DAT FILES------------------------------------------------------
        'write optimum temp and the fuzzy rules for temp in "temprules.dat"
        Dim w As New System.IO.StreamWriter(Application.StartupPath & "\temprules.dat")
        w.WriteLine(opttemp.Text)
        For x = 0 To (lsttemprules.Items.Count - 1)
            w.WriteLine(lsttemprules.Items(x))
        Next
        w.Close()
        'write internal temperature member functions to "internaltemp.dat"
        Dim h As New System.IO.StreamWriter(Application.StartupPath & "\internaltemp.dat")
        h.WriteLine(intrange.Text)
        h.WriteLine(intneglow.Text)
        h.WriteLine(intneg.Text)
        h.WriteLine(intzero.Text)
        h.WriteLine(intpos.Text)
        h.WriteLine(intposhigh.Text)
        h.Close()
        'write external temperature member functions to "externaltemp.dat"
        Dim q As New System.IO.StreamWriter(Application.StartupPath & "\externaltemp.dat")
        q.WriteLine(extrange.Text)
        q.WriteLine(extneglow.Text)
        q.WriteLine(extneg.Text)
        q.WriteLine(extzero.Text)
        q.WriteLine(extpos.Text)
        q.WriteLine(extposhigh.Text)
        q.Close()

        MsgBox("Changes Saved Successfully", , "Settings Changed")
        cmdsave.Enabled = True
    End Sub

    Private Sub cmdaddrule_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaddrule.Click

        For x = 0 To lsttemprules.Items.Count - 1
            If InStr(lsttemprules.Items(x), "If internal temperature is " & cmbinttemp.Text & " and external temperature is " & cmbexttemp.Text & " then: " & cmbaction.Text) Then
                MsgBox("Rule already added", , "Duplicate Rule")
                Exit Sub
            End If
        Next
        lsttemprules.Items.Insert(0, "If internal temperature is " & cmbinttemp.Text & " and external temperature is " & cmbexttemp.Text & " then: " & cmbaction.Text)

    End Sub

    Private Sub cmddeleterule_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmddeleterule.Click
        If lsttemprules.SelectedItems.Count = 0 Then
            MsgBox("You must select a rule to remove", , "No Rule Selected")
        End If
        lsttemprules.Items.RemoveAt(lsttemprules.SelectedIndex)
    End Sub
End Class