Sujet - Débutant, besoin d'aide - Liberty Basic France

Christophe

Le 20/02/2016 à 15h05

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Reprise du message précédent

Alors là, c'est original.

Nous ne parlons pas du même programme : j'ai utilisé celui du post de Roland en date du 19/02/16 à 19h17, et ton prog est celui de ton post du 19/02/16 à 18h48, forcément ça peut pas le faire... Pour ton prog je te rassure j'obtiens le même résultat que toi. Chez moi, la touche "retour arrière" est figurée par deux petits carrés, mais pour le reste c'est identique.

pour le message d'erreur "iniFilename not undestood", à mon avis c'est juste le fichier d'initialisation qui n'est pas lu, théoriquement il ne devrait pas y avoir de gêne pour toi tant que tu ne modifie rien dans le menu "setup" de JB.

Revenons à ton programme :

tel qu'il est, il ne peut pas afficher de code morse au delà du "d", tous les caractères au dela de "d"'afficheront rien.
le "if asc(key$)=13" ne marche pas, pour une raison qui reste à déterminer, mais qui est probablement très logique. Le programme s'arrêterait tout seul si la condition fonctionnait : qu'y a-t-il en fin de [B] ?
Code VB :
```
[closeHelp]
    CLOSE  #w
    END
 
```
c'est imparable

On te laisse réfléchir, le temps que je fasse une petite manip pour voir si je m'en sors mieux que toi sur ce coup-là.

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

Christophe

Le 20/02/2016 à 15h36

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Quand il fonctionnera, on pourra chercher à en faire une version "graphique", vu que le code morse est très codifié au niveau de la durée des symboles, et que d'une police de caractère à une autre, l'espacement et la longueur des caractères . et _ peut changer ...

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

pmp

Le 20/02/2016 à 15h55

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

Oui je vais essayer de tous refaire.

Christophe

Le 20/02/2016 à 16h02

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Pour ton prog il y a un truc qui coince. Tu génère les codes morse en fonction du contenu de a$, ça ne marche que pour un a$ d'un seul caractère. Or dans ta boucle tu as une instruction a$=a$+Inkey$, a$ s'agrandit d'un caractère à chaque fois que tu appuie sur une touche, donc rien ne s'affichera.

Pour bien faire en gardant le même système, il faudrait que tu renommes dans [B] tes a$ en b$, et faire un truc du genre
Code VB :

 
'c'est juste une idée à développer, et il faut déjà résoudre le problème du chr$(13) qui ne semble pas détecté

[B]
for b=1 to len(a$)
'(on extrait chaque caractère de a$ pour trouver à quel code morse il correspond)
b$=mid$(a$,b,1)
'ensuite tu mets ta série d'if b$
next
 
a$="" 'on prépare a$ pour la ligne suivante

return    '(en admettant que tu aie changé ton <if asc(key$)=13 then [B]> en <if asc(key$)=13 then gosub [B]>

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

Christophe

Le 20/02/2016 à 16h03

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Citation:

Oui je vais essayer de tous refaire.

Bah non, rend-le simplement opérationnel

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

Christophe

Le 20/02/2016 à 16h24

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Je crois que j'aurais dû analyser davantage avant de poster, j'ai trouvé une autre broutille qui pourrait expliquer que ça marche pas :
Code VB :

 
    Key$=Inkey$
    a$=a$+Inkey$
    If asc(key$)=8 then

asc(key) sera toujours zéro : en Just/Liberty Basic, Key$ est différent de key$, de même, moment$ est différent de mOment$...

Edité par Christophe Le 20/02/2016 à 16h25

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

Christophe

Le 20/02/2016 à 16h50

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Je crois que ça marche :

Code VB :

 
NOMAINWIN
WindowWidth=300
WindowHeight=200
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
 
open "Fenêtre" for graphics AS #w
    GRAPHICBOX #w.m 0, 0, 280, 460
    print #w, "setfocus"
    x=20: y=50
 
    #w "when characterInput [A]"
    #w, "TRAPCLOSE [closeHelp]"
    wait
 
[A]
    Key$=Inkey$
    a$=a$+Key$
 
    If asc(Key$)=8 then a$=left$(a$,(len(a$)-1))
    if asc(Key$)=13 then gosub [B]
 
    if x=200 then x=20: y=y+20
    print #w, "place ";x;" ";y;" ;|";Key$ 
    x=x+12
 
    wait
 
[B]
xm=20
for b=1 to len(a$)
    b$=mid$(a$,b,1)
    print #w, "place ";xm;" ";y+20;" "
    if (  b$="a" ) then print #w,"\.-"
    if (  b$="b" ) then print #w,"\-..."
    if (  b$="c" ) then print #w,"\-.-."
    if (  b$="d" ) then print #w,"\-.."
    if (  b$="e" ) then print #w,"\."
    if (  b$="f" ) then print #w,"\..-."
    if (  b$="g" ) then print #w,"\--."
    if (  b$="h" ) then print #w,"\...."
    if (  b$="i" ) then print #w,"\.."
    if (  b$="j" ) then print #w,"\.---"
    if (  b$="k" ) then print #w,"\-.-"
    if (  b$="l" ) then print #w,"\.-.."
    if (  b$="m" ) then print #w,"\--"
    if (  b$="n" ) then print #w,"\-."
    if (  b$="o" ) then print #w,"\---"
    if (  b$="p" ) then print #w,"\.--."
    if (  b$="q" ) then print #w,"\--.-"
    if (  b$="r" ) then print #w,"\.-."
    if (  b$="s" ) then print #w,"\..."
    if (  b$="t" ) then print #w,"\-"
    if (  b$="u" ) then print #w,"\..-"
    if (  b$="v" ) then print #w,"\...-"
    if (  b$="w" ) then print #w,"\-..-"
    if (  b$="x" ) then print #w,"\-..-"
    if (  b$="y" ) then print #w,"\-.--"
    if (  b$="z" ) then print #w,"\_--.."
    xm=xm+25
next
 
a$="" 'on prépare a$ pour la ligne suivante
return
 
[closeHelp]
    CLOSE  #w
    END

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

pmp

Le 20/02/2016 à 17h59

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

Voila j'ai tous refait

Code VB :

 
NOMAINWIN
WindowWidth=500
WindowHeight=200
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
 
open "Fenêtre" for graphics AS #w
    GRAPHICBOX #w.m 0, 0, 280, 460
    print #w, "setfocus"
    x=20: y=50
    a=20: b=80
 
[DEBUT]
    #w "when characterInput [A]"
    #w, "TRAPCLOSE [closeHelp]"
    wait
[A]
 
 Key$=Inkey$
 a$=a$+Inkey$
 If x=600 then
 x=20: y=y+20
 end if
 If a=500e then
 x=20: y=y+20
 end if
 print #w, "place ";x;" ";y;" ;|";Key$ 
 if (  a$="a" ) then L$=".-"
 if (  a$="b" ) then L$="-..."
 if (  a$="c" ) then L$="-.-."
 if (  a$="d" ) then L$="-.."
 if (  a$="e" ) then L$="."
 if (  a$="f" ) then L$="..-."
 if (  a$="g" ) then L$="--."
 if (  a$="h" ) then L$="...."
 if (  a$="i" ) then L$=".."
 if (  a$="j" ) then L$=".---"
 if (  a$="k" ) then L$="-.-"
 if (  a$="l" ) then L$=".-.."
 if (  a$="m" ) then L$="--"
 if (  a$="n" ) then L$="-."
 if (  a$="o" ) then L$="---"
 if (  a$="p" ) then L$=".--."
 if (  a$="q" ) then L$="--.-"
 if (  a$="r" ) then L$=".-."
 if (  a$="s" ) then L$= "..."
 if (  a$="t" ) then L$="-"
 if (  a$="u" ) then L$="..-"
 if (  a$="v" ) then L$="...-"
 if (  a$="w" ) then L$="-..-"
 if (  a$="x" ) then L$="-..-"
 if (  a$="y" ) then L$="-.--"
 if (  a$="z" ) then L$="--.."
 print #w, "place ";a;" ";b;" ;|";L$ 
 L$=""
 a$=""
 a=a+20
 x=x+12
goto [DEBUT]
 
[closeHelp]
    CLOSE  #w
    END

Edité par pmp Le 21/02/2016 à 15h07

pmp

Le 20/02/2016 à 18h01

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

Merci Christophe je vais étuider ça

pmp

Le 20/02/2016 à 18h25

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

Enfait je pense que je vais devoir tous refaire en écran graphique ..
les deux partie marchent séparément mais pas quand elle sont jointes.
J'espère vous allez comprendre quelque chose ^^, vous pouvez tester la 1er partie en coupant de "NOMAINWIN" jusqu'à
[closeHelp]
CLOSE #w
END

Voila le code qui ne marche pas ^^
Code VB :

 
[Menu]
CLS
Print "                        Entrainement au code Morse"
Print " "
Print "                                   Menu "
Print " "
Print " "
Print " "
Print "       1. Recevoir               2. Transmettre  "
Print "       3. Alphabet               4. Quitter"
Print ""
Print ""
Print""
PRint ""
Print""
Print ""
Print ""
Print""
PRint ""
Print""
Print ""
Print ""
Print""
Print " "
Input "Entrer une nombre et appui sur Entrée :  "; nb
CLS
if ( nb = 1 ) goto [Recevoir]
if ( nb = 2 ) goto [transmettre]
if ( nb = 3 ) goto [Alphabet]
If ( nb = 4 ) goto [stop]
[Alphabet]
Cls
Print "Lettre | Morse | Moyen Mnémotechnique*"
Print ""
Print "   A   | .-    | Arnold, allo, Arlon, Arnaud"
Print "   B   | -...  | Bonaparte"
Print "   C   | -.-.  | Contemporain, Coca-Cola"
Print "   D   | -..   | Do-ré-mi, document"
Print "   E   | .     | Eh"
Print "   F   | ..-.  | Farandole, fanfaronne"
Print "   G   | --.   | Gondole, Gloutonne"
Print "   H   | ....  | Hilarité, hystérique,"
Print "   I   | ..    | Ici, Idriss, Ibis"
Print "   J   | .---  | Jablonovo, j’ai gros bobo "
Print "   K   | -.-   | Kohinor, Korridor,Koalo"
Print "   L   | .-..  | Limonade"
Print "   M   | --    | Moto "
Print "   N   | -.    | Noël"
Print "   O   | ---   | Oh bobo, Opporto"
Print "   P   | .--.  | Phylosophe , philosophie"
Print "   Q   | --.-  | Quoquorico "
Print "   R   | .-.   | Ricoré"
Print "   S   | ...   | Sardine, salade"
Print "   T   | -     | Thon, tôt"
Print "   U   | ..-   | Union"
Print "   V   | ...-  | Valparaiso, végétation"
Print "   W   | .--   | Xagon-post(e), wagon long"
Print "   X   | -..-  | Xochimilco, oxydation"
Print "   Y   | -.--  | Yoshimoto "
Print "   Z   | --..  | Zorro est là "
Print "   .   | .-.-.-| AAA (.-+.-+.-)"
Print "   ,   | --..--| MIM (--+..+--)"
Print "   ?   | ..--..| IMI (..+--+..)"
Print "   !   | -.-.--| AAM (.-+.-+--)"
Print "   (   | -.--. | KN (-.-+-.)"
Print "   )   | -.--.-| KK (-.-+-.-)"
Print ""
Print ""
Print " *Le code morse est facilement mémorisable à l’aide des codes courts et longs  "
Print "  remplacés par des syllabes. Le code long (-) remplacé par une syllabe en [o]."
Print "  Le code court (.) remplacé par une des autres voyelles "
Print ""
Print " Si tu souhaites avoir la liste complète du code morse, c'est ici : "
Print " https://fr.wikipedia.org/wiki/Morse_(alphabet)#Tables_d.E2.80.99encodage "
Print ""
Print ""
Print " Appui sur entrée"
 
input ""; A
goto [Menu]
[Recevoir]
 
a$ = ".-"
b$ = "-..."
c$ = "-.-."
d$ = "-.."
e$ = "."
f$ = "..-."
g$ = "--."
h$ = "...."
i$ = ".."
j$ = ".---"
k$ = "-.-"
l$ = ".-.."
m$ = "--"
n$ = "-."
o$ = "---"
p$ = ".--."
q$ = "--.-"
r$ = ".-."
s$ = "..."
t$ = "-"
u$ = "..-"
v$ = "...-"
w$ = ".--"
x$ = "-..-"
y$ = "-.--"
z$ = "--.."
 
v = 1
 
 
Chiffre = INT(26*RND(1))
 
if ( Chiffre = 1 ) then Lettre$ = ".-"
if ( Chiffre = 2 ) then Lettre$ = "-..."
if ( Chiffre = 3 ) then Lettre$ = "-.-."
if ( Chiffre = 4 ) then Lettre$ = "-.."
if ( Chiffre = 5 ) then Lettre$ = "."
if ( Chiffre = 6 ) then Lettre$ = "..-."
if ( Chiffre = 7 ) then Lettre$ = "--."
if ( Chiffre = 8 ) then Lettre$ = "...."
if ( Chiffre = 9 ) then Lettre$ = ".."
if ( Chiffre = 10 ) then Lettre$ = ".---"
if ( Chiffre = 11 ) then Lettre$ = "-.-"
if ( Chiffre = 12 ) then Lettre$ = ".-.."
if ( Chiffre = 13 ) then Lettre$ = "--"
if ( Chiffre = 14 ) then Lettre$ = "-."
if ( Chiffre = 15 ) then Lettre$ = "---"
if ( Chiffre = 16 ) then Lettre$ = ".--."
if ( Chiffre = 17 ) then Lettre$ = "--.-"
if ( Chiffre = 18 ) then Lettre$ = ".-."
if ( Chiffre = 19 ) then Lettre$ = "..."
if ( Chiffre = 20 ) then Lettre$ = "-"
if ( Chiffre = 21 ) then Lettre$ = "..-"
if ( Chiffre = 22 ) then Lettre$ = "...-"
if ( Chiffre = 23 ) then Lettre$ = "-..-"
if ( Chiffre = 24 ) then Lettre$ = "-..-"
if ( Chiffre = 25 ) then Lettre$ = "-.--"
if ( Chiffre = 26 ) then Lettre$ = "--.."
print  Lettre$;
 
Input "  "; rep$
 
Print  "C'était : ";
 
if ( Chiffre = 1 ) then print "a"
if ( Chiffre = 2 ) then print "b"
if ( Chiffre = 3 ) then print "c"
if ( Chiffre = 4 ) then print "d"
if ( Chiffre = 5 ) then print "e"
if ( Chiffre = 6 ) then print "f"
if ( Chiffre = 7 ) then print "g"
if ( Chiffre = 8 ) then print "h"
if ( Chiffre = 9 ) then print "i"
if ( Chiffre = 10) then print "j"
if ( Chiffre = 11) then print "k"
if ( Chiffre = 12) then print "l"
if ( Chiffre = 13) then print "m"
if ( Chiffre = 14) then print "n"
if ( Chiffre = 15) then print "o"
if ( Chiffre = 16) then print "p"
if ( Chiffre = 17) then print "q"
if ( Chiffre = 18) then print "r"
if ( Chiffre = 19) then print "s"
if ( Chiffre = 20) then print "t"
if ( Chiffre = 21) then print "u"
if ( Chiffre = 22) then print "v"
if ( Chiffre = 23) then print "w"
if ( Chiffre = 24) then print "x"
if ( Chiffre = 25) then print "y"
if ( Chiffre = 26) then print "z"
 
print""
 
Goto [Recevoir]
 
[transmettre]
 
NOMAINWIN
WindowWidth=500
WindowHeight=200
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
 
open "Fenêtre" for graphics AS #w
    GRAPHICBOX #w.m 0, 0, 280, 460
    print #w, "setfocus"
    x=20: y=50
    a=20: b=80
 
[DEBUT]
    #w "when characterInput [A]"
    #w, "TRAPCLOSE [closeHelp]"
    wait
[A]
 
 Key$=Inkey$
 a$=a$+Inkey$
 If x=600 then
 x=20: y=y+20
 end if
 If a=500 then
 x=20: y=y+20
 end if
 print #w, "place ";x;" ";y;" ;|";Key$ 
 if (  a$="a" ) then L$=".-"
 if (  a$="b" ) then L$="-..."
 if (  a$="c" ) then L$="-.-."
 if (  a$="d" ) then L$="-.."
 if (  a$="e" ) then L$="."
 if (  a$="f" ) then L$="..-."
 if (  a$="g" ) then L$="--."
 if (  a$="h" ) then L$="...."
 if (  a$="i" ) then L$=".."
 if (  a$="j" ) then L$=".---"
 if (  a$="k" ) then L$="-.-"
 if (  a$="l" ) then L$=".-.."
 if (  a$="m" ) then L$="--"
 if (  a$="n" ) then L$="-."
 if (  a$="o" ) then L$="---"
 if (  a$="p" ) then L$=".--."
 if (  a$="q" ) then L$="--.-"
 if (  a$="r" ) then L$=".-."
 if (  a$="s" ) then L$= "..."
 if (  a$="t" ) then L$="-"
 if (  a$="u" ) then L$="..-"
 if (  a$="v" ) then L$="...-"
 if (  a$="w" ) then L$="-..-"
 if (  a$="x" ) then L$="-..-"
 if (  a$="y" ) then L$="-.--"
 if (  a$="z" ) then L$="--.."
 print #w, "place ";a;" ";b;" ;|";L$ 
 L$=""
 a$=""
 a=a+20
 x=x+12
