windev avec USSD

**deoda** · 09/01/2014, 22h17

Bonjour a tous ?

Plusieurs personnes a travers plusieurs forum ont voulu savoir si avec windev on peut developper des applications qui peuvent travailler avec les serveurs USSD.

Curieusement personne n'a recu d'une reponse satisfaisante jusqu' a la preuve du contraire.

Nous attendons toujours un volontaire pour des eclairissements.

Merci

**kzonou** · 18/01/2016, 09h31

Bonjour,
Moi j'ai réalisé une application sous Windev 17 qui pilote un téléphone branché sur le PC via cable USB.
Le programme exécute une panoplie de commandes USSD qui fonctionnent merveilleusement bien.
Exemple: pour consulter le solde

Code :

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

sEcrit(ComPort1,"AT+CUSD=1,""*160#"""+ Caract(13))

Comport1 est une variable qui comporte le numéro du port COM du téléphone
*160# est le code de consultation de solde de mon opérateur GSM.

**kabamel** · 17/09/2019, 19h16

Moi, je suis sur windev 20, En appliquant ce code, j'ai une erreur de Genre "+CME ERROR: 100"
J'utilise les clés 3g d'Orange Guinee
Voici mon code complet:

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
bMonPort est un booléen
nNbreOctet est un entier
sMess est une chaîne
nbrPort est un entier = 6
 
