Exercice a resoudre en code vb

geniboy Messages postés 80 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 13 mai 2012 - 7 déc. 2007 à 17:31
pym - 21 févr. 2008 à 18:38

Bonjour,
vous pouvez m'aidé à resoudre cet exercice (code vb)
ecrire le programme du jeu du pendu.
le principe est le suivant:
un premier joueur choisit un mot de de moin 10 lettres.
le programme affiche _ _ _ _ _ _ avec _ par lettres.
le 2eme joueur propose des lettres jusqu'à ce qu'il ait trouvé le mot ou qu'il soit pendu(11 erreus commises )

A voir également:

Exercice a resoudre en code vb
Code ascii - Guide
Comment déverrouiller un téléphone quand on a oublié le code - Guide
Code puk bloqué - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

6 réponses

Réponse 1 / 6

geniboy Messages postés 80 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 13 mai 2012 7
9 déc. 2007 à 00:51

comment faire pour ne pas affichre le mat lors de la saisie
mercie

voila le programme

Dim i, j, k, b, f, h, s, q, n As Int16
Dim mot As String
Dim a, p As Char
Console.WriteLine("entrez un mot!!!")
mot = CType(Console.ReadLine, String)
Dim t1 As Array = Array.CreateInstance(GetType(String), mot.Length)
Dim t2 As Array = Array.CreateInstance(GetType(String), mot.Length)
Dim t3 As Array = Array.CreateInstance(GetType(String), mot.Length)
For i = 0 To mot.Length - 1
t2(i) = "*" + " "
t1(i) = "*" + " "
Console.Write(t1(i))
Next
For i = 0 To mot.Length - 1
a = mot.Chars(i)
For j = (i + 1) To mot.Length - 1
If a = mot.Chars(j) Then

s = s + 1

End If
Next
Next
Console.WriteLine()
Console.WriteLine("vous avez" & " " & mot.Length - s & " " & "propositions")
Console.WriteLine()
Console.WriteLine("entrez une proposition")
Do
b = 0
p = CType(Console.ReadLine, Char)
Console.WriteLine()
For j = 0 To mot.Length - 1
a = mot.Chars(j)
If p + " " = t1(j) Then
Console.WriteLine("cette proposition est déjà entrer")
End If
If p + " " = t1(j) And q = mot.Length - 1 Then
Exit Do
End If
If a = p Then
t1(j) = p + " "
q = q + 1
End If
Console.Write(t1(j))
Next
For k = 0 To mot.Length - 1
If t1(k) = t2(k) Then
b = b + 1
End If
Next
If b = mot.Length Then
Console.WriteLine()
Console.WriteLine("ce caractaire n'est pas là")
f = f + 1
End If
If q = mot.Length Or mot.Length - f = 0 Then
Exit Do
End If
Console.WriteLine()
Console.WriteLine("vous avez" & " " & mot.Length - (f + s) & " " & "propositions")
Console.WriteLine()
Console.WriteLine("entrez une autre proposition")
For b = 0 To mot.Length - 1
t2(b) = t1(b)
Next
Loop
If q = mot.Length Then
Console.WriteLine()
Console.WriteLine()
Console.WriteLine("BRAVO VOUS AVEZ REUSSEZ")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(Chr(9) + Chr(9) + Chr(9) + Chr(9) & "fin du jeu")
Else
Console.WriteLine()
Console.WriteLine("DESOLE")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(Chr(9) + Chr(9) + Chr(9) + Chr(9) & "fin du jeu")
End If
Console.readline()

Réponse 2 / 6

pym
21 févr. 2008 à 18:38

moi aussi j'ai le même problème. est-ce que c'est possible qu'on me l'envoie. svp. c'est urgent.

Réponse 3 / 6

geniboy Messages postés 80 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 13 mai 2012 7
7 déc. 2007 à 20:01

j'attent

Réponse 4 / 6

jeram
25 déc. 2007 à 15:48

Salut moi aussi je dois faire un jeu comme tu a fais.
Est ce que tu pourrai m'envoyé ton programme complet pour que je puisse voir a quoi correspond chaque ligne et comment tu a structuré le dessin.
Cela me permettrai de me débloqué.
Merci d'avance.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

geniboy Messages postés 80 Date d'inscription samedi 30 juin 2007 Statut Membre Dernière intervention 13 mai 2012 7
27 déc. 2007 à 22:22

Console.Title = "MOHAMED ELHADIM"

Dim mot, lettre, rep, B(), D(), T(10) As String
Dim i, j, k, l, e, f As Int32

Do
f = 0
Console.SetWindowSize(80, 25)
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Premièr joueur : ")
Console.WriteLine("Veuillez choisir un mot de moins de 10 lttres : ")
Console.ForegroundColor = ConsoleColor.Black
mot = CType(Console.ReadLine, String)
mot = mot.ToLower
mot = mot.Trim
Console.ForegroundColor = ConsoleColor.White

ReDim B(mot.Length)
ReDim D(mot.Length)

For i = 0 To mot.Length - 1
B(i) = "_"
D(i) = mot.Chars(i)
Next
For i = 0 To mot.Length - 1
Console.Write(B(i) & " ")
Next
Console.WriteLine()
Console.WriteLine()

i = 0
For j = 0 To 10
Console.WriteLine()
Console.WriteLine("Deuxièm joueur")
Console.WriteLine("Entrer votre lettre propoesée : ")
lettre = CType(Console.ReadLine, Char)
lettre = lettre.ToLower
lettre = lettre.Trim
l = 0
For i = 0 To mot.Length - 1
If D(i) = lettre Then
Console.WriteLine()
If l = 0 Then
Console.WriteLine("C'est une correcte proposition")
Console.WriteLine("Nombre d'erreurs : " & f)
l = 1
End If
B(i) = B(i).Replace("_", lettre)
For k = 0 To mot.Length - 1
e = B(k).IndexOf("_")
If e = 0 Then
Exit For
End If
Next
End If
Next
If l = 0 Then
f = f + 1
Console.WriteLine()
Console.WriteLine("Non, c'est une lettre incorrecte")
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("Il vous reste " & 10 - j & " chances")
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Nombre d'erreurs : " & f)
End If
i = 0
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.Yellow
For i = 0 To mot.Length - 1
Console.Write(B(i) & " ")
Next
Console.ForegroundColor = ConsoleColor.White
i = 0
If e = 0 Then
Console.WriteLine()
Console.WriteLine()
Console.Write("Les lettre déjà annoncées : ")
Console.ForegroundColor = ConsoleColor.Green
For i = 0 To 10
t(j) = lettre
Console.Write(t(i) & " ")
Next
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine()
End If
If e < 0 And l = 1 Then
Console.WriteLine()
Console.WriteLine()
Console.BackgroundColor = ConsoleColor.Red
Console.ForegroundColor = ConsoleColor.Green
Console.WindowHeight = 8
Console.WriteLine("Vous avez gagné")
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine()
Console.WriteLine("Le mot recherché est : ")
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine(mot.ToUpper)
Exit For
End If
Next
If e = 0 Then
Console.WriteLine()
Console.WriteLine()
Console.WindowHeight = 5
Console.ForegroundColor = ConsoleColor.Magenta
Console.WriteLine(" Vous êtes pendu ")
End If
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Voulez vous recommencer : ")
rep = CType(Console.ReadLine, String)
rep = rep.ToLower
Console.Clear()
Loop Until rep = "n" Or rep = "non"
Console.ReadLine()

Réponse 6 / 6

lulululula Messages postés 1 Date d'inscription mardi 15 janvier 2008 Statut Membre Dernière intervention 15 janvier 2008
15 janv. 2008 à 13:11

saluuut tout le monde
en fait j'ai le même problème que jéram
exam du jeu du pendu
donc si quelqu'un pouvait me l'envoyer, ce serait vraiment gentil
d'avance un IMMENSE merci!!!

Discussions similaires

Erreur a531 orange

sertissage des cables rj45

Code de renvoi d'appel : Ooredo, Mobilis...

Votre réponse

Discussions similaires