Algorithme

Bonjour
Je souhaite avoir des algorithmes de recherche opérationnel

tu est sensé le faire toute seul .
vous apprener le delphie ...alors t'a qu'a essayer de le faire c pas difficile .

bonjour j'aimerai savoir si mon programme est bon??
jai aussi un probleme mon programme de tour d'hanoi ne fonctinne pas il bloc à l
lstSol.AddItem ("Deplacer le disque du piquet " & source & " sur le piquet " & cible) et je narrive pas a faire fonctionné mon progressebar pouvez vous m'aidé svp??
voila mon programme

Public Class Form1
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.ClearSelected()

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

Private Sub Hanoi(ByVal nbdisk As Integer, ByVal source As Integer, ByVal intermediaire As Integer, ByVal cible As Integer)
If nbdisk > 0 Then

End If
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 Sub

Private Sub command1_click()
ProgressBar1 = 0
ProgressBar2 = 100

End Sub

Bonjour,pour raynald1987
j'essaye de trouver l'erreur et des répenses au prés des professeurs et des gent des domaines