Discussion :

[marie eva]

bonjour j'ai acheté un modem D-link DWM-156 (ce modem intègre un logiciel pour envoyer des SMS) mais moi je voudrais utiliser un code développé avec Windev. et j'ai écris un code avec Windev 15 pour envoyer un message via ce modem mais il ne marche pas j'ai besoin d'aide. 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
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

Merci

[miripesage]

Bonjour, y'a t il un message d'erreur ?
N.B : mettez votre code dans les balises(#)!