Discussion :

[cheasy]

Bonjour à tous,

Pour la petite histoire je suis étudiant en stage et mon objectif est d'écrire un programme qui récupère des données sur un appareil de mesure météorologique par liaison GSM (La machine en question étant pomé au milieu de la nature, y aller toutes les semaines c'est pas spécialement marrant ).

Bref, quoiqu'il en soit je me retrouve aujourd'hui face un problème de taille (enfin de taille, pour moi ).
Je pense que vous donner le code directement est le plus simple (Y'a 3 misérable ligne donc bon, je pense pas que ça posera de problèmes aux pros de ce forum ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use Device::SerialPort;
 
my $com1="/dev/ttyS0";
my $port = Device::SerialPort->new($com1);
 
$port->user_msg(ON);
$port->baudrate(9600); 
$port->parity("none"); 
$port->databits(8); 
$port->stopbits(1); 
$port->handshake("xoff"); 
$port->write_settings;
$port->write("AT");

Ça doit surement être une erreur plus qu'évidente, mais ayant commencé le Perl ce matin et personne pour me donner un coup de main je suis un peu en galère ! soyez indulgent

[magicshark]

quel est le problème ou erreur le retour ...

[cheasy]

Normalement le GSM doit émettre un bip quand il reçoit la requête "AT", le code se lance normalement mais le GSM ne bip pas

Merci de te pencher sur mon problème

[Philou67430]

Bien sur, tu es certain de la configuration du port /dev/ttyS0 ainsi que des paramètres de la liaison. Pourrais-tu donner la référence du module GSM que tu souhaites piloter ? (ou un lien vers sa notice).

[cheasy]

Pour les paramètres de la liaison j'utilise les même avec un autre logiciel qui permet de communiquer avec le modem et ça marche, donc je pense qu'ils sont bons.

Que veux tu dire par la configuration du port ?
J'ai tester avec la commande chat de UNIX et le modem répond correctement.

En ce qui concerne le modem c'est un OLITEC Modem Speed'Com V92 Ready :
http://www.google.fr/imgres?um=1&saf...r:19,s:0,i:139

J'ai pas trouvé de notice sur internet, je vais continuer à chercher et j'éditerai ce message si je trouve.

[Philou67430]

Dans un premier temps, pourrais-tu remplacer ta ligne 5 par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $port = Device::SerialPort->new($com1) or die "Can't open serial port: ".($! || $^E)."\n"

et la ligne 13 par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$port->write_settings or die "Can't set port configuration: $!\n"

(ça ne résoudra sans doute rien).

Tente ensuite de remplacer $port->handshake("xoff"); par $port->handshake("none"); puis, et de manière indépendante et combinée, de supprimer $port->stopbits(1);