CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 27 14:38:32

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CODE MORSE

Information sur la source

Note :
Aucune note

Catégorie :Divers Classé sous :Code morse, nombre chaîne, nombre caractère Niveau :Débutant Date de création :21/12/2010 Date de mise à jour :22/12/2010 14:05:16 Vu / téléchargé :2 627 / 120

Auteur : SanDum

Ecrire un message privé

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

C'est un code qui transforme une phrase en code morse. Il y a une fonction que j'ai créé qui permet de calculer le nombre de lettre dans la phrase, j'en avais trouvé aucune qui fonctionnait vraiment bien ( elle compte aussi les espaces, mais peu-être modifié facilement).
Si vous ne voulez pas télécharger de code, j'ai collé le tout ci-dessous et la fonction est a la fin.

Source

TForm1 *Form1;
AnsiString Phrase, Phrase2;
int NbDeLettre(AnsiString); //Fonction qui calcul le nombre de lettre dans le string
int Nb, Long, Court;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(Edit1->Text=="") // Vérifie si EditBox est vide
{ Timer1->Enabled=false;
return;
}
else
{
Nb=0; // Prend ce qu'il y a dans l'editbox
Phrase=Edit1->Text; // et retourne le nb de lettre dans l'AnsiString
Edit3->Text=NbDeLettre(Phrase);
Timer1->Enabled=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if ( Nb==Edit3->Text) // Si Nb = au nombre de lettre , timer arrete
{
Timer1->Enabled=false;
return;
}
else
{
Nb++; // sinon Nb augmente est passe les lettres une par une
Phrase2 =Phrase[Nb];
}
if( Phrase2=="a")
{
Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="b")
{
Beep(1500,900);Beep(1500,500);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="c")
{
Beep(1500,900);Beep(1500,500);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="d")
{
Beep(1500,900);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="e")
{
Beep(1500,500);
}
if( Phrase2=="f")
{
Beep(1500,500);Beep(1500,500);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="g")
{
Beep(1500,900);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="h")
{
Beep(1500,500);Beep(1500,500);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="i")
{
Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="j")
{
Beep(1500,500); Beep(1500,900);Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="k")
{
Beep(1500,900); Beep(1500,500); Beep(1500,900);
}
if( Phrase2=="l")
{
Beep(1500,500); Beep(1500,900); Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="m")
{
Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="n")
{
Beep(1500,900); Beep(1500,500);
}
if( Phrase2=="o")
{
Beep(1500,900);Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="p")
{
Beep(1500,500);Beep(1500,900);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="q")
{
Beep(1500,900);Beep(1500,900);Beep(1500,500); Beep(1500,900);
}
if( Phrase2=="r")
{
Beep(1500,500); Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="s")
{
Beep(1500,500);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="t")
{
Beep(1500,900);
}
if( Phrase2=="u")
{
Beep(1500,500);Beep(1500,500); Beep(1500,900);
}
if( Phrase2=="v")
{
Beep(1500,500);Beep(1500,500);Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="w")
{
Beep(1500,500);Beep(1500,900); Beep(1500,900);
}
if( Phrase2=="x")
{
Beep(1500,900);Beep(1500,500);Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="y")
{
Beep(1500,900);Beep(1500,500); Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="z")
{
Beep(1500,900);Beep(1500,900); Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="0")
{
Beep(1500,900);Beep(1500,900); Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="1")
{
Beep(1500,500);Beep(1500,900); Beep(1500,900);Beep(1500,900); Beep(1500,900);
}
if( Phrase2=="2")
{
Beep(1500,500);Beep(1500,500);Beep(1500,900); Beep(1500,900); Beep(1500,900);
}
if( Phrase2=="3")
{
Beep(1500,500);Beep(1500,500); Beep(1500,500);Beep(1500,900); Beep(1500,900);
}
if( Phrase2=="4")
{
Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="5")
{
Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="6")
{
Beep(1500,900);Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="7")
{
Beep(1500,900);Beep(1500,900);Beep(1500,500); Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="8")
{
Beep(1500,900);Beep(1500,900);Beep(1500,900);Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="9")
{
Beep(1500,900);Beep(1500,900);Beep(1500,900);Beep(1500,900); Beep(1500,500);
}
}
//---------------------------------------------------------------------------
int NbDeLettre( AnsiString x) // Calcule le nombre de lettre dans un AnsiString
{ // Phrase=Edit1->Text;
AnsiString Phrase2; // Edit2->Text= NbDeLettre( Phrase)
int Nb2=0, Nb=0;
x=x+".";
while(Phrase2!=".")
{
Nb2++;
Nb=Nb2;
Phrase2=x[Nb2];
}
x="";
Phrase2="";
Nb2=0;
return Nb-1;
}

