Programme qui devine le nombre auquel vous pensez (VBA)

Version imprimable

Bonjour à tous,
alors voilà je suis nouvelle dans le monde de l'informatique et je m'adresse à vous parce que je dois créer ce programme sous Virtual Basic qui me pose problème :

« Le programme qui lit dans vos pensées en 10 questions.
Ecrire le programme qui vous demande de penser à un nombre entre 1 et 999,
- propose une valeur (le milieu d’un certain intervalle [min, max[ contenant la solution),
- attend que vous répondiez à l’aide des signes ">" et "<" si le nombre est « plus grand ou égal» ou
« strictement plus petit »,
- restreint l’intervalle des possibilités en fonction de la réponse,
- relance le processus d’interrogation jusqu’à réduire l’intervalle [min, max[ à un seul élément : le
nombre recherché. »

J'ai essayé de faire quelques trucs mais je n'y arrives pas :(
J'ai ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub COMPTER() Dim n As Integer Dim i As Integer Dim s As String MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. " i = 500 s = InputBox("Est-il supérieur à" & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)") If s <> ">" Or s <> "<" Then MsgBox "Erreur de caractère. Tapez < ou >" Else End If While (s = "<") Max = i i = (Min + Max) / 2 s = InputBox("Est-il supérieur ou égal à " & i & "(Tapez >) ou inférieur à " & i & "(Tapez <)") Wend While (s = ">") i = Min i = (Min + Max) / 2 s = InputBox("Est-il supérieur ou égal à " & i & "(Tapez >) ou inférieur à " & i & "(Tapez <)") Wend MsgBox n End Sub
Je sais qu'il faut que je fasse une boucle mais je ne maitrise pas assez ça ne doit pas être comme cela qu'il faut la faire, je suis perdue je sais plus quoi faire !

Voilà, je vous remercie de votre aide.

25/11/2012, 15h20
patricktoulon
bonjour

moi j'ai plus simple je vais voir mme irma

et pour être sérieux en combien de temps ton programme doit trouver:mouarf::mouarf::mouarf:

ton premier chiffre est 500 donc 499 possibilités le tout réduit en fonction des réponse "< ou>"

ça n'est pas deviner ça s'appelle une opération a 1 inconnu

au plaisir

je pourrais même ajouter que une seule boucle suffirait

boucler sur le string"< ou>"
et dans la boucle
Code:

1 2 if reponse ="<" then max=i if reponse=">" then min=i
forcement ça te réduirait l’écart du bon résultat

Une variante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    Select Case S
        Case "": Exit Sub
        Case ">": Min = i
        Case "<": Max = i
        Case "=": Exit Do
        Case Else: MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End Select
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

25/11/2012, 15h37
Ihaveadream

Citation:

Envoyé par patricktoulon

bonjour

moi j'ai plus simple je vais voir mme irma

et pour etre serieux en combien de tems ton programme doit trouver:mouarf::mouarf::mouarf:

ton premier chiffre est 500 donc 499 possibilités le tout reduit en fonction des reponse"< ou>"

c'a n'est pas deviner ca s'appelle une operation a 1 inconu

au plaisir

^^ Ce n'est pas moi qui est fait cet énoncé, mais mes professeurs,
D'accord je vais essayer cette boucle merci !

@mercatog Merci beaucoup mais je ne connais pas la fonction "case" à quoi sert - elle ?

bonjour mercatog

Citation:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    Select Case S
        Case "": Exit Sub
        Case ">": Min = i
        Case "<": Max = i
        Case "=": Exit Do
        Case Else: MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End Select
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

pour que ca soit du tonnerre il faudrais remplacer

Code:

Case "=": Exit Do

par un truc du genre dans la boucle

Code:

if min+1=max then exit do

juste pour avoir l'ilusion qu'il a trouver tout seul:mouarf::mouarf:

et pour rendre un peu plus rapide incrementer i par un truc du genre

Code:

(rnd*max)+min

25/11/2012, 15h48
Ihaveadream
Citation:
Envoyé par patricktoulon

je pourrais meme ajouter que une seule boucle suffirait

boucler sur le string"< ou>"
et dans la boucle

Code:

1 2 if reponse ="<" then max=i if reponse=">" then min=i

forcement ca te reduirais l'ecart du bon resultat
Euh je n'ai pas compris quelle serait alors la condition de la boucle ?

Tant que s <> "=" ??
25/11/2012, 15h53
patricktoulon

re

re
si la reponse est "="

tu donne le resultat donc ca n'est pas un pseudo devinage tu donne la reponse

en testant le max et min au moins pour le dernier tour c'est l'appli qui te donne le resultat

et utiliser la fonction "rnd" peut te permettre l'acceleration du processuset d'ajouter un peu de suspense unpeu comme au juste prix a la fin quand le candidat doit trouver le prix de la vitrine :mouarf::mouarf: plutot qu'utilise ine incrementaion de 1 a chaque fois

a tu compris ?

@Ihaveadream
Regarde l'aide sur Select Case, c'est plus approprié dans le cas de plusieurs conditions au lieu des If Then
Tu pourras faire le même code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub COMPTER()
Dim i As Integer, Max As Integer, Min As Integer
Dim S As String
 
MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. "
i = 500
Max = 1000
Do
    S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)")
    If S = "" Then
        Exit Sub
    ElseIf S = ">" Then
        Min = i
    ElseIf S = "<" Then
        Max = i
    ElseIf S = "=" Then
        Exit Do
    Else
        MsgBox "Erreur de caractère. Tapez < ou > ou ="
    End If
    i = (Max + Min) / 2
Loop
MsgBox "Bingo, le nombre deviné est " & i
End Sub

Citation:

Envoyé par patricktoulon

re
si la reponse est "="

tu donne le resultat donc ca n'est pas un pseudo devinage tu donne la reponse

en testant le max et min au moins pour le dernier tour c'est l'appli qui te donne le resultat

et utiliser la fonction "rnd" peut te permettre l'acceleration du processuset d'ajouter un peu de suspense unpeu comme au juste prix a la fin quand le candidat doit trouver le prix de la vitrine :mouarf::mouarf: plutot qu'utilise ine incrementaion de 1 a chaque fois

a tu compris ?

Ok donc en gros je dois enlever le signe "=" , c'est vrai que c'est logique !
Que veut dire "incrémenter" ? ^^:oops:
Citation:
Envoyé par mercatog
@Ihaveadream
Regarde l'aide sur Select Case, c'est plus approprié dans le cas de plusieurs conditions au lieu des If Then
Tu pourras faire le même code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub COMPTER() Dim i As Integer, Max As Integer, Min As Integer Dim S As String MsgBox "Pensez à un chiffre entre 1 et 999." & vbCr & "Je vais le deviner. " i = 500 Max = 1000 Do S = InputBox("Est-il supérieur à " & i & " (Tapez >), égal à " & i & " (Tapez =) ou inférieur à " & i & " (Tapez <)") If S = "" Then Exit Sub ElseIf S = ">" Then Min = i ElseIf S = "<" Then Max = i ElseIf S = "=" Then Exit Do Else MsgBox "Erreur de caractère. Tapez < ou > ou =" End If i = (Max + Min) / 2 Loop MsgBox "Bingo, le nombre deviné est " & i End Sub
D'accord je pense avoir compris, mais n'y aurait t - il pas un moyen avec "while" parce qu'en fait on nous a donné cela en exercice d'application du cours sur les boucles ^^.

25/11/2012, 16h11
Ihaveadream
En testant j'ai remarquer que quoi que je mette il s'affiche "erreur de caractère ... " même quand je mets ">" "<" :question: :question:
Code:

1 2 3 4 If s <> ">" Or s <> "<" Then MsgBox "Erreur de caractère. Tapez < ou >" Exit Sub End If
25/11/2012, 16h44
droggo

Qia,

Il faut rendre le programme un peu moins stupide dans ses réponses, et le faire travailler comme un humain traitant ce problème : vive la dichotomie ! :)
25/11/2012, 16h51
patricktoulon

re

je viens de faire quelque essai

et dans tout les cas

il faut garder le "=" car etant donner que j'utilise "rnd" on peu tres bien tomber sur le bon avant d'avoir un min qui a la bonne valeur +1 ou pareil pour le max

tordu ton truc

si c'est un proff qui t'a demander ce travail soit il sait tres bien que tu va arriver au meme resultat que moi
soit il a besoins de vacances:mouarf::mouarf:

au mieux si on concidere que c'est l'appli qui doit deviner sans le "egal"
on peut arriver a 3 possibilites (min,min+1,min+2)
mais on a toujours la possibilité de tomber sur le bon avant
26/12/2012, 13h05
Ihaveadream

Merci à tous pour votre aide.
(Désolé pour le up du coup :s)