[83] traducteur morse français

Voir le sujet précédent Voir le sujet suivant Aller en bas

[83] traducteur morse français

Message par persalteas le Ven 3 Sep - 7:18

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]


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

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
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
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [83] traducteur morse français

Message par Alexis le Ven 3 Sep - 16:27

Cool. Cool

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [83] traducteur morse français

Message par AlexRider38 le Ven 3 Sep - 16:38

oui

AlexRider38
Or 4
Or 4

Sexe : Masculin
Age : 19
Messages : 579
Date d'inscription : 11/07/2010
Etudes : Lycéen
Points Forum : -10
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - Axe Parser
  • - TI-Basic Nspire
  • - Lua Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-Collège
  • - TI-80
  • - TI-82
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr
  • - TI-Nspire CAS
  • - TI-Nspire CX

TI-84 Pocket.fr


Revenir en haut Aller en bas

Re: [83] traducteur morse français

Message par Contenu sponsorisé Aujourd'hui à 2:23


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum