Discussion :

[LONQUEUX]

Bonjour,

Je crée un petit programme, le jeu du PENDU.

Je demande les lettres à découvrir avec la fonction input n$, mais......
quand je tape un e la lettre n' est pas prise en compte. cela marche avec les autres lettres !!??

Quelqu'un a -t-il constaté ce phénomène ?

[antec12]

bojour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
'Un Petit Test Pour Input
cls
PRINT "Test INPUT N$ : Pour une lettre"
INPUT "Une Lettre "; n$
PRINT 
PRINT "Lettre = "; n$
---------------------------------------
'le mot est en MAJUSCULES : mot = "BONJOUR"
'si le mot est en MINUSCULES : mot = "bonjour"
'si le mot est MAJUSCULES ET MINUSCULES : mot = "Bonjour"
CLS
a$ = "BONJOUR": a1 = LEN(a$): '(nobre de lettre dans le mot)
c$ = STRING$(a1, "-")
PRINT a$
10 REM
IF c$ = a$ THEN :  PRINT  :  PRINT "fin le mot est "; c$: END
PRINT "mot en"; a1; "lettre "; c$
INPUT "Une Lettre "; n$
' test la lettre
FOR b1 = 1 TO a1
IF n$ = MID$(a$, b1, 1) THEN GOSUB 100
NEXT b1
b1 = 0
if k=0 then k=0 : PRINT :GOSUB 200
IF k = 1 THEN k = 0 :  PRINT : GOTO 10
END
100 REM
MID$(c$, b1, 1) = n$: k = 1
RETURN
end
200rem
PRINT"ERRUER DE LETTRE"
l$=l$+n$
PRINT l$
RETURN