[83] traducteur morse français
2 participants
Page 1 sur 1
[83] traducteur morse français
vous avez surement lu sur le site le dossier musique sur la Ti.
le programme que propose alexis n'est pas le meilleur, (moi j'utilise piano83 [Vous devez être inscrit et connecté pour voir ce lien] mais il suffit largement a envoyer des petits bips répétitifs (oui à la place de mettre des écouteurs sur la Ti vous mettez un haut parleur) pour transmettre des messages en morse.
mais pour ceux qui connaissent pas le morse?
et bien voilà un traducteur.
[Vous devez être inscrit et connecté pour voir ce lien]
le programme que propose alexis n'est pas le meilleur, (moi j'utilise piano83 [Vous devez être inscrit et connecté pour voir ce lien] mais il suffit largement a envoyer des petits bips répétitifs (oui à la place de mettre des écouteurs sur la Ti vous mettez un haut parleur) pour transmettre des messages en morse.
mais pour ceux qui connaissent pas le morse?
et bien voilà un traducteur.
[Vous devez être inscrit et connecté pour voir ce lien]
- Spoiler:
:Menu("TRADUCTEUR MORSE","FRANCAIS>MORSE",1,"MORSE>FRANCAIS",2
:Lbl 1
:""→Str5
:ClrHome
:Disp "----------------
:Input "MESSAGE ?",Str1
:length(Str1→L
:Output(4,3,"TRADUCTION...
:For(A,1,L
:sub(Str1,A,1→Str2
:If Str2="A
:".-→Str4
:If Str2="B
:"-...→Str4
:If Str2="C
:"-.-.→Str4
:If Str2="D
:"-..→Str4
:If Str2="E
:".→Str4
:If Str2="F
:"..-.→Str4
:If Str2="G
:"--.→Str4
:If Str2="H
:"....→Str4
:If Str2="I
:"..→Str4
:If Str2="J
:".---→Str4
:If Str2="K
:"-.-→Str4
:If Str2="L
:".-..→Str4
:If Str2="M
:"--→Str4
:If Str2="N
:"-.→Str4
:If Str2="O
:"---→Str4
:If Str2="P
:".--.→Str4
:If Str2="Q
:"--.-→Str4
:If Str2="R
:".-.→Str4
:If Str2="S
:"...→Str4
:If Str2="T
:"-→Str4
:If Str2="U
:"..-→Str4
:If Str2="V
:"...-→Str4
:If Str2="W
:".--→Str4
:If Str2="X
:"-..-→Str4
:If Str2="Y
:"-.--→Str4
:If Str2="Z
:"--..→Str4
:If Str2="
:""→Str4
:If Str2="0
:"-----→Str4
:If Str2="1
:".----→Str4
:If Str2="2
:"..---→Str4
:If Str2="3
:"...--→Str4
:If Str2="4
:"....-→Str4
:If Str2="5
:".....→Str4
:If Str2="6
:"-....→Str4
:If Str2="7
:"--...→Str4
:If Str2="8
:"---..→Str4
:If Str2="9
:"----.→Str4
:If length(Str4:Then
:If length(Str5):Then
:Str5+Str4→Str5
:Else
:Str4→Str5
:End
:End
:Str5+"/"→Str5
:Output(8,1,A
:Output(8,8,"/
:Output(8,9,L
:End
:ClrHome
:Pause Str5
:ClrHome
:DelVar Str2
:DelVar Str1
:DelVar Str5
:DelVar Str4
:Stop
:Lbl 2
:ClrHome
:Disp "----------------
:""→Str5
:Input "MESSAGE ?",Str1
:Output(4,4,"ANALYSE...
:0→L:1→dim(L1
:0→L1(1
:0→R
:For(A,1,length(Str1
:
:If sub(Str1,A,1)="/
:Then
:L+1→L
:If L1(1
:A-L-R→L1(L
:If not(L1(1
:A-1→L1(1
:L1(L)+R→R
:End
:Output(8,1,A
:Output(8,8,"/
:Output(8,9,length(Str1
:End
:L+1→L:ClrHome
:A-R-L→L1(L
:Output(4,4,"TRADUCTION..
:0→L
:For(A,1,length(Str1
:L+1→L
:Output(8,1,A
:Output(8,8,"/
:Output(8,9,length(Str1
:If L1(L:Then
:sub(Str1,A,L1(L))→Str2
:Else
:"/"→Str2
:End
:A+L1(L)→A
:If Str2=".-
:"A→Str4
:If Str2="-...
:"B→Str4
:If Str2="-.-.
:"C→Str4
:If Str2="-..
:"D→Str4
:If Str2=".
:"E→Str4
:If Str2="..-.
:"F→Str4
:If Str2="--.
:"G→Str4
:If Str2="....
:"H→Str4
:If Str2="..
:"I→Str4
:If Str2=".---
:"J→Str4
:If Str2="-.-
:"K→Str4
:If Str2=".-..
:"L→Str4
:If Str2="--
:"M→Str4
:If Str2="-.
:"N→Str4
:If Str2="---
:"O→Str4
:If Str2=".--.
:"P→Str4
:If Str2="--.-
:"Q→Str4
:If Str2=".-.
:"R→Str4
:If Str2="...
:"S→Str4
:If Str2="-
:"T→Str4
:If Str2="..-
:"U→Str4
:If Str2="...-
:"V→Str4
:If Str2=".--
:"W→Str4
:If Str2="-..-
:"X→Str4
:If Str2="-.--
:"Y→Str4
:If Str2="--..
:"Z→Str4
:If Str2="/
:" →Str4
:If Str2="-----
:"0→Str4
:If Str2=".----
:"1→Str4
:If Str2="..---
:"2→Str4
:If Str2="...--
:"3→Str4
:If Str2="....-
:"4→Str4
:If Str2=".....
:"5→Str4
:If Str2="-....
:"6→Str4
:If Str2="--...
:"7→Str4
:If Str2="---..
:"8→Str4
:If Str2="----.
:"9→Str4
:If length(Str5:Then
:Str5+Str4→Str5
:Else
:Str4→Str5
:End
:End:ClrHome
:Pause Str5
:DelVar Str1
:DelVar Str2
:DelVar Str4
:DelVar Str5
:ClrHome
Dernière édition par persalteas le Ven 31 Déc - 9:58, édité 1 fois
persalteas- Platinum 2
- Sexe :
Age : 28
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :- - TI-Basic Z80
- - xLib
- - Grammer
- - TI-Basic Nspire
- - TI-82 Stats.fr
- - TI-83
- - TI-83+
- - TI-84+ SE
- - TI-86
- - TI-Nspire
- - TI-Nspire CX
- - Casio Collège
- - Casio Graph
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|