Search results

Sub Main() Dim neo As New Chobits() neo.AddSkill(New DiHelloWorld()) Console.WriteLine(neo.Think("hello", "", "")) Console.WriteLine(neo.Think("", "", "")) Console.ReadLine() End Sub

Public Class Chobits Inherits Thinkable Protected dClasses As New List(Of DiSkillV2)() Protected fusion As Fusion Protected noiron As Neuron Protected kokoro As Kokoro = New Kokoro(New AbsDictionaryDB()) ' consciousness Public Sub New()...

Public Class Chobits Inherits Thinkable Protected dClasses As New List(Of DiSkillV2)() Protected fusion As Fusion Protected noiron As Neuron Protected kokoro As Kokoro = New Kokoro(New AbsDictionaryDB()) ' consciousness Public Sub New()...

Public Class Thinkable Public Function Think(ear As String, skin As String, eye As String) As String ' Override me Return "" End Function End Class

Public Class Fusion Private emot As String = "" Private result As String = "" Private ceraArr(4) As Cerabellum Public Sub New() For i As Integer = 0 To 4 ceraArr(i) = New Cerabellum() Next End Sub Public Function GetEmot() As String...

Public Class Cerabellum ' Runs an algorithm Private fin As Integer Private at As Integer Private incrementAt As Boolean = False Public alg As Algorithm Private ia As Boolean = False ' isActive attribute Private emot As String = ""...

Public Class DiHelloWorld Inherits DiSkillV2 ' hello world skill for testing purposes Public Sub New() MyBase.New() End Sub Public Overloads Sub Input(ear As String, skin As String, eye As String) Select Case ear...

Public Class DiSkillV2 Protected kokoro As Kokoro = New Kokoro(New AbsDictionaryDB()) ' consciousness, shallow ref class to enable interskill communications Protected diSkillUtils As DISkillUtils = New DISkillUtils() Protected outAlg As Algorithm = Nothing ' skills output...

Public Class DISkillUtils ' alg part based algorithm building methods ' var args param Public Function AlgBuilder(ParamArray algParts As Mutatable()) As Algorithm ' returns an algorithm built with the algPart varargs Dim algParts1 As New List(Of Mutatable)()...

Public Class Neuron Private defcons As New Dictionary(Of Integer, List(Of Algorithm)) Public Sub New() For i As Integer = 1 To 5 defcons(i) = New List(Of Algorithm)() Next End Sub Public Sub InsertAlg(priority As Integer...

Public Class Kokoro Private emot As String = "" Public Function GetEmot() As String Return emot End Function Public Sub SetEmot(emot As String) Me.emot = emot End Sub Public grimoireMemento As GrimoireMemento Public toHeart As New Hashtable()...

Public Class Algorithm Private algParts As New List(Of Mutatable)() Public Sub New(ByVal algParts As List(Of Mutatable)) MyBase.New() Me.algParts = algParts End Sub Public Function GetAlgParts() As List(Of Mutatable) Return...

Public Class APCldVerbatim Inherits Mutatable ' This algorithm part says each past param verbatim Private sentences As New List(Of String)() Private at As Integer = 0 Private cldBool As CldBool ' Access via shallow reference Public Sub New(ByVal cldBool As CldBool, ByVal...

Public Class CldBool ' cloudian : this class is used to provide shadow reference to a boolean variable Private modeActive As Boolean = False Public Function GetModeActive() As Boolean Return modeActive End Function Public Sub SetModeActive(ByVal modeActive As...

Public Class GrimoireMemento Private absDictionaryDB As AbsDictionaryDB Public Sub New(ByVal absDictionaryDB As AbsDictionaryDB) MyBase.New() Me.absDictionaryDB = absDictionaryDB End Sub Public Function SimpleLoad(ByVal key As String) As...

Public Class APVerbatim Inherits Mutatable ' This algorithm part says each past param verbatim Private sentences As New List(Of String)() Private at As Integer = 0 Public Sub New(ParamArray sentences() As String) For Each sentence As String In sentences...

Public Class DeepCopier Public Function DeepCopyStringList(originalList As List(Of String)) As List(Of String) ' Create a new list and copy each element from the original list. Dim copiedList As New List(Of String)(originalList.Count) For Each item As...

Public Class AbsDictionaryDB Public Sub Save(key As String, value As String) ' Save to DB (override me) End Sub Public Function Load(key As String) As String ' Override me Return "null" End Function End Class Public...