Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineConstant("MAX_USERS = 100")
      uc.DefineConstant("API_VERSION = 'v2.1'")
      uc.DefineConstant("ENABLE_LOGGING = true")
      
      Console.WriteLine("Configuration Settings:")
      Console.WriteLine($"Max Users: {uc.Eval("MAX_USERS")}")
      Console.WriteLine($"API Version: {uc.EvalStr("API_VERSION")}")
      Console.WriteLine($"Logging Enabled: {uc.EvalStr("ENABLE_LOGGING")}")
      
      '// Use in a conditional expression
      Dim currentUserCount As Integer = 99
      If uc.EvalStr((currentUserCount).ToString() + " < MAX_USERS") = "true" Then
         Console.WriteLine("System capacity is OK.")
      End If
   End Sub
End Module