TForm1 *Form1;
AnsiString Phrase, Phrase2;
int NbDeLettre(AnsiString);   //Fonction qui calcul le nombre de lettre dans le string
int Nb, Long, Court;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(Edit1->Text=="")                            // Vérifie si EditBox est vide
{       Timer1->Enabled=false;
        return;
}
else
{
        Nb=0;                                    // Prend ce qu'il y a dans l'editbox
        Phrase=Edit1->Text;                      // et retourne le nb de lettre dans l'AnsiString
        Edit3->Text=NbDeLettre(Phrase);
        Timer1->Enabled=true;
}

}
//---------------------------------------------------------------------------


void __fastcall TForm1::Timer1Timer(TObject *Sender)
{

if ( Nb==Edit3->Text)                           // Si  Nb = au nombre de lettre  , timer arrete
{
        Timer1->Enabled=false;
        return;
}
else
{
        Nb++;                                          // sinon Nb augmente est passe les lettres une par une
        Phrase2 =Phrase[Nb];
}



if( Phrase2=="a")
{
        Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="b")
{
        Beep(1500,900);Beep(1500,500);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="c")
{
        Beep(1500,900);Beep(1500,500);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="d")
{
        Beep(1500,900);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="e")
{
        Beep(1500,500);
}
if( Phrase2=="f")
{
        Beep(1500,500);Beep(1500,500);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="g")
{
        Beep(1500,900);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="h")
{
        Beep(1500,500);Beep(1500,500);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="i")
{
        Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="j")
{
        Beep(1500,500); Beep(1500,900);Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="k")
{
        Beep(1500,900); Beep(1500,500); Beep(1500,900);
}
if( Phrase2=="l")
{
        Beep(1500,500); Beep(1500,900); Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="m")
{
        Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="n")
{
        Beep(1500,900); Beep(1500,500);
}
if( Phrase2=="o")
{
        Beep(1500,900);Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="p")
{
        Beep(1500,500);Beep(1500,900);Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="q")
{
        Beep(1500,900);Beep(1500,900);Beep(1500,500); Beep(1500,900);
}
if( Phrase2=="r")
{
        Beep(1500,500); Beep(1500,900);Beep(1500,500);
}
if( Phrase2=="s")
{
        Beep(1500,500);Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="t")
{
        Beep(1500,900);
}
if( Phrase2=="u")
{
        Beep(1500,500);Beep(1500,500);  Beep(1500,900);
}
if( Phrase2=="v")
{
        Beep(1500,500);Beep(1500,500);Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="w")
{
        Beep(1500,500);Beep(1500,900); Beep(1500,900);
}
if( Phrase2=="x")
{
        Beep(1500,900);Beep(1500,500);Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="y")
{
        Beep(1500,900);Beep(1500,500); Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="z")
{
        Beep(1500,900);Beep(1500,900); Beep(1500,500);Beep(1500,500);
}
if( Phrase2=="0")
{
        Beep(1500,900);Beep(1500,900);  Beep(1500,900);Beep(1500,900);
}
if( Phrase2=="1")
{
        Beep(1500,500);Beep(1500,900);  Beep(1500,900);Beep(1500,900); Beep(1500,900);
}
if( Phrase2=="2")
{
        Beep(1500,500);Beep(1500,500);Beep(1500,900);  Beep(1500,900);   Beep(1500,900);
}
if( Phrase2=="3")
{
        Beep(1500,500);Beep(1500,500);  Beep(1500,500);Beep(1500,900);   Beep(1500,900);
}
if( Phrase2=="4")
{
        Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500);Beep(1500,900);
}
if( Phrase2=="5")
{
        Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500);  Beep(1500,500);
}
if( Phrase2=="6")
{
        Beep(1500,900);Beep(1500,500); Beep(1500,500); Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="7")
{
        Beep(1500,900);Beep(1500,900);Beep(1500,500); Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="8")
{
        Beep(1500,900);Beep(1500,900);Beep(1500,900);Beep(1500,500); Beep(1500,500);
}
if( Phrase2=="9")
{                                             
        Beep(1500,900);Beep(1500,900);Beep(1500,900);Beep(1500,900); Beep(1500,500);
}

}
//---------------------------------------------------------------------------
 int NbDeLettre( AnsiString x)    // Calcule le nombre de lettre dans un AnsiString
{                                // Phrase=Edit1->Text;
  AnsiString Phrase2;            // Edit2->Text= NbDeLettre( Phrase)
  int Nb2=0, Nb=0;
  x=x+".";

while(Phrase2!=".")
{
  Nb2++;
  Nb=Nb2;
  Phrase2=x[Nb2];
}
  x="";
  Phrase2="";
  Nb2=0;
  return Nb-1;
}

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CodeMorse
- Pj_Code.bpr4 141 octets
- Pj_Code.cpp 1 085 octets
- Pj_Code.obj18 438 octets
- Pj_Code.res876 octets
- Pj_Code.tds2 883 584 octets
- Un_Code.~cpp5 419 octets
- Un_Code.~ddp51 octets
- Un_Code.~dfm877 octets
- Un_Code.~h987 octets
- Un_Code.cpp 5 419 octets
- Un_Code.ddp51 octets
- Un_Code.dfm877 octets
- Un_Code.h 987 octets

