modfunctions.bas

非常著名的人工智能程序bob,想学人工智能的可以参考下.

Attribute VB_Name = "ModFunctions"
Option Explicit

Public ContinueToAnswer As Boolean
Public Username As String
Public KeywordFile As String
Public ExtraSearch As String

Public Type Keyword
    KeywordText As String
    KeywordNo As String
    KeywordFile As String
    KeywordOrigin As String
End Type

Public Type Response
    ResponseText As String      'The response being used
    ResponseSubject As String   'The subject of the current response
    ResponseAction As String    'Misc information about the sentence (i.e  sarcastic, rhetorical, threat)
    Question  As Boolean        'Is it a question for the user
    QuestionType As String      'Stores the type of question and any extra info about the question (i.e yes/no, opinion, time)
    SubjectChange As Boolean    'Does this response cause a subject change
End Type

Public Type Subject
    SubjectName As String
    SubjectFile As String
    SubjectReference As String
    SubjectVerbs As Boolean
    SubjectNouns As Boolean
    SubjectReplies As Boolean
End Type

Public Enum ResponseType
    Statement = 1
    Question = 2
    Either = 3
    Other = 4
End Enum

Public Sub Main()
    FrmMain.Show
    KeywordFile = "keywords.txt"
End Sub

Public Sub AddtoEventLog(sEventInfo As LogEntry, Optional Importance = 1)
    Dim P As String
    Dim Q As Byte
    Dim R As Integer
    Dim Tempstring As String
    
    
    Tempstring = Now & "