Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// 1. Check startup default (usually Double)
      Console.WriteLine($"Start: {uc.DefaultDataType.Name}")
      
      '// 2. Change default to 32-bit Integer
      uc.SetDefaultDataType(BuiltInType.Integer_32)
      Console.WriteLine($"New: {uc.DefaultDataType.Name}")
      
      '// 3. Reset to Double using string shortcut
      uc.SetDefaultDataType("Double")
      Console.WriteLine($"Reset: {uc.DefaultDataType.Name}")
      
   End Sub
End Module