Discussion :

[daillatres]

Bonjour a toute la communauté
Voici je recherche a envoyer des sms a partir d'un modem gsm mais le code que j'ai trouvé le forum et après avoir modifier certaine instruction le modem est initialiser je reçois même le message que l'sms est parti mais je ne reçois pas sur mon téléphone et je peux avoir aussi comment recevoir les sms provenant des mobile.

Voici le code

Code :

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

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
47
48
bMonPort est un booléen
nNbreOctet est un entier
sMess est une chaîne
//Ouverture du port COM
bMonPort = sOuvre(32, 1024, 1024, sTimeoutDéfaut)
SI bMonPort = Vrai ALORS
	//On renseigne les paramètres du modem
	sFixeParamètre(32, 921600, 0, 8, 1, Vrai, Vrai, Faux)
	//On teste le modem
	sEcrit(32, "AT" + Caract(13))
	//On laisse au moden le temps de répondre
	Temporisation(100)
	nNbreOctet = sDansFileEntrée(32)
	sMess = sLit(32, 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) <> 13 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(32, "AT+CMGC=" + Caract(34) + Droite(SAI_N_Téléphone,13) + Caract(34) + Caract(13))
			//sEcrit(32, "AT+CSCA=" + "+919822078000")
			sEcrit(32, SAI_Message + Caract(26))
			Temporisation(100)
			nNbreOctet = sDansFileEntrée(32)
			sMess = sLit(32, nNbreOctet)
			//SI Majuscule(sMess) <> Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10) ALORS  
			SI Contient(Majuscule(sMess), "OK") = Vrai ALORS
				Info("Mauvaise initialisation du Modem !")
			SINON
				Temporisation(100)
				sEcrit(32, 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

Merci pour votre aide.

[tbc92]

1. J'ai ajouté la balise CODE dans ton message pour que ce soit lisible (icone # dans la barre d'icones)

2. En ligne 34 de ton code , tu testes : si message contient OK alors erreur sinon continuer.
Je pense que c'est l'inverse.

[lomama]

1. J'ai ajouté la balise CODE dans ton message pour que ce soit lisible (icone # dans la barre d'icones)

2. En ligne 34 de ton code , tu testes : si message contient OK alors erreur sinon continuer.
Je pense que c'est l'inverse.