FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» I Love You
par JL35 Hier à 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Morse

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

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Morse   Dim 16 Déc 2012 - 18:06

Code:
'--------------------------------------------------------------------
' Morse code - MORSE.BAS
'--------------------------------------------------------------------

' Initialisation
CAPTION 0,"Convertisseur de message en morse"
DIM A%,L%,CODE$(122),MESSAGE$

'--------------------------------------------------------------------
' Chargement de la table de correspondance ASCII / Morse
FOR A% = 32 TO 122
  READ CODE$(A%)
NEXT A%

' Interface utilisateur, demande du message à traduire
INPUT "Veullez saisir votre message : "; MESSAGE$
PRINT : PRINT
PRINT "Ce qui donne en Morse : " : PRINT

' Traduction des codes ASCII par les codes morses et affichage
L% = LEN(MESSAGE$)
FOR A% = 1 TO L%
  PRINT CODE$(ASC(MID$(MESSAGE$,A%,1)));" ";
NEXT A%
PRINT :PRINT
END
' ------------------------------------------------------------------


' Données pour la correspondance ASCII / Morse
DATA " ","!","|","#","$","%","&","'","(",")",".","+",",","-","  ","/"
DATA "-----",".----","..---","...--","....-",".....","-....","--...","---..","----."
DATA ":",";","<","=",">","?","@"
DATA ".-","-...","-.-.","-..",".","..-.","--.","....","..",".---","-.-",".-..","--"
DATA "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."
DATA "[","\","]","^","_","'"
DATA "._", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--"
DATA "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Morse   Dim 16 Déc 2012 - 19:10

Salut Jicehel.

Bravo Morse !
Ligne 1, 3,9 : tu as omis l’espace séparant l’apostrophe du REM du reste des lignes : d’où ERREUR !
Ligne 16 : Je n’aime pas INPUT : cette instruction (vestige du basic !) n’admet pas le caractère espace.

Es-tu devenu nostalgique du basic du précédent millénaire ?!

Booh ! C’est trop facile pour toi de remédier à ces remarques : je te laisse faire.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Morse   Dim 16 Déc 2012 - 21:18

Pour l'input, ok, j'avoue, j'ai eu recours à la facilité, et aussi j'ai voulu faire quelques sources super simples pour nos amis qui débutent, afin qu'ils soient très simples à comprendre. Mais par contre, pour les espaces, je suis innocent, ils ont dû être mangés par le copié/collé, sinon ça aurait fait une erreur chez moi aussi... Mais bon ça n’empêche qu'en effet, il faut les rajouter dans le source founit sur le forum.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Morse   Dim 16 Déc 2012 - 21:25

Tout ça c'est bien, mais il manque les sons!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Morse   Dim 16 Déc 2012 - 22:05

Bon pour les sons, ce n'est pas bien compliqué, mais je laisse quelqu'un d'autre le coder s'il le souhaite. Par contre pour les "input", je fais une version plus moderne avec des fenêtres de saisie et d'affichage des résultat comme ça les nouveaux peuvent voir comment transformer l'ancienne méthode avec tout dans une fenêtre avec les méthodes plus actuelles s'ils le souhaitent.

Code:
' --------------------------------------------------------------------
' Morse code - MORSE.BAS
' --------------------------------------------------------------------

' --------------------------------------------------------------------
' Initialisation
LABEL coder, recommencer, quitter
DIM    A%,L%,CODE$(122),MESSAGE$
CAPTION 0,"Convertisseur de message en morse"
'
' --------------------------------------------------------------------
' Chargement de la table de correspondance ASCII / Morse
FOR A% = 32 TO 122
  READ CODE$(A%)
NEXT A%
'
' --------------------------------------------------------------------
' Interface utilisateur, demande du message à traduire
FORM 100:LEFT 100,100:TOP 100,100:WIDTH 100,400:HEIGHT 100,140:CAPTION 100,"MESSAGE A CODER EN MORSE"
COMMAND_TARGET_IS 100
ALPHA  110:LEFT 110,10 :TOP 110,10:CAPTION 110,"Indiquez votre message à coder en morse :"
EDIT  120:LEFT 120,10 :TOP 120,30:WIDTH 120,360
BUTTON 130:LEFT 130,50 :TOP 130,60:CAPTION 130,"CODER"  : ON_CLICK 130, coder
BUTTON 140:LEFT 140,155:TOP 140,60:CAPTION 140,"ANNULER": ON_CLICK 140, recommencer
BUTTON 150:LEFT 150,260:TOP 150,60:CAPTION 150,"QUITTER": ON_CLICK 150, quitter
FORM 200:HIDE 200 : LEFT 200,100:TOP 200,100:WIDTH 200,400:HEIGHT 200,140:CAPTION 200,"MESSAGE CODE EN MORSE"
COMMAND_TARGET_IS 200
ALPHA  210:LEFT 210,10 :TOP 210,10:CAPTION 210,"Le message codé en morse est :"
ALPHA  220:LEFT 220,10 :TOP 220,30:WIDTH 220,280
BUTTON 230:LEFT 230,50 :TOP 230,60:CAPTION 230,"NOUVEAU"  :ON_CLICK 230,recommencer
BUTTON 240:LEFT 240,135:TOP 240,60:CAPTION 240,"QUITTER":ON_CLICK 240,quitter
COMMAND_TARGET_IS 100
END

coder:
' --------------------------------------------------------------------
' Traduction des codes ascii par les codes morses et affichage
  HIDE 100
  MESSAGE$ = "" : L% = LEN(TEXT$(120))
  FOR A% = 1 TO L%
      MESSAGE$ = MESSAGE$ + CODE$(ASC(MID$(TEXT$(120),A%,1))) + " "
  NEXT A%
  CAPTION 220, MESSAGE$ : SHOW 200
RETURN
' ------------------------------------------------------------------

recommencer:
' ---------------------------------------------------------------------
' Réafficher la fenêtre pour saisir un nouveau message à coder en morse
  HIDE 200 : TEXT 120, "" : SHOW 100 : SET_FOCUS 120
RETURN
' --------------------------------------------------------------------

quitter:
Terminate

' --------------------------------------------------------------------
' Données pour la correspondance Ascii / Morse
DATA " ","!","|","#","$","%","&","'","(",")",".","+",",","-","  ","/"
DATA "-----",".----","..---","...--","....-",".....","-....","--...","---..","----."
DATA ":",";","<","=",">","?","@"
DATA ".-","-...","-.-.","-..",".","..-.","--.","....","..",".---","-.-",".-..","--"
DATA "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."
DATA "[","\","]","^","_","'"
DATA "._", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--"
DATA "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."
' --------------------------------------------------------------------
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Morse   Lun 17 Déc 2012 - 0:24

Ça c’est du Basic New look ! c.à.d. du PANORAMIC !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Morse   Lun 17 Déc 2012 - 4:33

Pour le son : ça y est.
Vous pouvez télécharger à partir de mon WebDav le fichier : Morse.Zip
J’ai repris le code de Jicehel auquel j’ai ajouté les modifications qui sont repérées par des REM Papydall.
Adaptez la variable rep$ en ligne 12.

REMARQUE :
1) Quant on écoute une phrase, le dernier caractère (lettre ou chiffre) est prononcé !
2) Le programme tel quel n’émet des sons que pour les lettres et les chiffres.
Les autres signes (espace comprise) sont ignorés.
Vous pouvez les prendre en considérations (leur sons sont présents dans la liste) en modifiant le sous-programme ecouter.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1086
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Morse   Lun 17 Déc 2012 - 11:43

Bonjour à tous Very Happy ,
@ Papydall,
Pourquoi se compliquer la vie avec tout un tas de fichiers mp3. En se servant des instructions midi et d'un instrument adéquat, on peut faire à peu près la même chose!
J'ai juste rajouté un dim i et changé ta procédure écouter comme ceci:
Code:
ecouter:
midi_on
midi_instrument 74
L%= len(text$(120))
  FOR A% = 1 TO L%
      c$=CODE$(asc(mid$(text$(120),a%,1)))
      for i=1 to len(c$)
          if mid$(c$,i,1)="." then midi_play 81,10
          if mid$(c$,i,1)="-" then midi_play 81,9
          pause 100
      next i
      pause 300
  next A%
midi_off
return
Bien sur, les pause 100 et 300 sont à ajuster au goût de chacun...
Chose amusante également, essayer avec des numéros d'instrument différent!
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Morse   Lun 17 Déc 2012 - 13:53

Salut Bignono.

Décidément j’ai essayé d'écraser une mouche par une tour !
Quelle idée pour passer par une tonne de fichiers en MP3 quand c’est ultra simple de faire autrement ?
Mais je ne suis pas BIG comme Bignono. D’ailleurs, je n’ai jamais rien compris en musique !


Voici le code de Jicehel que j’ai modifié en tenant compte de la solution de Bignono
Code:
' --------------------------------------------------------------------
' Morse code - MORSE.BAS
' --------------------------------------------------------------------

' --------------------------------------------------------------------
' Initialisation
LABEL coder, recommencer, quitter,ecouter
DIM A%,L%,CODE$(122),MESSAGE$,c$,i
CAPTION 0,"Convertisseur de message en morse"
'
' --------------------------------------------------------------------
' Chargement de la table de correspondance ASCII / Morse
FOR A% = 32 TO 122
  READ CODE$(A%)
NEXT A%
'
' --------------------------------------------------------------------
' Interface utilisateur, demande du message à traduire
FORM 100:LEFT 100,100:TOP 100,100:WIDTH 100,400:HEIGHT 100,140:CAPTION 100,"MESSAGE A CODER EN MORSE"
alpha  260:left 260,170 :top 260,30 : hide 260
caption 260,"Seuls les chiffres et les lettres peuvent être écoutés!"
COMMAND_TARGET_IS 100
ALPHA  110:LEFT 110,10 :TOP 110,10:CAPTION 110,"Indiquez votre message à coder en morse :"
EDIT  120:LEFT 120,10 :TOP 120,30:WIDTH 120,360
text 120, "Salut tout le monde"
BUTTON 130:LEFT 130,50 :TOP 130,60:CAPTION 130,"CODER"  : ON_CLICK 130, coder
BUTTON 140:LEFT 140,155:TOP 140,60:CAPTION 140,"ANNULER": ON_CLICK 140, recommencer
BUTTON 150:LEFT 150,260:TOP 150,60:CAPTION 150,"QUITTER": ON_CLICK 150, quitter
FORM 200:HIDE 200 : LEFT 200,100:TOP 200,100:WIDTH 200,400:HEIGHT 200,240:CAPTION 200,"MESSAGE CODE EN MORSE"
COMMAND_TARGET_IS 200
ALPHA  210:LEFT 210,10 :TOP 210,10
ALPHA  220:LEFT 220,10 :TOP 220,30:WIDTH 220,280 :height 220,240
BUTTON 230:LEFT 230,50 :TOP 230,160:CAPTION 230,"NOUVEAU":ON_CLICK 230,recommencer
BUTTON 240:LEFT 240,135:TOP 240,160:CAPTION 240,"QUITTER":ON_CLICK 240,quitter
button 250:left 250,220:top 250,160:caption 250,"ECOUTER":on_click 250,ecouter

COMMAND_TARGET_IS 100
END

coder:
' --------------------------------------------------------------------
' Traduction des codes ascii par les codes morses et affichage
  HIDE 100
  MESSAGE$ = "" : L% = LEN(TEXT$(120))
  FOR A% = 1 TO L%
      MESSAGE$ = MESSAGE$ + CODE$(ASC(MID$(TEXT$(120),A%,1))) + " "
  NEXT A%
  CAPTION 210,text$(120)+" ===> EN MORSE :"
  CAPTION 220, MESSAGE$ : SHOW 200 : show 260
RETURN
' ------------------------------------------------------------------

recommencer:
' ---------------------------------------------------------------------
' Réafficher la fenêtre pour saisir un nouveau message à coder en morse
  HIDE 200 : TEXT 120, "" : SHOW 100 : SET_FOCUS 120
RETURN
' --------------------------------------------------------------------

quitter:
Terminate


' -------------------------------------------------------------------
ecouter:
midi_on
midi_instrument 70 : ' à modifier
L%= len(text$(120))
  FOR A% = 1 TO L%
      c$=CODE$(asc(mid$(text$(120),a%,1)))
      for i=1 to len(c$)
          if mid$(c$,i,1)="." then midi_play 81,10
          if mid$(c$,i,1)="-" then midi_play 81,9
          pause 100
      next i
      pause 300
  next A%
midi_off
return
' ------------------------------------------------------------------------------
' Données pour la correspondance Ascii / Morse
DATA " ","!","|","#","$","%","&","'","(",")",".","+",",","-","  ","/"
DATA "-----",".----","..---","...--","....-",".....","-....","--...","---..","----."
DATA ":",";","<","=",">","?","@"
DATA ".-","-...","-.-.","-..",".","..-.","--.","....","..",".---","-.-",".-..","--"
DATA "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."
DATA "[","\","]","^","_","'"
DATA "._", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--"
DATA "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--.."
' --------------------------------------------------------------------
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Morse   Lun 17 Déc 2012 - 16:21

Excellent, je teste ça se soir Wink Merci pour cette amélioration très sympa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1086
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Morse   Mar 18 Déc 2012 - 11:10

Bonjour à tous Smile
Dans la procédure écouter, j'ai modifié midi_play 81,10 et midi_play 81,9 en:
midi_play int(rnd(13)+72),10 et midi_play int(rnd(13)+72),9
Le résultat est étonnant! Du morse musical qui n'a plus rien à voir avec le morse!
Se servir du morse pour faire de la musique aléatoire! lol!
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Morse   Mar 18 Déc 2012 - 12:11

Gloups, j'ai oublié de tester hier soir, j'y remédierais ce soir (Si j'y pense Wink )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Morse   Ven 21 Déc 2012 - 3:39

Bravo pour la procédure écouter, ça rend vraiment bien Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Morse   

Revenir en haut Aller en bas
 
Morse
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Un manipulateur morse

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: