Forum Liberty Basic France
• Index
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 :
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à.
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Oui je vais essayer de tous refaire.
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 :
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Citation:
Bah non, rend-le simplement opérationnel
Oui je vais essayer de tous refaire.
Bah non, rend-le simplement opérationnel

____________________
Just BASIC v2.0 :
utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
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 :
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
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Je crois que ça marche :
Code VB :
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
Voila j'ai tous refait 
Code VB :
Edité par pmp Le 21/02/2016 à 15h07

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
Merci Christophe je vais étuider ça

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 :
Edité par pmp Le 21/02/2016 à 14h44
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
pmp:
Et en plus court, Nickel, donc. Mais toujours ces [DEBUT]... ...[goto DEBUT]. Une marque de fabrique ? ^^
pmp:
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.
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.
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
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 :
Edité par pmp Le 21/02/2016 à 15h08
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
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)
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
Roro
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
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
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 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
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.
( 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
Roro
pmp:
Comme tu le sens, c'est là le gros avantage du loisir, et il faut que ça reste un loisir.
pmp:
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
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
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 :
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
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 :
écris plutôt :
Code VB :
De même, utilise les tabulations :
Code VB :
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.
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 occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc
Just BASIC v2.0 :
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
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
Citation:
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.
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
Roro
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie