A voir également:
- Algorithme
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Algorithme euromillion excel gratuit - Forum Algorithmes / Méthodes
- Algorithme ajout rapide snapchat - Forum Snapchat
- Ajout rapide snap - Forum Snapchat
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
