Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim expr = uc.Parse("12345.6789")
      
      '// Default (General with up to 15 digits)
      Console.WriteLine(expr.EvaluateStr(FormatStyle.Default))
      
      '// Fixed notation with 2 decimal places
      Console.WriteLine(expr.EvaluateStr(FormatStyle.Fixed, 2))
      
      '// Scientific notation with 3 decimal places
      Console.WriteLine(expr.EvaluateStr(FormatStyle.Scientific, 3))
      
      '// General notation constrained to 4 significant digits
      Console.WriteLine(expr.EvaluateStr(FormatStyle.General, 4))
      
      '// Hexadecimal floating-point notation
      Console.WriteLine(expr.EvaluateStr(FormatStyle.Hex))
   End Sub
End Module