A voir également:
- Algorithme
- Algorithme euromillion excel gratuit - Télécharger - Loisirs créatifs
- Algorithme ajout rapide snapchat - <a href="https://forums.commentcamarche.net/forum/snapchat-333">Forum Snapchat</a>
- Fonction puissance algorithme - <a href="https://forums.commentcamarche.net/forum/algorithmes-methodes-351">Forum Algorithmes / Méthodes</a>
- Algorithme de fibonacci - <a href="https://forums.commentcamarche.net/forum/programmation-3">Forum Programmation</a>
- Algorithme keno excel - <a href="https://forums.commentcamarche.net/forum/libreoffice-openoffice-146">Forum LibreOffice / OpenOffice</a>
4 réponses
tu est sensé le faire toute seul .
vous apprener le delphie ...alors t'a qu'a essayer de le faire c pas difficile .
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
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