Project Sentinelwell guys Im pleased to announce that Im going to be developing an AI bot and I named him Sentinel and its going to be written on VB 2010 express.
screenshoots:
homework:1.-Making the animation (
built)
2.-Language interpretation (
building...)
3.-Actions(open brower,erase files,etc) (
not started yet)
4.-Working with sockets (
not started yet)
5.-speech recognition (
not started yet)
I will be updating this post once I have deployed it a bit more.
I hope you guys give me some advice about how should I code it ,etc.
thanx in advance.
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.KeyPress
Dim input As String = TextBox1.Text
Dim personal_pronouns(8) As String
personal_pronouns(1) = "I"
personal_pronouns(2) = "you"
personal_pronouns(3) = "we"
personal_pronouns(4) = "they"
personal_pronouns(5) = "he"
personal_pronouns(6) = "she"
personal_pronouns(7) = "it"
Dim verbs(107) As String
verbs(1) = "be"
verbs(2) = "beat"
verbs(3) = "become"
verbs(4) = "begin"
verbs(5) = "bend"
verbs(6) = "bite"
verbs(7) = "blow"
verbs(8) = "break"
verbs(9) = "bring"
verbs(10) = "build"
verbs(11) = "burn"
verbs(12) = "burst"
verbs(13) = "buy"
verbs(14) = "can"
verbs(15) = "catch"
verbs(16) = "choose"
verbs(17) = "come"
verbs(18) = "cost"
verbs(19) = "cut"
verbs(20) = "dig"
verbs(21) = "do"
verbs(22) = "draw"
verbs(23) = "dream"
verbs(24) = "drink"
verbs(25) = "drive"
verbs(26) = "eat"
verbs(27) = "fall"
verbs(28) = "feed"
verbs(29) = "feel"
verbs(30) = "fight"
verbs(31) = "find"
verbs(32) = "fly"
verbs(33) = "forget"
verbs(34) = "forgive"
verbs(35) = "freeze"
verbs(36) = "get"
verbs(37) = "give"
verbs(38) = "go"
verbs(39) = "grow"
verbs(40) = "hang"
verbs(41) = "have"
verbs(42) = "hear"
verbs(43) = "hide"
verbs(44) = "hit"
verbs(45) = "hold"
verbs(46) = "hurt"
verbs(47) = "keep"
verbs(48) = "kneel"
verbs(50) = "know"
verbs(51) = "lay"
verbs(52) = "lead"
verbs(53) = "learn"
verbs(54) = "have"
verbs(55) = "lend"
verbs(56) = "let"
verbs(57) = "lie"
verbs(58) = "light"
verbs(59) = "lose"
verbs(60) = "make"
verbs(61) = "mean"
verbs(61) = "meet"
verbs(62) = "must"
verbs(63) = "pay"
verbs(64) = "put"
verbs(65) = "read"
verbs(66) = "ride"
verbs(67) = "ring"
verbs(68) = "rise"
verbs(69) = "run"
verbs(70) = "say"
verbs(71) = "see"
verbs(72) = "sell"
verbs(73) = "send"
verbs(74) = "set"
verbs(75) = "shake"
verbs(76) = "shine"
verbs(77) = "shoot"
verbs(78) = "show"
verbs(79) = "shut"
verbs(80) = "sing"
verbs(81) = "sink"
verbs(82) = "sit"
verbs(83) = "sleep"
verbs(84) = "slide"
verbs(85) = "smell"
verbs(86) = "speak"
verbs(87) = "spend"
verbs(88) = "spill"
verbs(89) = "spoil"
verbs(90) = "stand"
verbs(91) = "steal"
verbs(92) = "stick"
verbs(93) = "swim"
verbs(94) = "take"
verbs(95) = "teach"
verbs(96) = "tear"
verbs(97) = "tell"
verbs(98) = "think"
verbs(99) = "throw"
verbs(100) = "underestand"
verbs(101) = "wake"
verbs(102) = "wear"
verbs(103) = "win"
verbs(104) = "write"
verbs(105) = "would"
verbs(106) = "do"
Dim verbs_pastsimple(200) As String
verbs_pastsimple(1) = "was"
verbs_pastsimple(2) = "were"
verbs_pastsimple(3) = "became"
verbs_pastsimple(4) = "began"
verbs_pastsimple(5) = "bent"
verbs_pastsimple(6) = "bit"
verbs_pastsimple(7) = "blew"
verbs_pastsimple(8) = "broke"
verbs_pastsimple(9) = "brought"
verbs_pastsimple(10) = "built"
verbs_pastsimple(11) = "burned"
verbs_pastsimple(12) = "burst"
verbs_pastsimple(13) = "bought"
verbs_pastsimple(14) = "could"
verbs_pastsimple(15) = "caught"
verbs_pastsimple(16) = "chose"
verbs_pastsimple(17) = "came"
verbs_pastsimple(18) = "cost"
verbs_pastsimple(19) = "cut"
verbs_pastsimple(20) = "dug"
verbs_pastsimple(21) = "did"
verbs_pastsimple(22) = "drew"
verbs_pastsimple(23) = "dreamed"
verbs_pastsimple(24) = "drank"
verbs_pastsimple(25) = "drove"
verbs_pastsimple(26) = "ate"
verbs_pastsimple(27) = "fell"
verbs_pastsimple(28) = "fed"
verbs_pastsimple(29) = "felt"
verbs_pastsimple(30) = "fought"
verbs_pastsimple(31) = "found"
verbs_pastsimple(32) = "flew"
verbs_pastsimple(33) = "forgot"
verbs_pastsimple(34) = "forgave"
verbs_pastsimple(35) = "froze"
verbs_pastsimple(36) = "got"
verbs_pastsimple(37) = "gave"
verbs_pastsimple(38) = "went"
verbs_pastsimple(39) = "grew"
verbs_pastsimple(40) = "hung"
verbs_pastsimple(41) = "had"
verbs_pastsimple(42) = "heard"
verbs_pastsimple(43) = "hid"
verbs_pastsimple(44) = "hit"
verbs_pastsimple(45) = "held"
verbs_pastsimple(46) = "hurt"
verbs_pastsimple(47) = "kept"
verbs_pastsimple(48) = "knelt"
verbs_pastsimple(49) = "knew"
verbs_pastsimple(50) = "laid"
verbs_pastsimple(51) = "led"
verbs_pastsimple(52) = "learned"
verbs_pastsimple(53) = "left"
verbs_pastsimple(54) = "lent"
verbs_pastsimple(55) = "let"
verbs_pastsimple(56) = "lay"
verbs_pastsimple(57) = "lit"
verbs_pastsimple(58) = "lost"
verbs_pastsimple(59) = "made"
verbs_pastsimple(60) = "meant"
verbs_pastsimple(61) = "met"
verbs_pastsimple(62) = "had to"
verbs_pastsimple(63) = "paid"
verbs_pastsimple(64) = "put"
verbs_pastsimple(65) = "read"
verbs_pastsimple(66) = "rode"
verbs_pastsimple(67) = "rang"
verbs_pastsimple(68) = "rose"
verbs_pastsimple(69) = "ran"
verbs_pastsimple(70) = "said"
verbs_pastsimple(71) = "saw"
verbs_pastsimple(72) = "sold"
verbs_pastsimple(73) = "sent"
verbs_pastsimple(74) = "set"
verbs_pastsimple(75) = "shook"
verbs_pastsimple(76) = "shone"
verbs_pastsimple(77) = "shot"
verbs_pastsimple(78) = "showed"
verbs_pastsimple(79) = "shut"
verbs_pastsimple(80) = "sang"
verbs_pastsimple(81) = "sank"
verbs_pastsimple(82) = "sat"
verbs_pastsimple(83) = "slept"
verbs_pastsimple(84) = "slid"
verbs_pastsimple(85) = "smelled"
verbs_pastsimple(86) = "spoke"
verbs_pastsimple(87) = "spent"
verbs_pastsimple(88) = "spilled"
verbs_pastsimple(89) = "spoiled"
verbs_pastsimple(90) = "stood"
verbs_pastsimple(91) = "stole"
verbs_pastsimple(92) = "stuck"
verbs_pastsimple(93) = "swam"
verbs_pastsimple(94) = "took"
verbs_pastsimple(95) = "taught"
verbs_pastsimple(96) = "tore"
verbs_pastsimple(97) = "told"
verbs_pastsimple(98) = "thought"
verbs_pastsimple(99) = "threw"
verbs_pastsimple(100) = "understood"
verbs_pastsimple(101) = "woke"
verbs_pastsimple(102) = "wore"
verbs_pastsimple(103) = "won"
verbs_pastsimple(105) = "wrote"
verbs_pastsimple(106) = "did"
Dim verbs_pastparticiple(104) As String
verbs_pastparticiple(1) = "been"
verbs_pastparticiple(2) = "beaten"
verbs_pastparticiple(3) = "become"
verbs_pastparticiple(4) = "begun"
verbs_pastparticiple(5) = "bent"
verbs_pastparticiple(6) = "bitten"
verbs_pastparticiple(7) = "blown"
verbs_pastparticiple(8) = "broken"
verbs_pastparticiple(9) = "brought"
verbs_pastparticiple(10) = "built"
verbs_pastparticiple(11) = "burned"
verbs_pastparticiple(12) = "burst"
verbs_pastparticiple(13) = "bought"
verbs_pastparticiple(14) = "been able"
verbs_pastparticiple(15) = "caught"
verbs_pastparticiple(16) = "chosen"
verbs_pastparticiple(17) = "come"
verbs_pastparticiple(18) = "cost"
verbs_pastparticiple(19) = "cut"
verbs_pastparticiple(20) = "dug"
verbs_pastparticiple(21) = "done"
verbs_pastparticiple(22) = "drawn"
verbs_pastparticiple(23) = "dreamed"
verbs_pastparticiple(24) = "drunk"
verbs_pastparticiple(25) = "driven"
verbs_pastparticiple(26) = "eaten"
verbs_pastparticiple(27) = "fallen"
verbs_pastparticiple(28) = "fed"
verbs_pastparticiple(29) = "felt"
verbs_pastparticiple(30) = "fought"
verbs_pastparticiple(31) = "found"
verbs_pastparticiple(32) = "flown"
verbs_pastparticiple(33) = "forgotten"
verbs_pastparticiple(34) = "forgiven"
verbs_pastparticiple(35) = "frozen"
verbs_pastparticiple(36) = "got"
verbs_pastparticiple(37) = "given"
verbs_pastparticiple(38) = "gone"
verbs_pastparticiple(39) = "grown"
verbs_pastparticiple(40) = "hanged"
verbs_pastparticiple(41) = "had"
verbs_pastparticiple(42) = "heard"
verbs_pastparticiple(43) = "hidden"
verbs_pastparticiple(44) = "hit"
verbs_pastparticiple(45) = "held"
verbs_pastparticiple(46) = "hurt"
verbs_pastparticiple(47) = "kept"
verbs_pastparticiple(48) = "knelt"
verbs_pastparticiple(49) = "known"
verbs_pastparticiple(50) = "laid"
verbs_pastparticiple(51) = "led"
verbs_pastparticiple(52) = "learned"
verbs_pastparticiple(53) = "left"
verbs_pastparticiple(54) = "lent"
verbs_pastparticiple(55) = "let"
verbs_pastparticiple(56) = "lain"
verbs_pastparticiple(57) = "lit"
verbs_pastparticiple(58) = "lost"
verbs_pastparticiple(59) = "made"
verbs_pastparticiple(60) = "meant"
verbs_pastparticiple(61) = "met"
verbs_pastparticiple(61) = "had to"
verbs_pastparticiple(62) = "paid"
verbs_pastparticiple(63) = "put"
verbs_pastparticiple(64) = "read"
verbs_pastparticiple(65) = "ridden"
verbs_pastparticiple(66) = "rung"
verbs_pastparticiple(67) = "risen"
verbs_pastparticiple(68) = "run"
verbs_pastparticiple(69) = "said"
verbs_pastparticiple(70) = "seen"
verbs_pastparticiple(71) = "sold"
verbs_pastparticiple(72) = "sent"
verbs_pastparticiple(73) = "set"
verbs_pastparticiple(74) = "shaken"
verbs_pastparticiple(75) = "shone"
verbs_pastparticiple(76) = "shot"
verbs_pastparticiple(77) = "shown"
verbs_pastparticiple(78) = "shut"
verbs_pastparticiple(79) = "sung"
verbs_pastparticiple(80) = "sunk"
verbs_pastparticiple(81) = "sat"
verbs_pastparticiple(82) = "slept"
verbs_pastparticiple(83) = "slid"
verbs_pastparticiple(84) = "smelled"
verbs_pastparticiple(85) = "spoken"
verbs_pastparticiple(86) = "spent"
verbs_pastparticiple(87) = "spilled"
verbs_pastparticiple(88) = "spoiled"
verbs_pastparticiple(89) = "stood"
verbs_pastparticiple(90) = "stolen"
verbs_pastparticiple(91) = "stuck"
verbs_pastparticiple(92) = "swum"
verbs_pastparticiple(93) = "taken"
verbs_pastparticiple(94) = "taught"
verbs_pastparticiple(95) = "tore"
verbs_pastparticiple(96) = "told"
verbs_pastparticiple(97) = "thought"
verbs_pastparticiple(98) = "thrown"
verbs_pastparticiple(99) = "understood"
verbs_pastparticiple(100) = "woken"
verbs_pastparticiple(101) = "worn"
verbs_pastparticiple(102) = "won"
verbs_pastparticiple(103) = "written"
Dim adjetives(59) As String
adjetives(1) = "good"
adjetives(2) = "bad"
adjetives(3) = "Normal"
adjetives(4) = "best"
adjetives(5) = "worst"
adjetives(6) = "big"
adjetives(7) = "small"
adjetives(8) = "superior"
adjetives(9) = "lower"
adjetives(10) = "nice"
adjetives(11) = "beautiful"
adjetives(12) = "smart"
adjetives(13) = "ugly"
adjetives(14) = "clean"
adjetives(15) = "dirty"
adjetives(16) = "hot"
adjetives(17) = "cold"
adjetives(18) = "cheap"
adjetives(19) = "expensive"
adjetives(20) = "full"
adjetives(21) = "empty"
adjetives(22) = "clever"
adjetives(23) = "shit"
adjetives(24) = "stupid"
adjetives(25) = "intelligent"
adjetives(26) = "interest"
adjetives(27) = "easy"
adjetives(28) = "hard"
adjetives(29) = "free"
adjetives(30) = "busy"
adjetives(31) = "only"
adjetives(32) = "accompanied"
adjetives(33) = "young"
adjetives(34) = "old"
adjetives(35) = "high"
adjetives(36) = "low"
adjetives(37) = "strong"
adjetives(38) = "loose"
adjetives(39) = "strong"
adjetives(40) = "sick"
adjetives(41) = "healthy"
adjetives(42) = "thin"
adjetives(43) = "fat"
adjetives(44) = "tough"
adjetives(45) = "soft"
adjetives(46) = "resist"
adjetives(47) = "nice"
adjetives(48) = "funny"
adjetives(49) = "polite"
adjetives(50) = "happy"
adjetives(51) = "sad"
adjetives(52) = "tired"
adjetives(53) = "color"
adjetives(54) = "white"
adjetives(55) = "black"
adjetives(56) = "blue"
adjetives(57) = "red"
adjetives(58) = "green"
adjetives(59) = "yellow"
Dim conjuntions(13) As String
conjuntions(1) = "for"
conjuntions(2) = "and"
conjuntions(3) = "nor"
conjuntions(4) = "but"
conjuntions(5) = "or"
conjuntions(6) = "yet"
conjuntions(7) = "so"
conjuntions(8) = "either"
conjuntions(9) = "not only"
conjuntions(10) = "neither"
conjuntions(11) = "both"
conjuntions(12) = "whether"
Dim determiner(100) As String
determiner(1) = "other"
determiner(2) = "another"
determiner(3) = "else"
determiner(4) = "different"
determiner(5) = "a"
determiner(6) = "an"
determiner(7) = "the"
determiner(8) = "zero"
determiner(9) = "one"
determiner(10) = "two"
determiner(11) = "three"
determiner(12) = "four"
determiner(13) = "five"
determiner(14) = "six"
determiner(15) = "seven"
determiner(16) = "eight"
determiner(17) = "nine"
determiner(18) = "ten"
determiner(19) = "eleven"
determiner(20) = "twelve"
determiner(21) = "thirteen"
determiner(22) = "fourteen"
determiner(23) = "fifteen"
determiner(24) = "sixteen"
determiner(25) = "seventeen"
determiner(26) = "eighteen"
determiner(27) = "nineteen"
determiner(28) = "infinite"
determiner(29) = "many"
determiner(30) = "much"
determiner(31) = "few"
determiner(32) = "little"
determiner(33) = "several"
determiner(34) = "most"
determiner(35) = "this"
determiner(36) = "that"
determiner(37) = "these"
determiner(38) = "those"
determiner(39) = "which"
determiner(40) = "every"
determiner(41) = "any"
determiner(42) = "whichever"
determiner(43) = "same"
determiner(44) = "such"
determiner(45) = "what"
determiner(46) = "some"
determiner(47) = "whatever"
determiner(48) = "a lot of"
determiner(49) = "several"
Dim possesive_determiner(30) As String
possesive_determiner(1) = "me"
possesive_determiner(2) = "him"
possesive_determiner(3) = "her"
possesive_determiner(4) = "us"
possesive_determiner(5) = "them"
possesive_determiner(6) = "my"
possesive_determiner(7) = "your"
possesive_determiner(8) = "his"
possesive_determiner(9) = "our"
possesive_determiner(10) = "their"
possesive_determiner(11) = "mine"
Dim infinitive_verbs(32) As String
infinitive_verbs(1) = "to answer"
infinitive_verbs(2) = "to ask"
infinitive_verbs(3) = "to approve"
infinitive_verbs(4) = "to belong"
infinitive_verbs(5) = "to brush"
infinitive_verbs(6) = "to clean"
infinitive_verbs(7) = "to climb"
infinitive_verbs(8) = "to cook"
infinitive_verbs(9) = "to dance"
infinitive_verbs(10) = "to discover"
infinitive_verbs(11) = "to deliver"
infinitive_verbs(12) = "to enjoy"
infinitive_verbs(13) = "to explain"
infinitive_verbs(14) = "to finish"
infinitive_verbs(15) = "to fish"
infinitive_verbs(16) = "to happen"
infinitive_verbs(17) = "to kiss"
infinitive_verbs(18) = "to like"
infinitive_verbs(19) = "to live"
infinitive_verbs(20) = "to need"
infinitive_verbs(21) = "to open"
infinitive_verbs(22) = "to paint"
infinitive_verbs(23) = "to punish"
infinitive_verbs(24) = "to remember"
infinitive_verbs(25) = "to show"
infinitive_verbs(26) = "to smile"
infinitive_verbs(27) = "to start"
infinitive_verbs(28) = "to study"
infinitive_verbs(29) = "to visit"
infinitive_verbs(30) = "to wait"
Dim past_infinitive(31) As String
past_infinitive(1) = "answered"
past_infinitive(2) = "asked"
past_infinitive(3) = "approved"
past_infinitive(4) = "belonged"
past_infinitive(5) = "brushed"
past_infinitive(6) = "cleaned"
past_infinitive(7) = "climbed"
past_infinitive(8) = "cooked"
past_infinitive(9) = "danced"
past_infinitive(10) = "discovered"
past_infinitive(11) = "delivered"
past_infinitive(12) = "enjoyed"
past_infinitive(13) = "explained"
past_infinitive(14) = "finished"
past_infinitive(15) = "fished"
past_infinitive(16) = "happened"
past_infinitive(17) = "kissed"
past_infinitive(18) = "liked"
past_infinitive(19) = "lived"
past_infinitive(20) = "needed"
past_infinitive(21) = "opened"
past_infinitive(22) = "painted"
past_infinitive(23) = "punished"
past_infinitive(24) = "remembered"
past_infinitive(25) = "showed"
past_infinitive(26) = "smiled"
past_infinitive(27) = "started"
past_infinitive(28) = "studied"
past_infinitive(29) = "visited"
past_infinitive(30) = "waited"
Dim sings(12) As String
sings(1) = "?"
sings(2) = "!"
sings(3) = ":"
sings(4) = ","
sings(5) = "."
sings(6) = ";"
sings(7) = ":D"
sings(8) = "xD"
sings(9) = "<3"
sings(10) = ":P"
sings(11) = "^^"
Dim questions(10) As String
questions(1) = "what"
questions(2) = "which"
questions(3) = "where"
questions(4) = "how"
questions(5) = "when"
If TextBox1.Text = personal_pronouns(1) + "m " + adjetives(1) + " in programming" Then
Label1.Text = ""
End If
If TextBox1.Text = verbs(1) + "ing" Then
Label1.Text = ""
End If
If TextBox1.Text = "Hello bot" Then
Label1.Text = "Hello"
End If
If TextBox1.Text = "How are you?" Then
Label1.Text = "Im fine thanx and you?"
End If
If TextBox1.Text = "1+1" Then
Label1.Text = "2"
End If
If TextBox1.Text = personal_pronouns(1) + verbs(2) Then
Label1.Text = "what are you"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
useful stuff about AI:
http://en.wikipedia.org/wiki/Affective_computingyou may need .Net framework 4 to run the program:
http://www.microsoft.com/downloads/en/confirmation.aspx?FamilyID=9cfb2d51-5ff4-4491-b0e5-b386f32c0992&displaylang=en