//Ouverture du port COM
bMonPort = sOuvre(nbrPort, 2000, 2000, sTimeoutDéfaut)
SI bMonPort = Vrai ALORS
//On renseigne les paramètres du modem
sFixeParamètre(nbrPort, 9600, 0, 8, 1, Vrai, Vrai, Faux)
//On teste le modem
sEcrit(nbrPort, ChaîneVersUTF8("AT" + Caract(13)))
//On laisse au moden le temps de répondre
Temporisation(100)
nNbreOctet = sDansFileEntrée(nbrPort)
sMess = sLit(nbrPort, 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 !")
	FIN
	Temporisation(100)
	//Pour les commandes AT chercher la syntaxe sur le net
	sEcrit(nbrPort, "AT+CUSD=1,""*124#"""+ Caract(13))
	Temporisation(100)
	nNbreOctet = sDansFileEntrée(nbrPort)
	sMess = sLit(nbrPort, nNbreOctet)
SAI_Message = sMess
FIN

Merci pour votre correction

**frenchsting** · 18/09/2019, 09h07

Bonjour,

je ne connais pas du tout la gestion des modem, mais tu ne dis pas à quel endroit ça bloque.
De plus, tu ne testes pas les valeurs retournées par les secrit.

**kabamel** · 18/09/2019, 09h42

Code :

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

sEcrit(nbrPort, "AT+CUSD=1,""*124#"""+ Caract(13))

C'est là que l'erreur se produit

**frenchsting** · 18/09/2019, 11h26

2 pistes :
1. Dans ton premier secrit(), tu utilises un ChaîneVersUTF8(..), mais pas dans le deuxième.
2. Modifier le code du deuxième secrit :

Code :

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

1
2
3
4
5
6
	//Pour les commandes AT chercher la syntaxe sur le net
	SI sEcrit(nbrPort, ChaîneVersUTF8("AT+CUSD=1,""*124#"""+ Caract(13))) = 0 ALORS
		SI ErreurDétectée ALORS
			 Erreur(ErreurInfo())
		FIN
	FIN

Sans garantie car la gestion des erreurs n'est pas très bien expliquée.

**kabamel** · 18/09/2019, 11h55

Merci pour vos réponses.
J'ai modifié mon code comme vous l'avez indiquer,
toujour le même proble le slit renvoi

Code :

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

+CME ERROR: 100

j'ai cherche ce type d'erreur sur le site https://www.micromedia-int.com/en/gs...related-errors, il me renvoie "Erreur Inconnue"
Voici encore le code complet:

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
 
bMonPort est un booléen
nNbreOctet est un entier
sMess est une chaîne
nbrPort est un entier = 8
 
//Ouverture du port COM
bMonPort = sOuvre(nbrPort, 2000, 2000, sTimeoutDéfaut)
SI bMonPort = Vrai ALORS
//On renseigne les paramètres du modem
sFixeParamètre(nbrPort, 9600, 0, 8, 1, Vrai, Vrai, Faux)
//On teste le modem
sEcrit(nbrPort, ChaîneVersUTF8("AT" + Caract(13)))
//On laisse au moden le temps de répondre
Temporisation(100)
nNbreOctet = sDansFileEntrée(nbrPort)
sMess = sLit(nbrPort, 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 !")
	FIN
	Temporisation(100)
	//Pour les commandes AT chercher la syntaxe sur le net
	SI sEcrit(nbrPort, ChaîneVersUTF8("AT+CUSD=1,""*124#"""+ Caract(13))) = 0 ALORS
		SI ErreurDétectée ALORS
			Erreur(ErreurInfo())
		FIN
	FIN
	Temporisation(100)
	nNbreOctet = sDansFileEntrée(nbrPort)
	sMess = sLit(nbrPort, nNbreOctet)
SAI_Message = sMess
FIN

**frenchsting** · 18/09/2019, 12h19

et en supprimant le chaineversUTF8 ?

**kabamel** · 18/09/2019, 12h42

Le message d'erreur :

Code :

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

+CME ERROR: 100

**frenchsting** · 18/09/2019, 13h34

Tu l'as supprimé dans les 2 secrit ?

**kabamel** · 18/09/2019, 14h32

Toujours le même problème

**frenchsting** · 18/09/2019, 14h43

Comme je te l'ai dit auparavant, je ne connais pas les modems. Peut-être y'a t'il des infos/paramètres supplémentaires à mettre avant ton secrit.

D'ailleurs, que te retourne ton slit dans la valeur mess ?

**kabamel** · 18/09/2019, 15h02

Ok. Je continu mes recherches et je reviendrais en cas de resultat.
Merci pour le temps accordé.

**frenchsting** · 18/09/2019, 15h26

Bonnes recherches.

Tu ne m'as pas dit ce que te retournait mess ?

PS: tant que j'y suis, essaye de préfixer tes variables mess semble être une chaîne : utilise sMess,par exemple.

**kabamel** · 18/09/2019, 15h39

Code :

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

sMess = sLit(nbrPort, nNbreOctet)

Renvoie l'info lu du après

Code :

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

sEcrit(nbrPort, "AT+CUSD=1,""*124#"""+ Caract(13))

Normalement, sMess devrait être : "Solde :0GNF, appuyer sur.........."
C'est le message que renvoi l'opérateur Orange Guinée en composant *124#

**frenchsting** · 18/09/2019, 16h37

Ton sMess te renvoie bien Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10) ?

Je ne comprends pas ce que tu veux dire par : "Renvoie l'info lu du après"

**kabamel** · 18/09/2019, 17h02

Le test du modem

Code :

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

sEcrit(nbrPort, "AT" + Caract(13))

, me renvoie bien "OK"
on vérifie maintenant si le test modem correspond à

Code :

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

Caract(13) + Caract(10) + "OK" + Caract(13) + Caract(10)

Ce test ce passe très bien.
On compose le numéro:

Code :

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

sEcrit(nbrPort, "AT+CUSD=1,""*124#"""+ Caract(13))

qui doit me renvoyer le solde de mon compte Orange
J'espère être un peu claire.
Merci pour l'effort.

**frenchsting** · 19/09/2019, 17h06

Oui, j'ai compris. Merci pour l'explication.

Il ne comprend peut-être pas la commande +CUSD=1 ?

windev avec USSD

Windev Mobile

Discussions similaires

Partager

Partager