Zabaware Support Forums

Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on September 28, 2003, 04:22:24 pm

Title: Dr. Hal is making house calls. hehehe
Post by: onthecuttingedge2005 on September 28, 2003, 04:22:24 pm

'Here we give Hal a PhD in the medical
'field to learn and discuss medical
'terms and maybe help some patients.
'download MedicalDetect.brn/MedicalTalk.brn
'and MedicalTerm.brn to your Hal's default
'folder.

'This is where we teach Hal about the Medical field and medicines through detection statements.   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MedicalDetect.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
'This is where Hal will store learned medical information.
HalBrain.AppendFile WorkingDir & "MedicalTalk" & ".brn", AnswerSent
End If
'This is the main medical word trigger and detector for conversations with user.
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MedicalTerm.brn") = "TRUE" Then
'This is where Hal will get learned medical information.
PHD = HalBrain.ChooseSentenceFromFile(WorkingDir & "MedicalTalk.brn")
      GetResponse = PHD & vbCrLf
      DebugInfo = DebugInfo & "The user is talking about Medical terms: " & PHD & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal has found nothing about Medical terms: " & PHD & vbCrLf
   End If

'Best of wishes and new discoveries.
'Jerry.



Download Attachment: (http://images/icon_paperclip.gif) MedicalDetect.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003928162123_MedicalDetect.brn")
5.16 KB

Download Attachment: (http://images/icon_paperclip.gif) MedicalTalk.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003928162140_MedicalTalk.brn")
1.01 KB

Download Attachment: (http://images/icon_paperclip.gif) MedicalTerm.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003928162159_MedicalTerm.brn")
1.52 KB