Télécharger le zip

Historique

22 décembre 2010 14:05:16 :: la pièce jointe ne c'était mise.

Sources du même auteur

CALCULE LES TAXES

Toutes les sources de SanDum

Sources de la même categorie

KISIEL CD INFO DRIVE par kisiel0147852

SUPPRESSION DES REDONDANCES DE FICHIERS par cyberntique

ÉDITEUR DE RECTANGLES EN CONSOLE par seoseo

CONVERSION DE FICHIER EN FICHIER BMP par seoseo

DETECTEUR EJP par idpro

Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de mogwai93 le 22/12/2010 20:59:55

tu peux faire une fonction plus évolutive :
tu as ces 2 methodes appelées X fois :
  Beep(1500,900);
  Beep(1500,500);

il te suffit de créer 2 nouvelles methodes "long" et "court" par exemple
et à l'intérieur tu places tes appels à Beep

--> ça t'évite de faire des erreurs dans les différents appels
--> dans les 2 nouvelles méthodes, tu peux y mettre ce que tu veux :
      - appel à beep
      - dessins à l'écran
      - écriture dans un fichier
      - ...

Commentaire de rclsilver02 le 17/01/2011 16:18:33

Tu peux aussi associer une lettre à une séquence de caractères (. pour court et - pour long) puis ensuite, pour chaque lettre, parcourir et jouer la séquence associée.

Cela te permet d'avoir un code plus lisible et plus facile à maintenir.

Néanmoins, bon boulot :)

Commentaire de SanDum le 19/01/2011 21:15:47

Salut
Dsl, j'ai été très occupé, je n'ai pas eu le temps de répondre à vos commentaires.
J'avais pensé faire une fonction, d'ailleurs j'ai créé une fonction pour les sons que je devais améliorer, mais quand je me suis rendu compte que je devais appeler la fonction dans tout mes if, je trouvais que cela revenais au même que d'écrire ma commande directement.
Rclsiver02, je ne suis pas sur d'avoir compris ta solution, pourrais-tu me l'expliquer une autre fois, autre ?
Merci
Grégory

Ajouter un commentaire

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

MATRICE TEMPLATE par hjr2610

SUPERVISION DE LA BATTERIE par romanticgirl

RE : OPENCV ET INTERFACE GRAPHIQUE VISUAL STUDIO par buno

RE : SAC A DOS par hadjkaddour

OPENCV ET INTERFACE GRAPHIQUE VISUAL STUDIO par ssaif

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP