Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim display_text As String = ""
      
      '// Simulate user pressing buttons: 1, 2, 3, +, 4, 5, 6
      display_text = display_text + "123"
      Console.WriteLine($"Display: {display_text}")
      
      display_text = display_text + "+"
      Console.WriteLine($"Display: {display_text}")
      
      display_text = display_text + "456"
      Console.WriteLine($"Display: {display_text}")
      
      '// Simulate pressing '='. This is where uCalc does the work.
      Dim result = uc.EvalStr(display_text)
      display_text = result
      Console.WriteLine($"Result: {display_text}")
      
      Console.WriteLine("")
      
      '// Simulate a new calculation with an error
      display_text = "5 * / 3"
      Console.WriteLine($"Display: {display_text}")
      result = uc.EvalStr(display_text)
      display_text = result
      Console.WriteLine($"Result: {display_text}")
      
      Console.WriteLine("")
      
      '// Simulate clearing the display
      display_text = "C" '// Let's say 'C' is a special command
      If display_text = "C" Then
         display_text = ""
      End If
      Console.WriteLine($"Display after clear: '{display_text}'")
   End Sub
End Module