Messages

1

Ultra Hal 7.0 / Re: Skins and characters

« on: May 24, 2013, 08:02:08 pm »

Just looking to create a working wave for a haptek character.
 Like this:

2

Ultra Hal 7.0 / Re: Skins and characters

« on: May 23, 2013, 09:16:44 am »

Well that defiantly covers the skins, and question I had about them. Good job guys, and thanks for the help, but I also need an alliterative htr editor. Something besides People putty program.

3

Ultra Hal 7.0 / Re: Skins and characters

« on: May 22, 2013, 10:53:41 pm »

This looks like we're getting somewhere?

4

Ultra Hal 7.0 / Skins and characters

« on: May 22, 2013, 01:30:11 pm »

I'm sort of a part time Hal user, and really trying to develop some real time uses for the Ultra Hal program.

First thing I would love to do is personalize my program.
I would like to create a custom character, and custom skins.
I do not want a full character, instead I would like to have an automated audio wave like this.

And I would like to be able to build a skin like this.

Any help or direction would be appreciated.
Thank you.

5

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 28, 2012, 05:44:11 pm »

Never mind I figured it out

6

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 28, 2012, 12:58:16 am »

I have all the the flow charts I'll be using. Most issues like video, power, motherboard, drive, and conflict issues, can be chained pretty easily. You can even loop the GetResponse if the PrevSent is already written. So pretty much if the flow charts suggests skipping to another section, it will, and does not cause any conflicts. I am very happy with this function!

Unfortunately other issue like networking, audio, and laptops do not apply to the original chain, so I would like to have a different set of questions to operate within a different chain, outside of the original, but within the original Diagnostic.uhp

If this doesn't make sense? Just let me know. All I need is a sample or example, and I'm on my way to carpal tunnel syndrome.
Right now I have a little over 350 lines. That is just power supply, video failure, and Motherboard, CPU, and RAM failure. I still have 6 more ares to apply. I'm looking at a possible 3000 lines when I'm done.

7

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 27, 2012, 11:52:54 pm »

Would it work within the original diagnostics.uhp?
Example, or idea

Code: [Select]

Rem Type=Plugin
Rem Name=Diagnostics
Rem Author=Gerald L. Blakley A.K.A OnTheCuttingEdge2005
Rem Host=Assistant
'If you want this plug-in global then change Assistant to All, AIM Bot is not working anymore because of AOL Oscar servers so leave it on Assistant until it is resolved.

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "For use of adding diagnostic explanations"
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

 Rem PLUGIN: CUSTOMMEM2
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.