goto [DEBUT]
 
[closeHelp]
    CLOSE  #w
 
 
[stop]
stop

Edité par pmp Le 21/02/2016 à 14h44

Christophe

Le 21/02/2016 à 10h52

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

pmp:

Voila j'ai tous refait

Et en plus court, Nickel, donc. Mais toujours ces [DEBUT]... ...[goto DEBUT]. Une marque de fabrique ? ^^

pmp:

Enfait je pense que je vais devoir tous refaire en écran graphique ..
les deux partie marchent séparément mais pas quand elle sont jointes.

J'ai testé la partie texte, c'est pas mal pour un début. Cependant on choisit un peu au hasard : les premières fois on ne sait pas trop ce que signifient Emission ou Réception (il faut brancher un récepteur ?) Quand on est en lecture, on ne trouve pas la touche pour sortir de l'apprentissage et revenir au menu.

Toujours dans le même mode, on aimerait aussi que la question suivante en cas d'échec soit la même, pour qu'on puisse rectifier en notre esprit avant de passer au caractère suivant. Cependant, le principal est d'apprendre à créer le logiciel, tu verra après pour l'ergonomie.

"La réponce était : " la phrase se répétant à chaque question, il y a un phénomène d'apprentissage à relire toujours la même phrase, il est toujours bon dans ce cas de faire attention à l'orthographe, "Réponse" s'écrit avec un "s"

(Edite ton post, il y a un "e" qui s'est invité à la ligne If a=500e then)

Pour le reste c'est pas mal. Il serait assez logique de faire tes deux parties soit en mode texte, soit en mode graphique. Je n'ai pas encore regardé en quoi tes deux parties sont incompatibles.

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

pmp

Le 21/02/2016 à 14h58

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

Mmh ! Merci beaucoup !! Maintenant mon programme marche et en entier j'ai trouver le problème (c'était le NOMAINWIN) voila j'ai modifié beaucoup de petite choses, regarde par toi même la différence entre les deux programme.
J'entend par Recevoir le faite de d'avoir du Code morse et de le décoder en lettre. Et j'entend par Transmettre le faite rentrer dans le programme des lettre et qu'il me les retranscrive en code Morse.
Je trouve que c'est pas mal pour une première fois ^^ merci beaucoup
Il reste des choses a faire comme sur la partie "Transmettre" avec La touche DEl ^^

Code VB :

 
[Menu]
v=0
CLS
Print "                        Entrainement au code Morse"
Print " "
Print "                                   Menu "
Print " "
Print " "
Print " "
Print "       1. Recevoir               2. Transmettre  "
Print "       3. Alphabet               4. Quitter"
Print ""
Print ""
Print""
PRint ""
Print""
Print ""
Print ""
Print""
PRint ""
Print""
Print ""
Print ""
Print""
Print " "
Input "Entrer le nombre correspondant et appui sur Entrée :  "; nb
CLS
if ( nb = 1 ) goto [Recevoir]
if ( nb = 2 ) goto [transmettre]
if ( nb = 3 ) goto [Alphabet]
If ( nb = 4 ) goto [stop]
[Alphabet]
Cls
Print "Lettre | Morse | Moyen Mnémotechnique*"
Print ""
Print "   A   | .-    | Arnold, allo, Arlon, Arnaud"
Print "   B   | -...  | Bonaparte"
Print "   C   | -.-.  | Contemporain, Coca-Cola"
Print "   D   | -..   | Do-ré-mi, document"
Print "   E   | .     | Eh"
Print "   F   | ..-.  | Farandole, fanfaronne"
Print "   G   | --.   | Gondole, Gloutonne"
Print "   H   | ....  | Hilarité, hystérique,"
Print "   I   | ..    | Ici, Idriss, Ibis"
Print "   J   | .---  | Jablonovo, j’ai gros bobo "
Print "   K   | -.-   | Kohinor, Korridor,Koalo"
Print "   L   | .-..  | Limonade"
Print "   M   | --    | Moto "
Print "   N   | -.    | Noël"
Print "   O   | ---   | Oh bobo, Opporto"
Print "   P   | .--.  | Phylosophe , philosophie"
Print "   Q   | --.-  | Quoquorico "
Print "   R   | .-.   | Ricoré"
Print "   S   | ...   | Sardine, salade"
Print "   T   | -     | Thon, tôt"
Print "   U   | ..-   | Union"
Print "   V   | ...-  | Valparaiso, végétation"
Print "   W   | .--   | Xagon-post(e), wagon long"
Print "   X   | -..-  | Xochimilco, oxydation"
Print "   Y   | -.--  | Yoshimoto "
Print "   Z   | --..  | Zorro est là "
Print "   .   | .-.-.-| AAA (.-+.-+.-)"
Print "   ,   | --..--| MIM (--+..+--)"
Print "   ?   | ..--..| IMI (..+--+..)"
Print "   !   | -.-.--| AAM (.-+.-+--)"
Print "   (   | -.--. | KN (-.-+-.)"
Print "   )   | -.--.-| KK (-.-+-.-)"
Print ""
Print ""
Print " *Le code morse est facilement mémorisable à l’aide des codes courts et longs  "
Print "  remplacés par des syllabes. Le code long (-) remplacé par une syllabe en [o]."
Print "  Le code court (.) remplacé par une des autres voyelles "
Print ""
Print " Si tu souhaites avoir la liste complète du code morse, c'est ici : "
Print " https://fr.wikipedia.org/wiki/Morse_(alphabet)#Tables_d.E2.80.99encodage "
Print ""
Print ""
Print " Appui sur entrée"
 
