Bonjour
je devais réaliser ce programme:
On veut programmer le jeu "Pile ou face". L’utilisateur entre son choix [le programme demande à l’utilisateur de saisir] qui est comparé au choix fait au hasard par l'ordinateur. Si les deux valeurs sont égales l'utilisateur a gagné. Programmer dix [n] réalisations de ce jeu.
Voila ce que j'ai fais (ca marche) :
Sub pile()
Dim x As Integer
Dim i As Integer
Dim score As Integer
Dim p As String, q As String
score = 0
For i = 1 To 10
x = Int((Rnd * 2)) + 1
If x = 1 Then
p = "pile"
Else
p = "face"
End If
q = InputBox("Rentrez pile ou face")
If p = q Then
MsgBox ("bonne réponse")
score = score + 1
Else
MsgBox ("mauvaise réponse")
End If
Next
MsgBox ("vous avez gagner" & " " & score & " " & "fois")
End Sub
On me demande alors: "Modifier l'exercice précédent pour que maintenant le jeu s'arrête soit lorsque l'utilisateur répond "non" à une question posée soit lorsque le nombre de réalisations de ce jeu dépasse 10 "
Mais la je vois pas quoi rajouter ? ?
je devais réaliser ce programme:
On veut programmer le jeu "Pile ou face". L’utilisateur entre son choix [le programme demande à l’utilisateur de saisir] qui est comparé au choix fait au hasard par l'ordinateur. Si les deux valeurs sont égales l'utilisateur a gagné. Programmer dix [n] réalisations de ce jeu.
Voila ce que j'ai fais (ca marche) :
Sub pile()
Dim x As Integer
Dim i As Integer
Dim score As Integer
Dim p As String, q As String
score = 0
For i = 1 To 10
x = Int((Rnd * 2)) + 1
If x = 1 Then
p = "pile"
Else
p = "face"
End If
q = InputBox("Rentrez pile ou face")
If p = q Then
MsgBox ("bonne réponse")
score = score + 1
Else
MsgBox ("mauvaise réponse")
End If
Next
MsgBox ("vous avez gagner" & " " & score & " " & "fois")
End Sub
On me demande alors: "Modifier l'exercice précédent pour que maintenant le jeu s'arrête soit lorsque l'utilisateur répond "non" à une question posée soit lorsque le nombre de réalisations de ce jeu dépasse 10 "
Mais la je vois pas quoi rajouter ? ?