Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim myVar = uc.DefineVariable("myVar = 255.5")
      Dim ptr = myVar.ValueAddr()
      
      '// Get the DataType object for Double
      Dim doubleType = uc.DataTypeOf("Double")
      
      '// Read from memory and format as Fixed with 2 decimal places
      Console.WriteLine(doubleType.ToString(ptr, FormatStyle.Fixed, 2))
      
      '// Read from memory and format with a custom pattern
      Console.WriteLine(doubleType.ToString(ptr, "Result = Format('--{:6.1f}--', double(Result))"))
   End Sub
End Module