Marre des jeux hanoi sans les solutions :)

Commenter

Contenu du snippet

Algorithme de résolution du jeux des tours de hanoi qui est a la mode sur Vbfrance

Source / Exemple : 


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

Conclusion :


un textbox : text1
un listbox : lstSol
un bouton :cmdSol

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (TheSaib)