MARRE DES JEUX HANOI SANS LES SOLUTIONS :)

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

• JOYSTICK , MANETTE GESTION EXEMPLE
• PUISSANCE DE 2 : CALCUL
• ADRESSE IP PAR L'API WINSOCK
• VALIDATION XML
• CREATION DE FORM PAR API

• [VB2005] DÉMINEUR
• BILLARD "INSPIRÉ DU YAHOO POOL"
• JEU DU CISEAUX
• DEMINEUR TRES FACILE
• JEU DE WUMPUS BASIC EN VB6