torresdehanoi

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub ButtonSolucion_Click()

  resuelve(ValueBoxFichas.Value, 1, 3, 2)

End

Public Sub resuelve(n As Integer, inicial As Integer, final As Integer, libre As Integer)

  If n = 1 Then
    TextAreaSolucion.text &= "Mover disco superior de aguja " & Str$(inicial) & ", a " & Str$(final) & gb.Cr
  Else
    resuelve(n - 1, inicial, libre, final)
    TextAreaSolucion.text &= "Mover disco superior de aguja " & Str$(inicial) & ", a " & Str$(final) & gb.Cr
    resuelve(n - 1, libre, final, inicial)
  Endif

End