1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| // Ouverture du port com
portcom est un booléen
nNbreOctet est un entier
portcom = sOuvre(COMBO_portCom, 2000, 2000,sTimeoutDéfaut,Vrai)
SI portcom = Vrai ALORS
// Paramétrage de COM1 : Taux 9600, parité paire,
// 8 bits de données, 1 bit de stop
sFixeParamètre(COMBO_portCom, 9600, 1, 8, 0)
Temporisation(100)
sEcrit(COMBO_portCom,ChaîneVersUTF8("AT+CREG ?" + Caract(13)))
Temporisation(100)
nNbreOctet = sDansFileEntrée(COMBO_portCom)
SI ErreurDétectée=Vrai ALORS
Erreur(ErreurInfo(errComplet))
SINON
SAI_Saisie1 = sLit(COMBO_portCom, nNbreOctet)
FIN
// Fermeture de COM1
sFerme(COMBO_portCom)
SINON
LIB_info="Erreur d'ouverture du port "+COMBO_portCom..ValeurAffichée
FIN |
Partager