- 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
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