MARRE DES JEUX HANOI SANS LES SOLUTIONS :)

Private Sub cmdSol_Click()
Dim s As Integer 'source
Dim i As Integer 'inter
Dim c As Integer 'cible

s = 1
c = 1
i = 1
lstSol.Clear

If Text1.Text <> "" Then
    Call Hanoi(CInt(Text1.Text), 1, 2, 3)
    End If
End Sub



Private Sub Hanoi(nbdisk As Integer, source As Integer, intermediaire As Integer, cible As Integer)
If nbdisk > 0 Then
    Call Hanoi(nbdisk - 1, source, cible, intermediaire)
    lstSol.AddItem ("Deplacer le disque du piquet " & source & " sur le piquet " & cible)
    Call Hanoi(nbdisk - 1, intermediaire, source, cible)
End If
End Sub