Add files via upload

Author: zq99

OpenAIFrameworkDemo.xlsm

@@ -89,7 +89,7 @@ End Property
 
 Public Property Let Temperature(ByVal value As Double)
     If (value < 0) Or (value > 1) Then
-        Call mobjLogger.LogCriticalMessage("Temperature setting must be between 0 and 1!", blnAddModuleName:=False)
+        Call mobjLogger.PrintCriticalMessage("Temperature setting must be between 0 and 1!", blnAddModuleName:=False)
     End If
     mobjRequest.Temperature = value
 End Property
@@ -180,7 +180,7 @@ EXIT_HERE:
     Exit Function
 
 ERR_HANDLER:
-    mobjLogger.LogVBAError Err
+    mobjLogger.PrintVBAError Err
     GoTo EXIT_HERE
 End Function
 
@@ -199,7 +199,7 @@ Public Function ChatCompletion(ByVal oMessages As clsOpenAIMessages) As clsOpenA
     Set ChatCompletion = Nothing
 
     If Not IsAPIKeyValid Then
-        mobjLogger.LogCriticalMessage MESSAGE_INVALID_API_KEY, True
+        mobjLogger.PrintCriticalMessage MESSAGE_INVALID_API_KEY, True
         Exit Function
     End If
 
@@ -230,7 +230,7 @@ Public Function TextCompletion(ByVal strPrompt As String) As clsOpenAIResponse
     Set TextCompletion = Nothing
 
     If Not IsAPIKeyValid Then
-        mobjLogger.LogCriticalMessage MESSAGE_INVALID_API_KEY, True
+        mobjLogger.PrintCriticalMessage MESSAGE_INVALID_API_KEY, True
         Exit Function
     End If
 
@@ -304,7 +304,7 @@ Public Sub ClearSettings()
 End Sub
 
 Public Function GetReadAPIKeyFromFolder(ByVal strfolderPath As String) As String
-'Purpose: Allows retrieval of an API KEY saved in an external file (possibly stored on a user access drive)
+'Purpose: Allows retrieval of an API KEY saved in an external file (possibly stored on a drive only the current user can access)
 
     Dim intFileNumber As Integer
     Dim strAPIKey As String

clsOpenAI.cls

@@ -95,7 +95,7 @@ Private Sub LogMessage(ByVal strMessage As String)
     End If
 End Sub
 
-Public Sub LogCriticalMessage(ByVal strMessage As String, Optional ByVal blnIsBorderRequired As Boolean = False, Optional ByVal strBorderCharacter As String = "*", Optional ByVal blnAddModuleName As Boolean = True, Optional ByVal strLabel As String = "WARNING")
+Public Sub PrintCriticalMessage(ByVal strMessage As String, Optional ByVal blnIsBorderRequired As Boolean = False, Optional ByVal strBorderCharacter As String = "*", Optional ByVal blnAddModuleName As Boolean = True, Optional ByVal strLabel As String = "WARNING")
 'Purpose: This method always outputs to the immediate window regardless of whether logging is set to False
 
     If Not mobjClass Is Nothing Then
@@ -120,7 +120,7 @@ Public Sub LogCriticalMessage(ByVal strMessage As String, Optional ByVal blnIsBo
 End Sub
 
 
-Public Sub LogVBAError(ByVal objErr As Error)
+Public Sub PrintVBAError(ByVal objErr As Error)
 'Purpose: This method always outputs to the immediate window regardless of whether logging is set to False
 
     If Not mobjClass Is Nothing Then

clsOpenAILogger.cls

@@ -69,8 +69,8 @@ Public Sub TestChatOpenAI()
 
     oOpenAI.API_KEY = API_KEY
 
-    oMessages.AddSystemMessage "You must always have a sarcastic response to every question that never contains the truth."
-    oMessages.AddUserMessage "Hey man do you know how to get to Carnegie Hall?"
+    oMessages.AddSystemMessage "Always answer sarcastically and never truthfully."
+    oMessages.AddUserMessage "How do you get to Carnegie Hall?"
 
     If oMessages.IsPopulated Then
         Set oResponse = oOpenAI.ChatCompletion(oMessages)
@@ -108,7 +108,7 @@ Public Sub TestTextCompletionOpenAI()
 
     oOpenAI.API_KEY = API_KEY
 
-    sMsg = "Write a joke about a dinosaur attempting to learn how to salsa dance"
+    sMsg = "Write a Haiku about a Dinosaur that loves to code!"
     Set oResponse = oOpenAI.TextCompletion(sMsg)
 
     If Not oResponse Is Nothing Then