Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define a global format rule for Double values
      uc.Format("Def: Result = Format('${:.2f}', double(Result))", uc.DataTypeOf("Double"))
      
      '// FormatStyle.Default (or omitting the argument) applies the global rule
      Console.WriteLine(uc.EvalStr("50 * 1.25", FormatStyle.Default))
      
      '// FormatStyle.None bypasses the global rule and returns the raw value
      Console.WriteLine(uc.EvalStr("50 * 1.25", FormatStyle.None))
   End Sub
End Module