input ""; A
goto [Menu]
[Recevoir]
If v=20 then [Menu]
a$ = ".-"
b$ = "-..."
c$ = "-.-."
d$ = "-.."
e$ = "."
f$ = "..-."
g$ = "--."
h$ = "...."
i$ = ".."
j$ = ".---"
k$ = "-.-"
l$ = ".-.."
m$ = "--"
n$ = "-."
o$ = "---"
p$ = ".--."
q$ = "--.-"
r$ = ".-."
s$ = "..."
t$ = "-"
u$ = "..-"
v$ = "...-"
w$ = ".--"
x$ = "-..-"
y$ = "-.--"
z$ = "--.."
 
 
 
Chiffre = INT(26*RND(1))
 
if ( Chiffre = 1 ) then Lettre$ = ".-"
if ( Chiffre = 2 ) then Lettre$ = "-..."
if ( Chiffre = 3 ) then Lettre$ = "-.-."
if ( Chiffre = 4 ) then Lettre$ = "-.."
if ( Chiffre = 5 ) then Lettre$ = "."
if ( Chiffre = 6 ) then Lettre$ = "..-."
if ( Chiffre = 7 ) then Lettre$ = "--."
if ( Chiffre = 8 ) then Lettre$ = "...."
if ( Chiffre = 9 ) then Lettre$ = ".."
if ( Chiffre = 10 ) then Lettre$ = ".---"
if ( Chiffre = 11 ) then Lettre$ = "-.-"
if ( Chiffre = 12 ) then Lettre$ = ".-.."
if ( Chiffre = 13 ) then Lettre$ = "--"
if ( Chiffre = 14 ) then Lettre$ = "-."
if ( Chiffre = 15 ) then Lettre$ = "---"
if ( Chiffre = 16 ) then Lettre$ = ".--."
if ( Chiffre = 17 ) then Lettre$ = "--.-"
if ( Chiffre = 18 ) then Lettre$ = ".-."
if ( Chiffre = 19 ) then Lettre$ = "..."
if ( Chiffre = 20 ) then Lettre$ = "-"
if ( Chiffre = 21 ) then Lettre$ = "..-"
if ( Chiffre = 22 ) then Lettre$ = "...-"
if ( Chiffre = 23 ) then Lettre$ = "-..-"
if ( Chiffre = 24 ) then Lettre$ = "-..-"
if ( Chiffre = 25 ) then Lettre$ = "-.--"
if ( Chiffre = 26 ) then Lettre$ = "--.."
 
print  Lettre$;
 
Input " ";rep$
Print "C'était ";
 
if ( Chiffre = 1 ) then print "a"
if ( Chiffre = 2 ) then print "b"
if ( Chiffre = 3 ) then print "c"
if ( Chiffre = 4 ) then print "d"
if ( Chiffre = 5 ) then print "e"
if ( Chiffre = 6 ) then print "f"
if ( Chiffre = 7 ) then print "g"
if ( Chiffre = 8 ) then print "h"
if ( Chiffre = 9 ) then print "i"
if ( Chiffre = 10) then print "j"
if ( Chiffre = 11) then print "k"
if ( Chiffre = 12) then print "l"
if ( Chiffre = 13) then print "m"
if ( Chiffre = 14) then print "n"
if ( Chiffre = 15) then print "o"
if ( Chiffre = 16) then print "p"
if ( Chiffre = 17) then print "q"
if ( Chiffre = 18) then print "r"
if ( Chiffre = 19) then print "s"
if ( Chiffre = 20) then print "t"
if ( Chiffre = 21) then print "u"
if ( Chiffre = 22) then print "v"
if ( Chiffre = 23) then print "w"
if ( Chiffre = 24) then print "x"
if ( Chiffre = 25) then print "y"
if ( Chiffre = 26) then print "z"
v=1+v
print v;
Print "/20"
Print ""
 
Goto [Recevoir]
 
[transmettre]
 
WindowWidth=1000
WindowHeight=200
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
 
open "Fenêtre" for graphics AS #w
    GRAPHICBOX #w.m 0, 0, 280, 460
    print #w, "setfocus"
    x=20: y=50
    a=20: b=80
 
[DEBUT]
    #w "when characterInput [A]"
    #w, "TRAPCLOSE [closeHelp]"
    wait
[A]
 
 Key$=Inkey$
 a$=a$+Inkey$
 If x=1000 then
 x=20: y=y+20
 end if
 If a=500 then
 x=20: y=y+20
 end if
 print #w, "place ";x;" ";y;" ;|";Key$ 
 if (  a$="a" ) then L$=".-"
 if (  a$="b" ) then L$="-..."
 if (  a$="c" ) then L$="-.-."
 if (  a$="d" ) then L$="-.."
 if (  a$="e" ) then L$="."
 if (  a$="f" ) then L$="..-."
 if (  a$="g" ) then L$="--."
 if (  a$="h" ) then L$="...."
 if (  a$="i" ) then L$=".."
 if (  a$="j" ) then L$=".---"
 if (  a$="k" ) then L$="-.-"
 if (  a$="l" ) then L$=".-.."
 if (  a$="m" ) then L$="--"
 if (  a$="n" ) then L$="-."
 if (  a$="o" ) then L$="---"
 if (  a$="p" ) then L$=".--."
 if (  a$="q" ) then L$="--.-"
 if (  a$="r" ) then L$=".-."
 if (  a$="s" ) then L$= "..."
 if (  a$="t" ) then L$="-"
 if (  a$="u" ) then L$="..-"
 if (  a$="v" ) then L$="...-"
 if (  a$="w" ) then L$="-..-"
 if (  a$="x" ) then L$="-..-"
 if (  a$="y" ) then L$="-.--"
 if (  a$="z" ) then L$="--.."
 print #w, "place ";a;" ";b;" ;|";L$ 
 L$=""
 a$=""
 a=a+20
 x=x+20
