Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define variables where the type is inferred from the initial value
      uc.DefineVariable("myNumber = 10.5")
      uc.DefineVariable("myText = 'hello'")
      uc.DefineVariable("myFlag = true")
      
      '// Get the item and then its data type name
      Dim item1 = uc.ItemOf("myNumber")
      Console.WriteLine($"'myNumber' is of type: {item1.DataType.Name}")
      
      Dim item2 = uc.ItemOf("myText")
      Console.WriteLine($"'myText' is of type: {item2.DataType.Name}")
      
      Dim item3 = uc.ItemOf("myFlag")
      Console.WriteLine($"'myFlag' is of type: {item3.DataType.Name}")
   End Sub
End Module