'Diagnostics code by aka onthecuttingedge2005, Idea concept from aka deitz
    'of the Zabaware forum.
    'If a user asked about diagnosing a tech problem we can add or use this
    'chain of code to do so.
   
    If InStr(1, OriginalSentence, "My computer will not power on", 1) Or _
   InStr(1, OriginalSentence, "My computer won't power on", 1) Or _
   InStr(1, OriginalSentence, "My computer has no power", 1) Or _
   InStr(1, OriginalSentence, "My computer is not turning on", 1) Or _
   InStr(1, OriginalSentence, "My computer isn't turning on", 1) Or _
   InStr(1, OriginalSentence, "My computer has no video", 1) Or _
   InStr(1, OriginalSentence, "I cannot see anything on my computer screen", 1) Or _
   InStr(1, OriginalSentence, "Computer turns on, but there is no video", 1) Or _
   InStr(1, OriginalSentence, "Computer turns on, but there isn't any video", 1) Or _
   InStr(1, OriginalSentence, "Computer turns on, but has no video", 1) Or _
   InStr(1, OriginalSentence, "No video, but the computer turns on", 1) Or _
   InStr(1, OriginalSentence, "No video from the computer", 1) Or _
   InStr(1, OriginalSentence, "No video from my computer", 1) Then Diagnostics = True
   
    'Here we can add accociated responses to the above triggers.
    If Diagnostics = True Then
                 GetResponse = "I can assist you with most hardware issue relating to computers. Please answer yes or no to my questions, and I can determine a prognosis for you. Do you wish to continue?"
    End If
                       
    If InStr(1, PrevSent, "I can assist you with most hardware issue relating to computers. Please answer yes or no to my questions, and I can determine a prognosis for you. Do you wish to continue?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Verify that your computer is plugged in. Does the computer power on at all? Keep in mind beeps, sounds, lights or LED's are an indication of power." 
            If No(OriginalSentence) = True Then GetResponse = "Ok, good luck! If you get stuck? Ask the primary question to restart the diagnostics query."
            If Maybe(OriginalSentence) = True Then GetResponse = "You must need help, if you don't know weither or not you need it. Ask the primary question to restart the diagnostics query."
    End If
   
    If InStr(1, PrevSent, "Verify that your computer is plugged in. Does the computer power on at all? Keep in mind beeps, sounds, lights or LED's are an indication of power.", 1) Then
             If Yes(OriginalSentence) = True Then GetResponse = "Does a boot screen appear on the display?" 
             If No(OriginalSentence) = True Then GetResponse = "Is the outlet that the computer is plugged into working properly?"
             If Maybe(OriginalSentence) = True Then GetResponse = "Please be sure the computer is plugged into the proper outlet. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If
   
    If InStr(1, PrevSent, "Does a boot screen appear on the display?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Does the computer boot up a second or third time?"
            If No(OriginalSentence) = True Then GetResponse = "Is there anything on the screen?"
            If Maybe(OriginalSentence) = True Then GetResponse =  "Please verify the display. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If
           
    If InStr(1, PrevSent, "Does the computer boot up a second or third time?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Possible Power OK signal failure. Unplug the computer for 30 seconds to clear error from power supply. If problem persists replace power supply to correct error." 
            If No(OriginalSentence) = True Then GetResponse = "Does the computer make any Beeping sounds?."
            If Maybe(OriginalSentence) = True Then GetResponse = "Test the outlet you are using with a multi meter. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If

    If InStr(1, PrevSent, "Does the computer make any Beeping sounds?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Motherboard Failure Currently under construction. I can no longer assist you. Have a nice day!" 
            If No(OriginalSentence) = True Then GetResponse = "Is there any new hardware installed?"
            If Maybe(OriginalSentence) = True Then GetResponse = "Are you hard of hearing? Get someone to assist you, and ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If

    If InStr(1, LCase(OriginalSentence), "my network is not working", 1) Or _
       InStr(1, LCase(OriginalSentence), "my internet is not working", 1) Or _
       InStr(1, LCase(OriginalSentence), "my ethernet is not working", 1) Or _
       InStr(1, LCase(OriginalSentence), "my network is not functioning", 1) Then NetDiagnostics = True
   
    'Here we can add accociated responses to the above triggers.
    If NetDiagnostics = True Then
                 GetResponse = "Open a web browser and try to view a website by typing in its IP address, for example http:// 17.254.0.91 (apple.com).  If the page loads then either DNS is indeed down or the machine’s DNS settings are incorrect. tell me whether it worked."
    End If
   
    If PrevSent = "Open a web browser and try to view a website by typing in its IP address, for example http:// 17.254.0.91 (apple.com).  If the page loads then either DNS is indeed down or the machine’s DNS settings are incorrect. tell me whether it worked." Then
             If Yes(OriginalSentence) = True Then GetResponse = "If the page did load but DNS settings are correct then the computer is not auto-switching to another DNS provider.  This can be done manually but moving another DNS IP address to the top of the list in the Network control panel settings." 
             If No(OriginalSentence) = True Then GetResponse = "If the page fails to load by IP address, open up a command prompt and try to ping any machine on the Internet.  If no host responds then either the connection for the computer is not live or again the settings maybe incorrect for the network card."
             If Maybe(OriginalSentence) = True Then GetResponse = "Please verify that your computer can not connect to an I.P address and restart the network diagnostics query."
    End If
   
    If InStr(1, PrevSent, "If the page fails to load by IP address, open up a command prompt and try to ping any machine on the Internet.  If no host responds then either the connection for the computer is not live or again the settings maybe incorrect for the network card. do you suspect that the connection is dead?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "If you suspect that the connection is dead, try to verify this by either checking that computer’s connection on a different functioning computer in the local area or if there is a hub in the room and the questionable computer is plugged into that hub, verify that the other stations connected to that hub are functioning on the network"
            If No(OriginalSentence) = True Then GetResponse = "Then check to see if your ethernet cord is functioning if it is then check to see if any router you are using is functioning correctly."
            If Maybe(OriginalSentence) = True Then GetResponse = "please check to see if the page loads and restart this network diagnostics query."
    End If
   
   
Rem PLUGIN: FUNCTIONS
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.

'Here we can use the Yes, No, Maybe functions throughout the entire diagnostics script
'to direct our questions and answers more efficiently.

'direct Yes affirmation
Function Yes(OriginalSentence)
Yes = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yes ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " affirmative ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yep ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yup ", 1) Then Yes = True
End Function
'direct No affirmation
Function No(OriginalSentence)
No = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " no ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " nope ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " it is not ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " negative ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " it did not load ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " it didn't load ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", "does not work ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", "doesn't work ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " did not work ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " didn't work ", 1) Then No = True
End Function
'if the user is not certain about the question then assume they are not certain.
Function Maybe(OriginalSentence)
Maybe = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't know ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't believe so ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't think so ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i'm not sure ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i never checked ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i didn't check ", 1) Then Maybe = True
End Function



8

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 27, 2012, 04:05:14 pm »

How about a way to introduce new line of questioning for a different ladder logic. Such as issues with Networking, Video, Audio, and Drive failure. Sub questions for different issues?

9

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 27, 2012, 08:50:54 am »

Do you recommend any books base on this type of programming?

10

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 26, 2012, 10:16:41 pm »

Just updated my last post. I need a way to introduce new line of questioning for a different ladder logic. Such as issues with Networking, Video, Audio, and Drive failure. Is it possible?

11

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 26, 2012, 08:34:31 pm »

I figured out what my problem was. Auto learning function recorded the Q&A and kept on feeding it back to me. This code works. I even have a looped question that worked flaulessly.  Line 66, and 109.

Code: [Select]

Rem Type=Plugin
Rem Name=Diagnostics
Rem Author=Gerald L. Blakley A.K.A OnTheCuttingEdge2005
Rem Host=Assistant
'If you want this plug-in global then change Assistant to All, AIM Bot is not working anymore because of AOL Oscar servers so leave it on Assistant until it is resolved.

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "For use of adding diagnostic explanations"
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

 Rem PLUGIN: CUSTOMMEM2
    'The preceding comment is actually a plug-in directive for
    'the Ultra Hal host application. It allows for code snippets
    'to be inserted here on-the-fly based on user configuration.


'Diagnostics code by aka onthecuttingedge2005, Idea concept from aka deitz
    'of the Zabaware forum.
    'If a user asked about diagnosing a tech problem we can add or use this
    'chain of code to do so.
   
    If InStr(1, OriginalSentence, "My computer will not power on", 1) Or _
   InStr(1, OriginalSentence, "My computer won't power on", 1) Or _
   InStr(1, OriginalSentence, "My computer has no power", 1) Or _
   InStr(1, OriginalSentence, "My computer is not turning on", 1) Or _
       InStr(1, OriginalSentence, "My computer isn't turning on", 1) Then Diagnostics = True
   
    'Here we can add accociated responses to the above triggers.
    If Diagnostics = True Then
                 GetResponse = "I can assist you with this error. Please answer yes or no to my questions. Verify that your computer is plugged in. Does the computer power on at all? Keep in mind beeps, sounds, lights or L E D's are an indication of power."
    End If
   
    If PrevSent = "I can assist you with this error. Please answer yes or no to my questions. Verify that your computer is plugged in. Does the computer power on at all? Keep in mind beeps, sounds, lights or L E D's are an indication of power." Then
             If Yes(OriginalSentence) = True Then GetResponse = "Does a boot screen appear on the display?" 
             If No(OriginalSentence) = True Then GetResponse = "Is the outlet that the computer is plugged into working properly?"
             If Maybe(OriginalSentence) = True Then GetResponse = "Please be sure the computer is plugged into the proper outlet. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If
   
    If InStr(1, PrevSent, "Does a boot screen appear on the display?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Does the computer boot up a second or third time?"
            If No(OriginalSentence) = True Then GetResponse = "Video Failure Currently under construction. I can no longer assist you. Have a nice day!"
            If Maybe(OriginalSentence) = True Then GetResponse =  "Please verify the display. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If
           
    If InStr(1, PrevSent, "Does the computer boot up a second or third time?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Possible Power OK signal failure. Unplug the computer for 30 seconds to clear error from power supply. If problem persists replace power supply to correct error." 
            If No(OriginalSentence) = True Then GetResponse = "Does the computer make any Beeping sounds?."
            If Maybe(OriginalSentence) = True Then GetResponse = "Test the outlet you are using with a multi meter. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If

        If InStr(1, PrevSent, "Does the computer make any Beeping sounds?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Motherboard Failure Currently under construction. I can no longer assist you. Have a nice day!" 
            If No(OriginalSentence) = True Then GetResponse = "Is there any new hardware installed?"
            If Maybe(OriginalSentence) = True Then GetResponse = "Are you hard of hearing? Get someone to assist you, and ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If

    If InStr(1, PrevSent, "Is there any new hardware installed?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Remove the new addition and try reinstalling. Test the new device for errors in a working computer. Test and replace power supply if necessary." 
            If No(OriginalSentence) = True Then GetResponse = "Can you hear or feel the hard drive spin or start up?"
            If Maybe(OriginalSentence) = True Then GetResponse = "You should know the answer to this question? Once you have figured this out, ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If
    If InStr(1, PrevSent, "Can you hear or feel the hard drive spin or start up?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Bad adapter used on bus? Does the hard drive work in a similar computer?" 
            If No(OriginalSentence) = True Then GetResponse = "Does it spin up on a different power connector?"
            If Maybe(OriginalSentence) = True Then GetResponse = "When you are more sure of yourself, ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If
       
    If InStr(1, PrevSent, "Bad adapter used on bus? Does the hard drive work in a similar computer?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Does the computer operate properly, on the bench or out of the case?" 
            If No(OriginalSentence) = True Then GetResponse = "Adapter on device may be at fault, or incompatible. Suggest replacement. It is most likely at fault."
            If Maybe(OriginalSentence) = True Then GetResponse = "Wow... you are kind of lazy, aren't you? When you get around to trying a different connector, ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If

    If InStr(1, PrevSent, "Does the computer operate properly, on the bench or out of the case?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Either you have a short circuit in the case, or geometry problem an unacceptable amount of stress on the motherboard. It is possible that the video card was never seated properly due to bracket placement." 
            If No(OriginalSentence) = True Then GetResponse = "Replace power supply. This should correct the current error."
            If Maybe(OriginalSentence) = True Then GetResponse = "When you get around to it, ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If
   
    If InStr(1, PrevSent, "Does it spin up on a different power connector?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Defective power supply or connector.  Suggest replacement of the power supply." 
            If No(OriginalSentence) = True Then GetResponse = "Test the hard drive in a different computer. It is most likely at fault."
            If Maybe(OriginalSentence) = True Then GetResponse = "Wow... you are kind of lazy, aren't you? When you get around to trying a different connector, ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If

    If InStr(1, PrevSent, "Is the outlet that the computer is plugged into working properly?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Is the little red selector switch set to the proper voltage? 110 volts should be the standard, but some industrial facilities use 220 volts." 
            If No(OriginalSentence) = True Then GetResponse = "Please use a live outlet. Of course a computer won’t power on without power?."
            If Maybe(OriginalSentence) = True Then GetResponse = "Test the outlet you are using with a multi meter. The primary question may be asked again to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis"
    End If

    If InStr(1, PrevSent, "Is the little red selector switch set to the proper voltage? 110 volts should be the standard, but some industrial facilities use 220 volts.", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Ok, unplug the computer and find the two wires leading to the power button. Cut the wires and strip the ends. Plug the computer back in, and touch the two wires together coming from the board. Does the Computer power on now?" 
            If No(OriginalSentence) = True Then GetResponse = "Select the proper voltage, and resume normal operations."
            If Maybe(OriginalSentence) = True Then GetResponse = "Do you want my help or not? Check the selector switch, and ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If
   
    If InStr(1, PrevSent, "Ok, unplug the computer and find the two wires leading to the power button. Cut the wires and strip the ends. Plug the computer back in, and touch the two wires together coming from the board. Does the Computer power on now?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Replace the case power button. This should correct the error." 
            If No(OriginalSentence) = True Then GetResponse = "Are the power supply connectors to the motherboard correct?"
            If Maybe(OriginalSentence) = True Then GetResponse = "Do you want my help or not? Bypass the power button, and ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If
       
    If InStr(1, PrevSent, "Are the power supply connectors to the motherboard correct?", 1) Then
            If Yes(OriginalSentence) = True Then GetResponse = "Can you hear or feel the hard drive spin or start up?" 
            If No(OriginalSentence) = True Then GetResponse = "Remake the mainboard power supply connections"
            If Maybe(OriginalSentence) = True Then GetResponse = "And here I thought you were smart. Ask the primary question to restart the diagnostics query. I need definitive answers in order to deliver a proper prognosis."
    End If
   
Rem PLUGIN: FUNCTIONS
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.

'Here we can use the Yes, No, Maybe functions throughout the entire diagnostics script
'to direct our questions and answers more efficiently.

'direct Yes affirmation
Function Yes(OriginalSentence)
Yes = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yes ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " affirmative ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yep ", 1) Then Yes = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " yup ", 1) Then Yes = True
End Function
'direct No affirmation
Function No(OriginalSentence)
No = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " no ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " nope ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " it is not ", 1) Then No = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " negative ", 1) Then No = True
End Function
'if the user is not certain about the question then assume they are not certain.
Function Maybe(OriginalSentence)
Maybe = False
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't know ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't believe so ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i don't think so ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i'm not sure ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i never checked ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " i didn't check ", 1) Then Maybe = True
If InStr(1, " " & Lcase(HalBrain.AlphaNumericalOnly(OriginalSentence)) & " ", " maybe ", 1) Then Maybe = True
End Function

This is what I got so far. This covers the most common logic in troubleshooting power supply errors. Unfortunately I need a way to introduce new line of questioning for a different ladder logic. Such as issues with Networking, Video, Audio, and Drive failure. Is it possible?

12

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 26, 2012, 07:41:08 am »

Jerry,
I think I understand what your saying. when you say "higher relevance." I also agree with not disabling additional scripts. I believe we are left with the threshold of two answers per question. The third statement from the original question should be the prognosis. I'm going to turn on the User repeating script. I think Hal should be able to give a reason for the repeated statements.

So basically this is what we're left with. One question from the user, two questions from Hal, two answers from the user, and one prognosis from Hal. Some trouble shooting flow charts go about ten to twenty steps before they reach a conclusion. I believe I can stream line those steps based on the popular error, and maybe even compound some of Hals statements to eliminate some steps.

I'm going to try to introduce another line of question. Right now we have a "no power" question. I'm going to try a "network error" question. and see how that runs. I'll keep you posted on my findings.

13

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 25, 2012, 09:46:03 pm »

My last post was made this morning before your last edit. This particular script appears to be working correctly, as far as responding based on the users, yes, no, or maybe statement. (Which I thought was a nice addition by the way.) I am testing the script by updating the Diagnostic.uhp, and actually asking Hal the question, "My computer will not power on"

Unfortunately I'm am losing his train of thought after the question, "Do you have a power supply tester?", or line
If InStr(1, PrevSent, "Do you have a power supply tester?", 1) Then
His response after this line are random
Examples: Care to elaborate?It is self-evident.All right!
Now I haven't done anything to Hals brain, other than what you told me to as far as the "User repeating" script. If you believe other wise, I was going to re-install Ultra Hal, and not install any other plugins. Re-install would at least stream line the trouble shooting process. Let me know what you think, or if you have any other ideas.

14

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 25, 2012, 06:24:36 am »

From here it appears you were up a little late... and I never touched the HalBrain.uhp. Although I question the use and efficiency of a plugin. We can debate that issue later. I've tested the the script, and found Hal still picks a random reply, and still responds to repeated answers. I'll be working on this from my end the best I can. I'll post any substantial findings, but I think your way better at this than I am.

15

Programming using the Ultra Hal Brain Editor / Re: Q&A

« on: October 24, 2012, 07:29:45 pm »

Did you just say that same thing a moment ago? After I corrected the script.
Still getting random answers, I'll keep checking back at that script.
And I WILL be making a contribution after we get the bugs worked out.
Thanks again!