1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| bMonPort est un booléen
nNbreOctet est un entier
sMess est une chaîne
//Ouverture du port COM
bMonPort = sOuvre(1, 1024, 1024, sTimeoutDéfaut)
SI bMonPort = 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 |
