Ecrire un programme en Perl

Fermé

duprice Messages postés 43 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 22 mars 2013 - 20 mars 2013 à 10:40
duprice Messages postés 43 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 22 mars 2013 - 22 mars 2013 à 10:17

Bonjour,
je voudrais savoir si quelqu'un pourrait ecrire se brin de programme en Perl j ai essaye deja suis pas un as de programmation en Perl en plus ca urge donc je vous en prie si quelqu'un est capable de m aider ca me ferait plaisir .
Merci beaucoup.

BPort est un booléen
nNbreOctet est un entier
sMess est une chaîne

//Ouverture du port COM
BPort = sOuvre(1, 1024, 1024, sTimeoutDéfaut)
SI BPort = Vrai ALORS
//On renseigne les paramètres du modem
sFixeParamètre(1, 9600, 0, 8, 1, Vrai, Vrai, Faux)
//On teste le modem
sEcrit(1, "AT" + Caract(13))
//On laisse au moden le temps de répondre
Temporisation(100)
nNbreOctet = sDansFileEntrée(1)
sMess = sLit(1, nNbreOctet)
//Si la réponse (qui est en fonction du modem) est différente Entrée_OK_Entrée...
SI Majuscule(sMess) <> Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10) ALORS
Info("Communication avec le terminal impossible !" + RC + " Réseau mauvais ou revérifiez les branchements du modem et sa configuration !")
SINON
//Selon le pays le nombre de chiffre pour composer un numéro
//Pour moi c'est 8, pour la France c'est supérieur dont à changeren fonction
//du pays (ici SAI_N_Téléphone est le champ qui contient le N° de tél
SI Taille(SAI_N_Téléphone) <> 8 ALORS
Info("Numéro de Téléphone érronné ! Vérifier le SVP !")
SINON
Temporisation(100)
//Pour les commandes AT chercher la syntaxe sur le net
sEcrit(1, "AT+CMGS=" + Caract(34) + Droite(SAI_N_Téléphone, 8) + Caract(34) + Caract(13))
Temporisation(100)
nNbreOctet = sDansFileEntrée(1)
sMess = sLit(1, nNbreOctet)
SI Majuscule(sMess) <> Caract(13) + Caract(10) + "> " ALORS
Info("Mauvaise initialisation du Modem !")
SINON
Temporisation(100)
sEcrit(1, SAI_Message + Caract(26))
// Temporisation(100)
Info("Message envoyer avec succès !")
FIN
FIN
FIN
//On ferme le port
sFerme(1)
SINON
Erreur("Erreur d'ouverture du COM1")
FIN

A voir également:

Ecrire un programme en Perl
Ecrire en gras sur whatsapp - Guide
Ecrire en miroir - Guide
Programme demarrage windows 10 - Guide
Fichier ouvert dans un autre programme - Guide
Desinstaller un programme - Guide

4 réponses

Réponse 1 / 4

ThEBiShOp Messages postés 8378 Date d'inscription jeudi 22 mars 2007 Statut Contributeur Dernière intervention 8 février 2021 1 565
20 mars 2013 à 10:42

ça urge, genre "je dois bientôt rendre mon devoir que j'ai la flemme de faire et faudrait que quelqu'un le fasse à ma place".

okok...

Réponse 2 / 4

duprice Messages postés 43 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 22 mars 2013
20 mars 2013 à 11:16

ca pas en faite ca , j'ai juste besoin d'aide et si tu peux m'aider je t'en serais reconnaissant mais t'inquiete ce n'est pas un devoir loool
merci

Réponse 3 / 4

[Dal] Messages postés 6174 Date d'inscription mercredi 15 septembre 2004 Statut Contributeur Dernière intervention 2 février 2024 1 083
Modifié par [Dal] le 21/03/2013 à 16:27

Salut duprice,

On dirait bien du Windev.

Si cela urge, tu te procures Windev, et tu utilises cet environnement pour exécuter ce programme.

Si tu tiens à utiliser Perl, tu devrais sans doutes utiliser quelque chose comme Device::Modem::GSM que tu te procures avec CPAN :

https://metacpan.org/pod/release/SKATTOOR/Device-Modem-GSM-0.3/lib/Device/Modem/GSM.pm

et adapter ce code en Perl.

Dal

Réponse 4 / 4

duprice Messages postés 43 Date d'inscription samedi 12 septembre 2009 Statut Membre Dernière intervention 22 mars 2013
22 mars 2013 à 10:17

Ah DalMerci bien c est juse que je suis toujours sur mon meme Projet et depuis lors j ai pas trop avance avec mon smsServer envoyer et recevoir un sms.
Mais bon je vais essaye le cpan et voir si je peux envoyer un sms et recevoir.

Discussions similaires

programme qui n'affiche pas le mot secret

Comment taper l'arobase sur un pc hp ?

Pourquoi Program files (x86) et Programmes?

algorithme résoudre ax²+bx+c=0

TV LG affiche le carré non programmé

Discussions similaires

Newsletters