Skip to content

fix for non-English systems #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Jan 7, 2024
Merged

fix for non-English systems #2

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 18 additions & 3 deletions clsOpenAIRequest.cls
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@ Private mlngMaxTokens As Long
Private mdblTopP As Double
Private mdblTemperature As Double
Private mdblFrequencyPenalty As Double
Private mdlPresencePenalty As Double
Private mdblPresencePenalty As Double
Private mstrPrompt As String
Private mlngImageWidth As Long
Private mlngImageHeight As Long
Expand Down Expand Up @@ -115,7 +115,7 @@ Public Property Let FrequencyPenalty(ByVal value As Double)
End Property

Public Property Let PresencePenalty(ByVal value As Double)
mdlPresencePenalty = value
mdblPresencePenalty = value
End Property

Public Property Get ImageHeight() As Long
Expand Down Expand Up @@ -168,7 +168,7 @@ End Property


Public Function GetChatSendToAPIJsonString() As String
GetChatSendToAPIJsonString = "{""model"": """ & mstrModel & """, " & mobjMessages.GetAllMessages & ", ""max_tokens"": " & mlngMaxTokens & ", ""top_p"": " & mdblTopP & ", ""temperature"": " & mdblTemperature & ", ""frequency_penalty"": " & mdblFrequencyPenalty & ", ""presence_penalty"": " & mdlPresencePenalty & "}"
GetChatSendToAPIJsonString = "{""model"": """ & mstrModel & """, " & mobjMessages.GetAllMessages & ", ""max_tokens"": " & mlngMaxTokens & ", ""top_p"": " & DblToEnglishStr(mdblTopP) & ", ""temperature"": " & DblToEnglishStr(mdblTemperature) & ", ""frequency_penalty"": " & DblToEnglishStr(mdblFrequencyPenalty) & ", ""presence_penalty"": " & mdblPresencePenalty & "}"
End Function


Expand All @@ -182,3 +182,18 @@ End Function
Public Function GetImageDimensionLabel() As String
GetImageDimensionLabel = Chr(34) & CStr(mlngImageWidth) & "x" & CStr(mlngImageHeight) & Chr(34)
End Function


Private Function DblToEnglishStr(dblNumber As Double) As String
'Purpose: Normalize formatting of number with decimals to English format

' Convert the double to string using system's regional settings
Dim strNumber As String
strNumber = CStr(dblNumber)

' Replace comma with period if system uses comma as decimal separator (eg. Italian format)
strNumber = Replace(strNumber, ",", ".")

' Return the formatted string
DblToEnglishStr = strNumber
End Function