goto [DEBUT]
 
[closeHelp]
Close #w
goto [Menu]
 
[stop]
stop

Edité par pmp Le 21/02/2016 à 15h08

Roland

Le 21/02/2016 à 21h41

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2204

Il y aura certainement moyen de faire entendre le code morse
Il faudra pour cela mettre le code .bas dans un dossier avec deux .wav; un son long et un court
On eut aussi tricher en faisant des silence longs ou courts
Le dossier, il faudra le compresser (avec "Izarc" ou "Zip Genius" (gratos les deux)).
Et mettre le zip dans ton espace de stockage (que tu peux visiter en cliquant sur: "Mon Profil" (barre noire en haut de page)

____________________
Roro

Christophe

Le 22/02/2016 à 00h33

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Good job !

L'étape suivante, et non des moindres, consiste à faire une représentation graphique fidèle des symboles morse dans la fenêtre de transmission : la valeur de 3 points entre chaque lettre, un point entre chaque points et traits d'une lettre, 7 points entre deux mots (à vérifier, ce 7). Pas si difficile à première vue, mais pas simple non plus quand on débute. Partant ?

Edité par Christophe Le 22/02/2016 à 00h33

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

pmp

Le 22/02/2016 à 17h47

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

Mmh Christophe pour une représentation graphique je suis d'avis de le faire toute a la fin, quand tous sera Okey
Roland Comment je peut faire pour déclencher un fichier zip (dans ce cas ci deux, un pour les ta(-) et un pour les ti (.)
Et comment faire pour supprimer un caractère j'ai beau chercher dans mon coin je ne trouve rien

ps: je ne vous ai peut être pas dit mais je suis scout (précisément Scout Unitaire de France) et je fais ce petit programme car j’adore le morse et le codage ^^ et je pourrais l'envoyer aux membres de la troupe pour les aider a apprendre le code Morse

Encore merci a vous.

Edité par pmp Le 22/02/2016 à 17h49

Roland

Le 22/02/2016 à 18h44

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2204

Pour faire un zip, il faut que tu en ai déjà un;tu peux prendre celui là:
( GameMaker.zip)
Tu télécharge "Izarc" sur le net et tu l'installe
Dans l'interface, tu fais: "Fichiers et: "nouvelle archive" (ça t'ouvre l'explorateur de fichiers) tu va au zip que tu a téléchargé et tu fais "ouvrir" (on te demande si tu veux le remplacer, tu dis:Oui)
ça te réouvre l'explorateur; tu va au dossier que tu veux compresser et tu fais "ouvrir".
Tu renomme le zip en fonction de ce qu'il contient à présent.

Mais pour l'instant, tu n'a pas besoin de faire un zip
Tes "." et tes "-" sont dans le code et ils y sont très bien
Quand tu aura fait la procédure de sauvegarde (si tu la fais), tu pourra sauvegarder des messages dans des fichiers texte (.txt), qui seront dans le fameux dossier (dans lequel on mets aussi des .bmp si besoin).
Je vais essayer de retrouver le topic qui explique la manip de stockage ici.

____________________
Roro

Christophe

Le 22/02/2016 à 22h58

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

pmp:

pour une représentation graphique je suis d'avis de le faire toute a la fin

Comme tu le sens, c'est là le gros avantage du loisir, et il faut que ça reste un loisir.

pmp:

comment faire pour supprimer un caractère

code=8. If asc(Key$)=8. On l'a déjà traité plus haut, mais on n'a pas repris la fonctionnalité dans les programmes suivants.

En gros :
- dans la fenetre graphique, on recule d'un caractère : on retire le pas à x, on dessine avec la couleur de fond un rectangle qui couvre le caractère et le code morse correspondant, et on affiche le nouveau caractère à la place.
- dans la chaîne qui stocke les caractères, on fait a$=left$(a$,(len(a$)-1)).

Voili

Edité par Christophe Le 22/02/2016 à 23h06

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

pmp

Le 23/02/2016 à 12h36

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

J'ai modifé la partie graphique dites moi ce que vous en pensez, mais j'ai bien mis le if pour la touche del mais sa ne marche pas.
Code VB :

 
[Menu]
v=0
CLS
Print "                        Entrainement au code Morse"
Print " "
Print "                                   Menu "
Print " "
Print " "
Print " "
Print "       1. Recevoir               2. Transmettre  "
Print "       3. Alphabet               4. Quitter"
Print ""
Print ""
Print""
PRint ""
Print""
Print ""
Print ""
Print""
PRint ""
Print""
Print ""
Print ""
Print""
Print " "
Input "Entrer le nombre correspondant et appui sur Entrée :  "; nb
CLS
if ( nb = 1 ) goto [Recevoir]
if ( nb = 2 ) goto [transmettre]
if ( nb = 3 ) goto [Alphabet]
If ( nb = 4 ) goto [stop]
[Alphabet]
Cls
Print "Lettre | Morse | Moyen Mnémotechnique*"
Print ""
Print "   A   | .-    | Arnold, allo, Arlon, Arnaud"
Print "   B   | -...  | Bonaparte"
Print "   C   | -.-.  | Contemporain, Coca-Cola"
Print "   D   | -..   | Do-ré-mi, document"
Print "   E   | .     | Eh"
Print "   F   | ..-.  | Farandole, fanfaronne"
Print "   G   | --.   | Gondole, Gloutonne"
Print "   H   | ....  | Hilarité, hystérique,"
Print "   I   | ..    | Ici, Idriss, Ibis"
Print "   J   | .---  | Jablonovo, j’ai gros bobo "
Print "   K   | -.-   | Kohinor, Korridor,Koalo"
Print "   L   | .-..  | Limonade"
Print "   M   | --    | Moto "
Print "   N   | -.    | Noël"
Print "   O   | ---   | Oh bobo, Opporto"
Print "   P   | .--.  | Phylosophe , philosophie"
Print "   Q   | --.-  | Quoquorico "
Print "   R   | .-.   | Ricoré"
Print "   S   | ...   | Sardine, salade"
Print "   T   | -     | Thon, tôt"
Print "   U   | ..-   | Union"
Print "   V   | ...-  | Valparaiso, végétation"
Print "   W   | .--   | Xagon-post(e), wagon long"
Print "   X   | -..-  | Xochimilco, oxydation"
Print "   Y   | -.--  | Yoshimoto "
Print "   Z   | --..  | Zorro est là "
Print "   .   | .-.-.-| AAA (.-+.-+.-)"
Print "   ,   | --..--| MIM (--+..+--)"
Print "   ?   | ..--..| IMI (..+--+..)"
Print "   !   | -.-.--| AAM (.-+.-+--)"
Print "   (   | -.--. | KN (-.-+-.)"
Print "   )   | -.--.-| KK (-.-+-.-)"
Print ""
Print ""
Print " *Le code morse est facilement mémorisable à l’aide des codes courts et longs  "
Print "  remplacés par des syllabes. Le code long (-) remplacé par une syllabe en [o]."
Print "  Le code court (.) remplacé par une des autres voyelles "
Print ""
Print " Si tu souhaites avoir la liste complète du code morse, c'est ici : "
Print " https://fr.wikipedia.org/wiki/Morse_(alphabet)#Tables_d.E2.80.99encodage "
Print ""
Print ""
Print " Appui sur entrée"
 
input ""; A
goto [Menu]
[Recevoir]
If v=20 then [Menu]
a$ = ".-"
b$ = "-..."
c$ = "-.-."
d$ = "-.."
e$ = "."
f$ = "..-."
g$ = "--."
h$ = "...."
i$ = ".."
j$ = ".---"
k$ = "-.-"
l$ = ".-.."
m$ = "--"
n$ = "-."
o$ = "---"
p$ = ".--."
q$ = "--.-"
r$ = ".-."
s$ = "..."
t$ = "-"
u$ = "..-"
v$ = "...-"
w$ = ".--"
x$ = "-..-"
y$ = "-.--"
z$ = "--.."
 
 
 
Chiffre = INT(26*RND(1))
 
if ( Chiffre = 1 ) then Lettre$ = ".-"
if ( Chiffre = 2 ) then Lettre$ = "-..."
if ( Chiffre = 3 ) then Lettre$ = "-.-."
if ( Chiffre = 4 ) then Lettre$ = "-.."
if ( Chiffre = 5 ) then Lettre$ = "."
if ( Chiffre = 6 ) then Lettre$ = "..-."
if ( Chiffre = 7 ) then Lettre$ = "--."
if ( Chiffre = 8 ) then Lettre$ = "...."
if ( Chiffre = 9 ) then Lettre$ = ".."
if ( Chiffre = 10 ) then Lettre$ = ".---"
if ( Chiffre = 11 ) then Lettre$ = "-.-"
if ( Chiffre = 12 ) then Lettre$ = ".-.."
if ( Chiffre = 13 ) then Lettre$ = "--"
if ( Chiffre = 14 ) then Lettre$ = "-."
if ( Chiffre = 15 ) then Lettre$ = "---"
if ( Chiffre = 16 ) then Lettre$ = ".--."
if ( Chiffre = 17 ) then Lettre$ = "--.-"
if ( Chiffre = 18 ) then Lettre$ = ".-."
if ( Chiffre = 19 ) then Lettre$ = "..."
if ( Chiffre = 20 ) then Lettre$ = "-"
if ( Chiffre = 21 ) then Lettre$ = "..-"
if ( Chiffre = 22 ) then Lettre$ = "...-"
if ( Chiffre = 23 ) then Lettre$ = "-..-"
if ( Chiffre = 24 ) then Lettre$ = "-..-"
if ( Chiffre = 25 ) then Lettre$ = "-.--"
if ( Chiffre = 26 ) then Lettre$ = "--.."
 
print  Lettre$;
 
Input " ";rep$
Print "C'était ";
 
if ( Chiffre = 1 ) then print "a"
if ( Chiffre = 2 ) then print "b"
if ( Chiffre = 3 ) then print "c"
if ( Chiffre = 4 ) then print "d"
if ( Chiffre = 5 ) then print "e"
if ( Chiffre = 6 ) then print "f"
if ( Chiffre = 7 ) then print "g"
if ( Chiffre = 8 ) then print "h"
if ( Chiffre = 9 ) then print "i"
if ( Chiffre = 10) then print "j"
if ( Chiffre = 11) then print "k"
if ( Chiffre = 12) then print "l"
if ( Chiffre = 13) then print "m"
if ( Chiffre = 14) then print "n"
if ( Chiffre = 15) then print "o"
if ( Chiffre = 16) then print "p"
if ( Chiffre = 17) then print "q"
if ( Chiffre = 18) then print "r"
if ( Chiffre = 19) then print "s"
if ( Chiffre = 20) then print "t"
if ( Chiffre = 21) then print "u"
if ( Chiffre = 22) then print "v"
if ( Chiffre = 23) then print "w"
if ( Chiffre = 24) then print "x"
if ( Chiffre = 25) then print "y"
if ( Chiffre = 26) then print "z"
v=1+v
print v;
Print "/20"
Print ""
 
Goto [Recevoir]
 
[transmettre]
 
WindowWidth=1100
WindowHeight=500
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
 
open "Fenêtre" for graphics AS #w
    GRAPHICBOX #w.m 0, 0, 280, 460
    print #w, "setfocus"
    x=20: y=50
    a=550: b=50
 
[DEBUT]
    #w "when characterInput [A]"
    #w, "TRAPCLOSE [closeHelp]"
    wait
[A]
 
 Key$=Inkey$
 a$=a$+Inkey$
  If asc(Key$)=8 then
  a$=left$(a$,(len(a$)-1))
  end if
 
 If x=500 then
 x=20: y=y+20
 end if
 If a=1050 then
 a=550: b=b+20
 end if
 print #w, "place ";x;" ";y;" ;|";Key$ 
 if (  a$="a" ) then L$=".-/"
 if (  a$="b" ) then L$="-.../"
 if (  a$="c" ) then L$="-.-./"
 if (  a$="d" ) then L$="-../"
 if (  a$="e" ) then L$="./"
 if (  a$="f" ) then L$="..-./"
 if (  a$="g" ) then L$="--./"
 if (  a$="h" ) then L$="..../"
 if (  a$="i" ) then L$="../"
 if (  a$="j" ) then L$=".---/"
 if (  a$="k" ) then L$="-.-/"
 if (  a$="l" ) then L$=".-../"
 if (  a$="m" ) then L$="--/"
 if (  a$="n" ) then L$="-./"
 if (  a$="o" ) then L$="---/"
 if (  a$="p" ) then L$=".--./"
 if (  a$="q" ) then L$="--.-/"
 if (  a$="r" ) then L$=".-./"
 if (  a$="s" ) then L$= ".../"
 if (  a$="t" ) then L$="-/"
 if (  a$="u" ) then L$="..-/"
 if (  a$="v" ) then L$="...-/"
 if (  a$="w" ) then L$="-..-/"
 if (  a$="x" ) then L$="-..-/"
 if (  a$="y" ) then L$="-.--/"
 if (  a$="z" ) then L$="--../"
 print #w, "place ";a;" ";b;" ;|";L$ 
 L$=""
 a$=""
 a=a+20
 x=x+12
goto [DEBUT]
[closeHelp]
Close #w
goto [Menu]
 
[stop]
stop

Christophe

Le 23/02/2016 à 15h41

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 599

Salutations du début de l'après-midi,

pmp, j'ai l'impression que tu es en train de nager. Je préconisais left$(a$,(len(a$)-1)), mais il fallait l'adapter à ton code, d’où ma formulation un peu familière "En gros :" . En fait, tu as aussi un a$ dans la partie [Recevoir] et qui vaut ".-", il y a un risque d'interférence. De même, le a$ qui nous intéresse n'est utilisé nulle part. La touche "del" est bien détectée, mais ça ne débouche sur rien.

D'ailleurs à ce sujet, Roland si t'es dans les parages, j'ai constaté qu'a$ ne contenait que le dernier caractère entré, alors qu'on a bien a$=a$+inkey$ et que je ne vois nulle part d'instruction qui viderait a$, la frappe devrait s'ajouter. J'ai pas trouvé l'origine de cette singularité.

pmp, en fait il n'y a pas besoin de a$. Quand on appuie sur "del" on recule d'un pas et on efface le caractère affiché, pareil pour le code morse. C'était dans une autre version que la frappe clavier était enregistrée dans a$. Tu rédiges le sous-programme qui fait ça, ou tu préfères voir un résultat fini ?

Pour ce qui est de la présentation sur le forum, met ton code dans la balise code=VB et /code, ce sera mieux.

Prend l'habitude d'être clair dans la rédaction du code, n'écris pas :
Code VB :

 
Key$=Inkey$
a$=a$+Inkey$
If asc(Key$)=8 then
a$=left$(a$,(len(a$)-1))
end if
 
If x=500 then
x=20: y=y+20
end if
If a=1050 then
a=550: b=b+20
end if
print #w, "place ";x;" ";y;" ;|";Key$

écris plutôt :
Code VB :

 
Key$=Inkey$	'saisie clavier
a$=a$+Inkey$	'au fait, pourquoi une deuxième fois Inkey$ alors que tu as déjà Key$ ?

If asc(Key$)=8 then a$=left$(a$,(len(a$)-1))	'effacer le dernier caractère
If x=500 then x=20 : y=y+20	'coordonnées affichage du caractère
If a=1050 then a=550 : b=b+20	'coordonnées affichage du code morse

print #w, "place ";x;" ";y;" ;|";Key$

De même, utilise les tabulations :
Code VB :

 
 
if trucmuche=1 then
    instruction 1
    instruction 2
    instruction 3
else
    instruction 4
    instruction 5
end if
 
for a=0 to max
    faire ceci
    faire cela
    if b$="125" then
	c=27
	d=3*d
    end if
next

Pour revenir au code morse, la barre de fraction à la fin du symbole morse pique les yeux, c'est pas du morse, ou c'est un détail que je ne connais pas.

Il faudra aussi ajouter les chiffres. Une petite difficulté supplémentaire puisqu'il y a pour un même chiffre une version courte et une version longue.

____________________
Just BASIC v2.0 :

utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

pmp

Le 23/02/2016 à 19h30

Libertynaute Timide

Groupe: Membre

Inscrit le: 15/02/2016
Messages: 27

A oui mince c’est vrais que j'ai fait n'importe quoi, quand je met :
If asc(Key$)=8 then
a$=left$(a$,(len(a$)-1))
Ça ne marche pas, je pense c'est parce que je ne dois pas utiliser a$ mais une autre variable, mais quand j'essaye avec Key$ (ma var d'affichage des L$) sa ne marche .. Je me suis trompé a quel moment ?

Edité par pmp Le 24/02/2016 à 16h12

Roland

Le 23/02/2016 à 20h00

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2204

Citation:

Roland si t'es dans les parages

Je suis là, mais j'étais parti sur ma version avec tableau(x), et je dois avouer que les listes de "if" de pmp me donnent un peu le tournis.

____________________
Roro

Forum Liberty Basic France