Discussion :

[koutcha]

Slt ,

J'essaie de créer un programme pour recevoir les SMS via un modem WaveCom RS232 et j'utilise la MSComm et les commade AT.
j'ai commencé mes tests en faisant un appel vocal à partir du VB via la commande "ATD<2145524455>"

Code :

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

1
2
3
4
MsComm1.CommPort=1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen=True
MSComm1.OutPut="ATD<0123255645>" & Chr$(13)

et c ok
ensuite j'ai commencé à faire les essai pour la lesture des SMS en utilisant ce code :

Code :

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

1
2
3
4
5
6
If MSComm1.InBufferCount > 0 then
MSComm1.OutPut="AT+CMGR=1" & Chr$(13)
Dim Buffer
Buffer = Buffer & MSComm1.Input
 
End if

le problème c'est que le "MSComm1.InBufferCount " est toujours à zéros ,c 'est à dire aucune réponse et de même il n'y a aucun évènement avec la "comEvReceive "
Que faire ?

[DAUDET78]

A mon humble avis, c'est la ligne

Code :

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

MSComm1.OutPut="AT+CMGR=1" & Chr$(13)

qui déclenche la lecture du message.
Donc

Code :

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

If MSComm1.InBufferCount > 0 then

doit être après (avec une tempo pour attendre la transmission)

[koutcha]

A mon humble avis, c'est la ligne

Code :

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

MSComm1.OutPut="AT+CMGR=1" & Chr$(13)

qui déclenche la lecture du message.
Donc

Code :

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

If MSComm1.InBufferCount > 0 then

doit être après (avec une tempo pour attendre la transmission)

Merci DAUDET78
c'est le même problème, MSComm1.InBufferCountest toujours à zéros, c'est comme il n'y aucune réponse de la part du modem

[DAUDET78]

Et tu attends combien de temps entre la commande AT et la lecture ?
Il y a bien un SMS qui est censé être présent à l'index 1 ?

[koutcha]

Et tu attends combien de temps entre la commande AT et la lecture ?
Il y a bien un SMS qui est censé être présent à l'index 1 ?

le code est dans un Timer fe 200ms ,je fais un Debug pas à pas et rien d'Input

[DAUDET78]

Tu as cherché, sur la toile, des programmes d'utilisation/explication de la commande AT+CMGR ?