• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 343
  • Last Modified:

How can I write SMS coming from GSM modem in the text file using the com port ?

Hi experts,
I'm a VB programer, I have some problem to write the data coming from GSM modem "Fastrack" in the text file using the com port.
This my code source
Private Sub Form_Load()
'Paramètres du 1er modem
MSComm1.RTSEnable = True
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.Output = "AT+CNMI=0,2,0,0,0" & vbCr
End Sub
Private Sub MSComm1_OnComm()
   Select Case MSComm1.CommEvent
            Case comEvReceive  
            Open "C:\Receiv1_sms.txt" For Append As #1
            Print #1, MSComm1.Input
           Close #1
   End Select
  End Sub
With this I write the sms in the text file but when I read it I have the format problem....
+CMT: "+2236799488",,"04/09/16,09:40:47-00"
Hello

+CMT: "+2236722223",,"04/09/16
Hello

+CMT: "+2236715596",,"04/09/16
9-00"
F1

+CMT: "+2236761466",,"
,09:55:44-00"
Hello

+CMT: "+2236784793",,"04/09/16,10:00:58-00"
Hello

How can I do to receive all SMS  in the same format in the text file like this
+CMT: "+2236784793",,"04/09/16,10:00:58-00"
Hello
+CMT: "+2236799488",,"04/09/16,09:40:47-00"
Hello

Thanks for your help
0
toupe
Asked:
toupe
  • 2
1 Solution
 
imarshadCommented:
One other option is to use AT+CMGL command.....Depending upon the type of application you are developing AT+CMGL might be a better option..... Currently you have set your modem to Output the SMS as it arrives.......But what if at that time your Program is not running ? In that case you will not be able to read that SMS.......

AT+CMGL=4 (PDU Mode)
AT+CMGL="ALL" (Text Mode)

These commands will output all the SMS received serially.....and you manually have to delete each SMS you receive with AT+CMGD command......  

as far as your current code is concerned you might insert a delay after comEvReceive event is fired.......

            Case comEvReceive  
            Open "C:\Receiv1_sms.txt" For Append As #1
            sleep 500
            Print #1, MSComm1.Input
           Close #1

and declare sleep as
private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'If declaring in form code


Hope this helps.....

Imran Arshad
0
 
toupeAuthor Commented:
Thanks for your help Imran, my program works properly now with Sleep Sub.
0
 
imarshadCommented:
If your problem is solved then you should close the question by accepting my suggestion......

Imran
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now