Marre des jeux hanoi sans les solutions :)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 016 fois - Téléchargée 41 fois

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

Ajouter un commentaire

Commentaires

Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
15
non , c le sujet d'un de mes partiels de l'année derniere mais si j'avais su ja'urais emprunté un manuel de TI92
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006

Pas mal mais t'aurai pas piquer cette source dans le manuel d'une calculette (Ti92) ?? ya exactement (a qqu exceptions pret du au type de language difféent !)

lol
bon
a+

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.