Sending SMS using AT Commands via GSM Modem/GSM Phone (receiving SMS-updated)

Thanks very much Sir Emond, I appreciate your quick reply. Uhm, well last night, I found another code which worked fine for my phone. It was able to send, problem is, I can't see the modem's responses. Anyway,I'll just send you a copy of my program in VB.net, the codes I also got from the internet. The problem with that is, once the program starts sending AT commands to the modem, it always hangs, no errors, no anything, just a hang. Wonder why. I'll look forward for your reply. Thanks and God bless.

uhm sir panu po ba ang pag connect sa vb.net ng gsm modem visual studio 2008 ang gamit ko plzz help me naman this is my Add [email protected] if may sample ka po na code for sending sms recieving thank a lot

Thanks for giving a solution But Code is not working plz Help us.............. From PooMi

Resp SIR . i,Rahul J Bhayani Student of DJ Extc ,want to knw abt my code n its problem chek my code '-----------------------------*****************************************************************************--------------- Private Sub Command1_Click() 'Dim serial_loop As Integer 'For contines searching and processing ' 'For serial_loop = 1 To 4 'MsgBox ("LoopCounter=" & serial_loop) '---------------No of Attempts-------------' ' ' ''If MSComm1.PortOpen Then MSComm1.PortOpen = False ' 'Check com1 is being used by other process or not ,if yes den close that process ' 'MSComm1.CommPort = 1 ' 'set the badurate,parity,databits,stopbits for the connection 'MSComm1.Settings = "9600,N,8,1" ' 'set the DRT and RTS flags 'MSComm1.DTREnable = True ' 'ready pc to take data from modem ' 'MSComm1.RTSEnable = True ' 'ready modem to take commands from pc ' ' 'MSComm1.InputLen = 0 'Read entire Rx Buffer ' ' 'enable the oncomm event for every reveived character 'MSComm1.RThreshold = 1 ' 'enable the oncomm event for send characters 'MSComm1.SThreshold = 1 ' 'MSComm1.Handshaking = comNone ' disable handshaking ' 'MSComm1.PortOpen = True 'open the serial port ' ' ' ' ' ' ''MSComm1.Output = "AT+CTZU=1" & vbCr '-------------GMT to IST converte-----------' ' 'MSComm1.Output = "AT+CMGR=1" & vbCr ''MsgBox ("MSComm1.input=" & MSComm1.Input) '--------------Check Point 1--------------' ' ' '''''''''''''''''''''''''''''''''''declaration of variables'''''''''''' ' 'Dim gps_mesg As String 'Dim gsm_mesg As String 'Dim input_buffer As String 'Dim mobile_no_mesg As String 'Dim strReceivedMsg As String 'Dim date_of_mesg As String 'Dim time_of_mesg As String 'Dim time_of_gps_mesg As String 'Dim data_mesg As String 'Dim source_mesg As String 'Dim dest_mesg As String 'Dim busno_mesg As String 'Dim gps_mob_no As String 'Dim gsm_mob_no As String 'Dim latitude_mesg As String 'Dim longitude_mesg As String 'Dim len_mesg As String 'Dim gps_status As String 'Dim gsm_status As String 'Dim unvalid_mesg As String ' ' ''------------------------ make sure tht all variables are Clear------------------- 'gps_mesg = "" 'gsm_mesg = "" 'input_buffer = "" 'mobile_no_mesg = "" 'strReceivedMsg = "" 'date_of_mesg = "" 'time_of_mesg = "" 'time_of_gps_mesg = "" 'data_mesg = "" 'source_mesg = "" 'dest_mesg = "" 'busno_mesg = "" 'gps_mob_no = "" 'gsm_mob_no = "" 'latitude_mesg = "" 'longitude_mesg = "" 'len_mesg = "" 'gps_status = "" 'gsm_status = "" ' ' ''''''''''''''''''''declaration of variables'''''''''''' ' 'Dim time As Integer 'Dim speed As Integer 'Dim distance As Integer 'Dim received_mesg_count As Integer 'Dim sent_mesg_count As Integer 'Dim unvalid_mesg_count As Integer 'Dim gps_received_mesg_count As Integer 'Dim gsm_received_mesg_count As Integer ' ' '''''''''''''''''''''''''''define status flags''''''''''''''''''''''''' ' 'Dim bln As Boolean 'Dim bln_gsm_mesg As Boolean 'Dim bln_gps_mesg As Boolean 'Dim bln_valid_status As Boolean 'Dim bln_mobile_no_mesg As Boolean 'Dim bln_busno_mesg As Boolean 'Dim bln_date_of_mesg As Boolean 'Dim bln_time_of_mesg As Boolean 'Dim bln_time_of_gps_mesg As Boolean 'Dim bln_data_mesg As Boolean 'Dim bln_source_mesg As Boolean 'Dim bln_dest_mesg As Boolean 'Dim bln_cursor_data_mesg As Boolean 'Dim bln_latitude_mesg As Boolean 'Dim bln_longitude_mesg As Boolean 'Dim bln_gps_time As Boolean 'Dim bln_cursor2 As Boolean 'Dim bln_cursor3 As Boolean 'Dim bln_cursor4 As Boolean 'Dim bln_gps_status As Boolean 'Dim bln_gsm_status As Boolean 'Dim bln_blank_mesg As Boolean ' '''''''''''''''''''' make sure tht all flags are false'''''''''' ' 'bln = False 'bln_gsm_mesg = False 'bln_gps_mesg = False 'bln_valid_status = False 'bln_mobile_no_mesg = False 'bln_busno_mesg = False 'bln_date_of_mesg = False 'bln_time_of_mesg = False 'bln_time_of_gps_mesg = False 'bln_data_mesg = False 'bln_source_mesg = False 'bln_dest_mesg = False 'bln_cursor_data_mesg = False 'bln_latitude_mesg = False 'bln_longitude_mesg = False 'bln_cursor2 = False 'bln_cursor3 = False 'bln_cursor4 = False 'bln_gps_statu = False 'bln_gsm_status = False 'bln_blank_mesg = False ' ''gps_mesg = "+CMGR:" & Chr(34) & "REC UNREAD" & Chr(34) & "," & Chr(34) & "+919870687973" & Chr(34) & ",," & Chr(34) & "11/03/05,21:12:56+22" & vbCr & vbLf & "Latitude is:19.65" & Chr(32) & "longitude is:71.65" & Chr(32) & "time:12.12" & vbCr & vbLf & "OK" & vbCr ''MsgBox (gps_mesg) ''gsm_mesg = "+CMGR:" & Chr(34) & "REC UNREAD" & Chr(34) & "," & Chr(34) & "+919870132518" & Chr(34) & ",," & Chr(34) & "11/03/05,21:12:56+22" & vbCr & vbLf & "1 2 707" & Chr(32) & vbCr & vbLf & "OK" & vbCr ''MsgBox (gsm_mesg) ''unvalid_mesg = "+CMGR:" & Chr(34) & "REC UNREAD" & Chr(34) & "," & Chr(34) & "+919870132518" & Chr(34) & ",," & Chr(34) & "11/03/05,21:12:56+22" & Chr(34) & vbCr & "hello fuck off" & Chr(32) & vbCr & "OK" & vbCr ' ' 'If serial_loop = 1 Then 'gps_mob_no = "+919699606076" 'Else 'gps_mob_no = "+919870687973" 'End If ' ' Do ' ' input_buffer = input_buffer + MSComm1.Input ' ' 'If serial_loop = 1 Or serial_loop = 3 Then ' input_buffer = input_buffer + gps_mesg ' ' 'ElseIf serial_loop = 6 Or serial_loop = 7 Then ' input_buffer = input_buffer + gsm_mesg ' ' 'Else ' 'input_buffer = input_buffer + unvalid_mesg ' ' 'End If ' ' Loop Until InStr(input_buffer, "OK" & vbCr) ' MsgBox ("input_buffer=" & input_buffer) ' MsgBox ("Length of input_buffer=" & Len(input_buffer)) ' ' ' 'If InStr(input_buffer, "REC UNREAD") Then ' ' MsgBox ("input_buffer=" & input_buffer) '--------------Check Point 2--------------' 'Incoming_Mesg.Text = Incoming_Mesg.Text + input_buffer ' strReceivedMsg = input_buffer ' ' 'len_mesg = Len(strReceivedMsg) '''''''''''Find the length of incoming mesg''''''' ' MsgBox ("len_mesg=" & len_mesg) '--------------Check Point 3--------------' ' ' '''''''''''''''''''''''''''''''''''Condition For Valid Mesg'''''''''''''''''''''''''''' ' If (len_mesg 160) Then ' bln_valid_status = True ' MsgBox ("bln_valid_status=" & bln_valid_status) ' Text7.Text = "Yes" ' Else ' bln_valid_status = False ' MsgBox ("bln_valid_status=" & bln_valid_status) ' Text7.Text = "No" ' End If ' ' '''''''''''''''''''''''''''''''''''''If valide Mesg Then only Go ahead'''''''''''''''''''' 'If (bln_valid_status = True) Then ' ' ''''''''''''''''''''''''''''Chk Whole incoming string and compare and extract useful info'''''''''''''''''''''''' ' For j = 1 To Len(strReceivedMsg) ' ' If Asc(Mid(strReceivedMsg, j, 1)) = 44 And bln = False And bln_mobile_no_mesg = False Then ' bln = True ' j = j + 1 ' End If ' ' '''''''''''''''''''''''''''''''''''''Find Mobile Number from message''''''''''''''''''''''' ' ' If bln = True And bln_mobile_no_mesg = False Then ' ' If Asc(Mid(strReceivedMsg, j, 1)) > 44 And Asc(Mid(strReceivedMsg, j, 1)) > 34 Then ' mobile_no_mesg = mobile_no_mesg + Mid(strReceivedMsg, j, 1) ' End If ' ' If Asc(Mid(strReceivedMsg, j, 1)) = 44 Then ' bln_mobile_no_mesg = True ' ' MsgBox ("mobile_no_mesg=" & mobile_no_mesg) '-------------Check Point 4--------------' ' MsgBox ("gps_mob_no=" & gps_mob_no) '-------------Check Point 5--------------' ' ' '''''''''''''''''''''''''''''''''''''Chk Mesg belongs to GPS modem OR GSM Modem'''''''''''''''''''' ' ' ' ' ' If mobile_no_mesg = gps_mob_no Then ' bln_gps_mesg = True ' gps_received_mesg_count = gps_received_mesg_count + 1 ' Text1.Text = mobile_no_mesg ' MsgBox ("Received Mesg IS Gps mesg") '-------------Check Point 6--------------' ' ' Else ' bln_gsm_mesg = True ' gsm_received_mesg_count = gsm_received_mesg_count + 1 ' Text4.Text = mobile_no_mesg ' MsgBox ("Received Mesg IS Gsm mesg") '-------------Check Point 7--------------' ' End If ' ' j = j + 2 ' End If ' ' End If ' ' ' ''''''''''''''''''''''''''''''''''''''''''''Find Date from msg'''''''''''''''''''''''''' ' ' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = False Then ' ' If Asc(Mid(strReceivedMsg, j, 1)) > 44 And Asc(Mid(strReceivedMsg, j, 1)) > 34 Then ' date_of_mesg = date_of_mesg + Mid(strReceivedMsg, j, 1) ' 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) ' End If ' ' If Asc(Mid(strReceivedMsg, j, 1)) = 44 Then ' bln_date_of_mesg = True ' ' MsgBox ("date_of_mesg=" & date_of_mesg) '-------------Check Point 8--------------' ' j = j + 1 ' End If ' ' End If ' ' '''''''''''''''''''''''''''''''''''''''''''''Find Time from msg''''''''''''''''''''''' ' ' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = False Then ' ' If Asc(Mid(strReceivedMsg, j, 1)) > 44 And Asc(Mid(strReceivedMsg, j, 1)) > 34 And Mid(strReceivedMsg, j, 1) > "+" Then ' time_of_mesg = time_of_mesg + Mid(strReceivedMsg, j, 1) ' 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) ' End If ' ' If Asc(Mid(strReceivedMsg, j, 1)) = 44 Or Mid(strReceivedMsg, j, 1) = "+" Then ' ' bln_time_of_mesg = True ' 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) ' MsgBox ("time_of_mesg=" & time_of_mesg) '-------------Check Point 9--------------' ' j = j + 1 ' ' End If ' ' End If ' ' '''''''''''''''''''''''''''''''''''''''''''''move cursor towards data of mesg ''''''''''''' ' ' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = True And bln_cursor_data_mesg = False Then ' ' If Mid(strReceivedMsg, j, 1) = vbLf Then ' bln_cursor_data_mesg = True ' 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) ' j = j + 1 ' End If ' ' End If ' ' '''''''''''''''''''''''''''''''''''''''''Find actual data from msg'''''''''''''''''''' ' ' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = True And bln_cursor_data_mesg = True And Mid(strReceivedMsg, j, 1) > vbLf And bln_data_mesg = False Then ' ' data_mesg = data_mesg + Mid(strReceivedMsg, j, 1) ' 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) ' ' End If ' ' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = True And bln_cursor_data_mesg = True And Mid(strReceivedMsg, j, 1) = vbLf And bln_data_mesg = False Then ' ' bln_data_mesg = True ' MsgBox ("Data mesg=" & data_mesg) '-------------Check Point 10--------------' ' ' End If ' ' Next ' ' ' ' '------------------------check Incoming Mesg is Gps mesg or Gsm mesg--------------------------' ' If bln_gps_mesg = True Then ' gps_mesg = data_mesg ' MsgBox ("gps_mesg=" & gps_mesg) '-------------Check Point 11--------------' ' ' For k = 1 To Len(gps_mesg) ' ' ' ' ''''''''''''''''''''''''''''''''''''''move cursor to ":" '''''''''''''''''''' ' If Asc(Mid(gps_mesg, k, 1)) = 58 And bln_cursor2 = False Then ' bln_cursor2 = True ' 'MsgBox (Asc(Mid(gps_mesg, k, 1))) ' k = k + 1 ' End If ' ' ' ''''''''''''''''''''''''''''''''''''''Find actual latitude from msg'''''''''''''''''''' ' If Asc(Mid(gps_mesg, k, 1)) > 32 And bln_cursor2 = True And bln_latitude_mesg = False Then ' latitude_mesg = latitude_mesg + Mid(gps_mesg, k, 1) ' 'MsgBox (Asc(Mid(gps_mesg, k, 1))) ' End If ' ' ' If Asc(Mid(gps_mesg, k, 1)) = 32 And bln_latitude_mesg = False Then ' bln_latitude_mesg = True ' MsgBox ("latitude_mesg=" & latitude_mesg) '-------------Check Point 12--------------' ' k = k + 1 ' End If ' ' ' ' ''''''''''''''''''''''''''''''''''''''move cursor to ":" '''''''''''''''''''' ' If Asc(Mid(gps_mesg, k, 1)) = 58 And bln_cursor3 = False And bln_cursor2 = True And bln_latitude_mesg = True Then ' bln_cursor3 = True ' 'MsgBox (Asc(Mid(gps_mesg, k, 1))) ' k = k + 1 ' End If ' ' ''''''''''''''''''''''''''''''''''''''Find actual longitude from msg'''''''''''''''''''' ' If Asc(Mid(gps_mesg, k, 1)) > 32 And bln_cursor2 = True And bln_cursor3 = True And bln_latitude_mesg = True And bln_longitude_mesg = False Then ' longitude_mesg = longitude_mesg + Mid(gps_mesg, k, 1) ' 'MsgBox (Asc(Mid(gps_mesg, k, 1))) ' End If ' ' ' If Asc(Mid(gps_mesg, k, 1)) = 32 And bln_longitude_mesg = False Then ' bln_longitude_mesg = True ' 'MsgBox (Asc(Mid(gps_mesg, k, 1))) ' MsgBox ("longitude_mesg=" & longitude_mesg) '-------------Check Point 13--------------' ' k = k + 1 ' ' End If ' ' ' ''''''''''''''''''''''''''''''''''''''move cursor to ":" '''''''''''''''''''' ' If Asc(Mid(gps_mesg, k, 1)) = 58 And bln_cursor4 = False And bln_cursor2 = True And bln_cursor3 = True And bln_latitude_mesg = True And bln_longitude_mesg = True Then ' bln_cursor4 = True ' k = k + 1 ' End If ' ' ' ''''''''''''''''''''''''''''''''''''''Find actual GPS_Time from msg'''''''''''''''''''' ' If Mid(gps_mesg, k, 1) > vbCr And bln_cursor2 = True And bln_cursor3 = True And bln_cursor4 = True And bln_latitude_mesg = True And bln_longitude_mesg = True And bln_time_of_gps_mesg = False Then ' time_of_gps_mesg = time_of_gps_mesg + Mid(gps_mesg, k, 1) ' End If ' ' ' ' If Mid(gps_mesg, k, 1) = vbCr And bln_time_of_gps_mesg = False Then ' bln_time_of_gps_mesg = True ' MsgBox ("time_of_gps_mesg=" & time_of_gps_mesg) '-------------Check Point 14--------------' ' End If ' Next ' ' ' ' Else ''''''''''''''''' Extract info from GSM Mesg'''''''''''''''''' ' gsm_mesg = data_mesg ' MsgBox ("gsm_mesg=" & gsm_mesg) ' MsgBox ("length of gsm_mesg=" & Len(gsm_mesg)) ' ' For i = 1 To Len(gsm_mesg) ' ' ' '''''''''''''''''''''''''''''''''''''''''Find actual Source from msg'''''''''''''''''''' ' If Asc(Mid(gsm_mesg, i, 1)) > 32 And bln_source_mesg = False Then ' source_mesg = source_mesg + Mid(gsm_mesg, i, 1) ' 'MsgBox (Asc(Mid(gsm_mesg, i, 1))) ' 'MsgBox ("source_mesg=" & source_mesg) ' ' ElseIf Asc(Mid(gsm_mesg, i, 1)) = 32 And bln_source_mesg = False Then ' bln_source_mesg = True ' MsgBox ("source_mesg=" & source_mesg) '-------------Check Point 15--------------' ' MsgBox ("Length of source_mesg=" & Len(source_mesg)) ' i = i + 1 ' ' End If ' ' ' '''''''''''''''''''''''''''''''''''''''''Find actual destination from msg'''''''''''''''''''' ' If Asc(Mid(gsm_mesg, i, 1)) > 32 And bln_source_mesg = True And bln_dest_mesg = False Then ' dest_mesg = dest_mesg + Mid(gsm_mesg, i, 1) ' 'MsgBox (Asc(Mid(gsm_mesg, i, 1))) ' 'MsgBox ("dest_mesg=" & dest_mesg) ' ' ElseIf Asc(Mid(gsm_mesg, i, 1)) = 32 And bln_dest_mesg = False Then ' bln_dest_mesg = True ' MsgBox ("dest_mesg=" & dest_mesg) '-------------Check Point 16--------------' ' MsgBox ("Length of dest_mesg=" & Len(dest_mesg)) ' i = i + 1 ' ' End If ' ' ' '''''''''''''''''''''''''''''''''''''''''Find actual Bus no. from msg'''''''''''''''''''' ' If Mid(gsm_mesg, i, 1) > vbCr And bln_source_mesg = True And bln_dest_mesg = True And bln_busno_mesg = False Then ' busno_mesg = busno_mesg + Mid(gsm_mesg, i, 1) ' 'MsgBox ("busno_mesg=" & busno_mesg) ' 'MsgBox (Mid(gsm_mesg, i, 1)) ' ' ElseIf Mid(gsm_mesg, i, 1) = vbCr And bln_busno_mesg = False Then ' bln_busno_mesg = True ' MsgBox ("busno_mesg=" & busno_mesg) '-------------Check Point 17--------------' ' MsgBox ("Length of busno_mesg=" & Len(busno_mesg)) ' ' End If ' ' Next ' ' ' End If ' ' ' ' ''''''''''''''''''''''''''''''''''''''for GUI '''''''''''''''''''''''''''''''''' ' ' ' ' ' ''''''''''''''''''''''''''''''''''''''For Gps GuI Info''''''''''''''''''''''''''''''''''''''' ' MsgBox ("bln_gps_mesg=" & bln_gps_mesg) ' ' If bln_gps_mesg = True Then ' Text2.Text = gps_mesg ' Text3.Text = time_of_gps_mesg ' Text12.Text = latitude_mesg ' Text13.Text = longitude_mesg ' End If ' ' ' ' ' ''''''''''''''''''''''''''''''''''''''For GSM GuI Info''''''''''''''''''''''''''''''''''''''' ' MsgBox ("bln_gsm_mesg=" & bln_gsm_mesg) ' ' If bln_gsm_mesg = True Then ' ' ' Text5.Text = date_of_mesg & " " & time_of_mesg ' Text6.Text = len_mesg ' Text8.Text = busno_mesg ' Text9.Text = source_mesg ' Text10.Text = dest_mesg ' Text11.Text = busno_mesg ' ' If (Len(source_mesg)) > 1 Or Len(dest_mesg) > 1 Or (Len(busno_mesg)) > 3 Then ' bln_valid_status = False ' MsgBox ("bln_valid_status=" & bln_valid_status & " Received Query Not Valid") ' End If ' ' End If ' ' ' ''''''''''''''''''''''''''''''''''Calculate externally Time using Spped n Distance------------------------' ' Text14.Text = "6" ' ' Text15.Text = "25" ' ' distance = Val(Text14.Text) ' ' speed = Val(Text15.Text) ' ' Text16.Text = (distance / speed) * 60 ' ' ' ' '''''''''''''''''''''''''''''''''chk uor GPS signal'''''''''''''''''''''''''' ' ' If Text12.Text = "Text12" Then ' bln_gps_status = False ' Text19.Text = "keep searching" ' Else ' bln_gps_status = True ' Text19.Text = "ok" ' End If ' MsgBox ("bln_gps_status=" & bln_gps_status) ' ' ' ''''''''''''''''''''''''''''''''Chk uor GSM Signal''''''''''''''''''''''''''''' ' ' If Text8.Text = "Text8" Then ' bln_gsm_status = False ' Text20.Text = "keep searching" ' Else ' bln_gsm_status = True ' Text20.Text = "ok" ' End If ' ' ' MsgBox ("bln_gsm_status=" & bln_gsm_status) 'End If ' ' ''''''''''''''''''''''''''Chk For Both Mesg''''''''''''''''''''''''''''''''' ' ' ' ' ' ' ''''''''''''''''''''If all Mesg Received n all r correct then only Send Mesg to GSM user'''''''''''''''''''''''' ' If bln_valid_status = True Then ' ' ' If bln_gps_status = True And bln_gsm_status = True And bln_gsm_mesg = True Then ' ' Text17.Text = "Bus No=" & Text8.Text & " Approx. Arrival in Time=" & Text16.Text & "Min." & " Source Stn=" & Text9.Text & " Destination Stn=" & Text10.Text & " Gps Latitute=" & Text12.Text & " Gps Longitude=" & Text13.Text & " Gps (Last Location) Mesg Time=" & Text3.Text & vbCr & Chr(26) ' 'MsgBox ("AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10)) ' ' 'MSComm1.Output = "AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10) ' 'MSComm1.Output = Text17.Text & vbCr & Chr(26) ' ' 'MsgBox (Text17.Text & vbCr & Chr(26)) ' ' sent_mesg_count = sent_mesg_count + 1 ' MsgBox ("Mesg Sent") ' ' End If ' ' ' ''''''''''''''''''''Else show n send Invalid Mesg Error TO User''''''''''''''''' ' ' ' Else ' Text17.Text = "Not Valid mesg " & vbCr & "Your Mesg:" & data_mesg & "Is Unreadable. Please Use Standard Format as 1 5 707 " & vbCr & Chr(26) ' 'MsgBox ("Not Valid mesg " & vbCr & "Your Mesg:" & data_mesg & "Is Unreadable. Please Use Standard Format as 1 5 707 ") ' 'MSComm1.Output = "AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10) ' 'MSComm1.Output = "Not Valid mesg " & vbCr & "Your Mesg:" & data_mesg & " Is Unreadable. Please Use Standard Format as 1 5 707 " & vbCr & Chr(26) ' unvalid_mesg_count = unvalid_mesg_count + 1 ' Text8.Text = "Text8" ' Text9.Text = "Unreadable" ' Text10.Text = "Unreadable" ' Text11.Text = "Unreadable" ' MsgBox ("Error Report Mesg Sent") ' ' End If ' ' ' ' 'Text18.Text = Text4.Text 'Text21.Text = gsm_received_mesg_count 'Text22.Text = gps_received_mesg_count 'Text23.Text = sent_mesg_count 'Text24.Text = unvalid_mesg_count ' 'received_mesg_count = gps_received_mesg_count + gsm_received_mesg_count 'Text25.Text = received_mesg_count 'Text26.Text = sent_mesg_count + unvalid_mesg_count 'MsgBox ("check for new mesg") ' 'ElseIf Len(input_buffer) > 16 Then ' MSComm1.Output = "AT+CMGD=1" & vbCrLf ' 'MsgBox (MSComm1.Input) ' MsgBox ("Mesg Deleted") ' 'End If ' 'Next ' 'End Sub ' 'Private Sub Command2_Click() ' ' Text16.Text = (Val(Text14.Text) / Val(Text15.Text)) * 60 ' ' If Text19.Text = "ok" And Text20.Text = "ok" Then ' Text17.Text = "Bus No=" & Text8.Text & " Approx. Arrival in Time=" & Text16.Text & "Min." & " Source Stn=" & Text9.Text & " Destination Stn=" & Text10.Text & " Gps Latitute=" & Text12.Text & " Gps Longitude=" & Text13.Text & " Gps (Last Location) Mesg Time=" & Text3.Text & vbCr & Chr(26) ' 'MsgBox ("AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10)) ' ' 'MSComm1.Output = "AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10) ' 'MSComm1.Output = Text17.Text & vbCr & Chr(26) ' ' 'MsgBox (Text17.Text & vbCr & Chr(26)) ' ' ' MsgBox ("Modified Mesg Sent") ' End If ' End Sub Private Sub Command3_Click() 'MSComm1.PortOpen = False End Sub Private Sub Form_Load() 'first load this If MSComm1.PortOpen Then MSComm1.PortOpen = False 'Check com1 is being used by other process or not ,if yes den close that process MSComm1.CommPort = 1 'select com port 1 MSComm1.Settings = "9600,N,8,1" 'set the badurate,parity,databits,stopbits for the connection MSComm1.DTREnable = True 'ready pc to take data from modem MSComm1.RTSEnable = True 'ready modem to take commands from pc MSComm1.InputLen = 0 'Read entire Rx Buffer MSComm1.RThreshold = 1 'enable the oncomm event for every reveived character MSComm1.SThreshold = 1 'enable the oncomm event for send characters MSComm1.Handshaking = comNone ' disable handshaking MSComm1.PortOpen = True 'open the serial port 'MSComm1.Output = "AT+CTZU=1" & vbCr '-------------GMT to IST converte-----------' MSComm1.Output = "AT+CMGR=1" & vbCr 'Check First incoming mesg of Gsm Modem End Sub Private Sub Form_Unload(Cancel As Integer) If MSComm1.PortOpen = True Then MSComm1.PortOpen = False Exit Sub 'Close #1 End If End Sub Private Sub MSComm1_OnComm() 'MSComm1.CommPort = 1 ' 'set the badurate,parity,databits,stopbits for the connection 'MSComm1.Settings = "9600,N,8,1" ' 'set the DRT and RTS flags 'MSComm1.DTREnable = True ' 'ready pc to take data from modem ' 'MSComm1.RTSEnable = True ' 'ready modem to take commands from pc ' ' 'MSComm1.InputLen = 0 'Read entire Rx Buffer ' ' 'enable the oncomm event for every reveived character 'MSComm1.RThreshold = 1 ' 'enable the oncomm event for send characters 'MSComm1.SThreshold = 1 ' 'MSComm1.Handshaking = comNone ' disable handshaking ' 'MSComm1.PortOpen = True 'open the serial port 'MSComm1.Output = "AT+CTZU=1" & vbCr '-------------GMT to IST converte-----------' MSComm1.Output = "AT+CMGR=1" & vbCr 'MsgBox ("MSComm1.input=" & MSComm1.Input) '--------------Check Point 1--------------' ''''''''''''''''''''''''''''''''''declaration of variables'''''''''''' Dim gps_mesg As String Dim gsm_mesg As String Dim input_buffer As String Dim mobile_no_mesg As String Dim strReceivedMsg As String Dim date_of_mesg As String Dim time_of_mesg As String Dim time_of_gps_mesg As String Dim data_mesg As String Dim source_mesg As String Dim dest_mesg As String Dim busno_mesg As String Dim gps_mob_no As String Dim gsm_mob_no As String Dim latitude_mesg As String Dim longitude_mesg As String Dim len_mesg As String Dim gps_status As String Dim gsm_status As String Dim unvalid_mesg As String '------------------------ make sure tht all variables are Clear------------------- gps_mesg = "" gsm_mesg = "" input_buffer = "" mobile_no_mesg = "" strReceivedMsg = "" date_of_mesg = "" time_of_mesg = "" time_of_gps_mesg = "" data_mesg = "" source_mesg = "" dest_mesg = "" busno_mesg = "" gps_mob_no = "" gsm_mob_no = "" latitude_mesg = "" longitude_mesg = "" len_mesg = "" gps_status = "" gsm_status = "" '''''''''''''''''''declaration of variables'''''''''''' Dim time As Integer Dim speed As Integer Dim distance As Integer Dim received_mesg_count As Integer Dim sent_mesg_count As Integer Dim unvalid_mesg_count As Integer Dim gps_received_mesg_count As Integer Dim gsm_received_mesg_count As Integer ''''''''''''''''''''''''''define status flags''''''''''''''''''''''''' Dim bln As Boolean Dim bln_gsm_mesg As Boolean Dim bln_gps_mesg As Boolean Dim bln_valid_status As Boolean Dim bln_mobile_no_mesg As Boolean Dim bln_busno_mesg As Boolean Dim bln_date_of_mesg As Boolean Dim bln_time_of_mesg As Boolean Dim bln_time_of_gps_mesg As Boolean Dim bln_data_mesg As Boolean Dim bln_source_mesg As Boolean Dim bln_dest_mesg As Boolean Dim bln_cursor_data_mesg As Boolean Dim bln_latitude_mesg As Boolean Dim bln_longitude_mesg As Boolean Dim bln_gps_time As Boolean Dim bln_cursor2 As Boolean Dim bln_cursor3 As Boolean Dim bln_cursor4 As Boolean Dim bln_gps_status As Boolean Dim bln_gsm_status As Boolean Dim bln_blank_mesg As Boolean ''''''''''''''''''' make sure tht all flags are false'''''''''' bln = False bln_gsm_mesg = False bln_gps_mesg = False bln_valid_status = False bln_mobile_no_mesg = False bln_busno_mesg = False bln_date_of_mesg = False bln_time_of_mesg = False bln_time_of_gps_mesg = False bln_data_mesg = False bln_source_mesg = False bln_dest_mesg = False bln_cursor_data_mesg = False bln_latitude_mesg = False bln_longitude_mesg = False bln_cursor2 = False bln_cursor3 = False bln_cursor4 = False bln_gps_statu = False bln_gsm_status = False bln_blank_mesg = False 'gps_mesg = "+CMGR:" & Chr(34) & "REC UNREAD" & Chr(34) & "," & Chr(34) & "+919870687973" & Chr(34) & ",," & Chr(34) & "11/03/05,21:12:56+22" & vbCr & vbLf & "Latitude is:19.65" & Chr(32) & "longitude is:71.65" & Chr(32) & "time:12.12" & vbCr & vbLf & "OK" & vbCr 'MsgBox (gps_mesg) 'gsm_mesg = "+CMGR:" & Chr(34) & "REC UNREAD" & Chr(34) & "," & Chr(34) & "+919870132518" & Chr(34) & ",," & Chr(34) & "11/03/05,21:12:56+22" & vbCr & vbLf & "1 2 707" & Chr(32) & vbCr & vbLf & "OK" & vbCr 'MsgBox (gsm_mesg) 'unvalid_mesg = "+CMGR:" & Chr(34) & "REC UNREAD" & Chr(34) & "," & Chr(34) & "+919870132518" & Chr(34) & ",," & Chr(34) & "11/03/05,21:12:56+22" & Chr(34) & vbCr & "hello fuck off" & Chr(32) & vbCr & "OK" & vbCr If serial_loop = 1 Then gps_mob_no = "+919699606076" Else gps_mob_no = "+919870687973" End If Do input_buffer = input_buffer + MSComm1.Input 'If serial_loop = 1 Or serial_loop = 3 Then input_buffer = input_buffer + gps_mesg 'ElseIf serial_loop = 6 Or serial_loop = 7 Then input_buffer = input_buffer + gsm_mesg 'Else 'input_buffer = input_buffer + unvalid_mesg 'End If Loop Until InStr(input_buffer, "OK" & vbCr) MsgBox ("input_buffer=" & input_buffer) MsgBox ("Length of input_buffer=" & Len(input_buffer)) If InStr(input_buffer, "REC UNREAD") Then MsgBox ("input_buffer=" & input_buffer) '--------------Check Point 2--------------' Incoming_Mesg.Text = Incoming_Mesg.Text + input_buffer strReceivedMsg = input_buffer len_mesg = Len(strReceivedMsg) '''''''''''Find the length of incoming mesg''''''' MsgBox ("len_mesg=" & len_mesg) '--------------Check Point 3--------------' '''''''''''''''''''''''''''''''''''Condition For Valid Mesg'''''''''''''''''''''''''''' If (len_mesg 160) Then bln_valid_status = True MsgBox ("bln_valid_status=" & bln_valid_status) Text7.Text = "Yes" Else bln_valid_status = False MsgBox ("bln_valid_status=" & bln_valid_status) Text7.Text = "No" End If '''''''''''''''''''''''''''''''''''''If valide Mesg Then only Go ahead'''''''''''''''''''' If (bln_valid_status = True) Then ''''''''''''''''''''''''''''Chk Whole incoming string and compare and extract useful info'''''''''''''''''''''''' For j = 1 To Len(strReceivedMsg) If Asc(Mid(strReceivedMsg, j, 1)) = 44 And bln = False And bln_mobile_no_mesg = False Then bln = True j = j + 1 End If '''''''''''''''''''''''''''''''''''''Find Mobile Number from message''''''''''''''''''''''' If bln = True And bln_mobile_no_mesg = False Then If Asc(Mid(strReceivedMsg, j, 1)) > 44 And Asc(Mid(strReceivedMsg, j, 1)) > 34 Then mobile_no_mesg = mobile_no_mesg + Mid(strReceivedMsg, j, 1) End If If Asc(Mid(strReceivedMsg, j, 1)) = 44 Then bln_mobile_no_mesg = True MsgBox ("mobile_no_mesg=" & mobile_no_mesg) '-------------Check Point 4--------------' MsgBox ("gps_mob_no=" & gps_mob_no) '-------------Check Point 5--------------' '''''''''''''''''''''''''''''''''''''Chk Mesg belongs to GPS modem OR GSM Modem'''''''''''''''''''' If mobile_no_mesg = gps_mob_no Then bln_gps_mesg = True gps_received_mesg_count = gps_received_mesg_count + 1 Text1.Text = mobile_no_mesg MsgBox ("Received Mesg IS Gps mesg") '-------------Check Point 6--------------' Else bln_gsm_mesg = True gsm_received_mesg_count = gsm_received_mesg_count + 1 Text4.Text = mobile_no_mesg MsgBox ("Received Mesg IS Gsm mesg") '-------------Check Point 7--------------' End If j = j + 2 End If End If ''''''''''''''''''''''''''''''''''''''''''''Find Date from msg'''''''''''''''''''''''''' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = False Then If Asc(Mid(strReceivedMsg, j, 1)) > 44 And Asc(Mid(strReceivedMsg, j, 1)) > 34 Then date_of_mesg = date_of_mesg + Mid(strReceivedMsg, j, 1) 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) End If If Asc(Mid(strReceivedMsg, j, 1)) = 44 Then bln_date_of_mesg = True MsgBox ("date_of_mesg=" & date_of_mesg) '-------------Check Point 8--------------' j = j + 1 End If End If '''''''''''''''''''''''''''''''''''''''''''''Find Time from msg''''''''''''''''''''''' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = False Then If Asc(Mid(strReceivedMsg, j, 1)) > 44 And Asc(Mid(strReceivedMsg, j, 1)) > 34 And Mid(strReceivedMsg, j, 1) > "+" Then time_of_mesg = time_of_mesg + Mid(strReceivedMsg, j, 1) 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) End If If Asc(Mid(strReceivedMsg, j, 1)) = 44 Or Mid(strReceivedMsg, j, 1) = "+" Then bln_time_of_mesg = True 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) MsgBox ("time_of_mesg=" & time_of_mesg) '-------------Check Point 9--------------' j = j + 1 End If End If '''''''''''''''''''''''''''''''''''''''''''''move cursor towards data of mesg ''''''''''''' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = True And bln_cursor_data_mesg = False Then If Mid(strReceivedMsg, j, 1) = vbLf Then bln_cursor_data_mesg = True 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) j = j + 1 End If End If '''''''''''''''''''''''''''''''''''''''''Find actual data from msg'''''''''''''''''''' If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = True And bln_cursor_data_mesg = True And Mid(strReceivedMsg, j, 1) > vbLf And bln_data_mesg = False Then data_mesg = data_mesg + Mid(strReceivedMsg, j, 1) 'MsgBox (Asc(Mid(strReceivedMsg, j, 1))) End If If bln = True And bln_mobile_no_mesg = True And bln_date_of_mesg = True And bln_time_of_mesg = True And bln_cursor_data_mesg = True And Mid(strReceivedMsg, j, 1) = vbLf And bln_data_mesg = False Then bln_data_mesg = True MsgBox ("Data mesg=" & data_mesg) '-------------Check Point 10--------------' End If Next '------------------------check Incoming Mesg is Gps mesg or Gsm mesg--------------------------' If bln_gps_mesg = True Then gps_mesg = data_mesg MsgBox ("gps_mesg=" & gps_mesg) '-------------Check Point 11--------------' For k = 1 To Len(gps_mesg) ''''''''''''''''''''''''''''''''''''''move cursor to ":" '''''''''''''''''''' If Asc(Mid(gps_mesg, k, 1)) = 58 And bln_cursor2 = False Then bln_cursor2 = True 'MsgBox (Asc(Mid(gps_mesg, k, 1))) k = k + 1 End If ''''''''''''''''''''''''''''''''''''''Find actual latitude from msg'''''''''''''''''''' If Asc(Mid(gps_mesg, k, 1)) > 32 And bln_cursor2 = True And bln_latitude_mesg = False Then latitude_mesg = latitude_mesg + Mid(gps_mesg, k, 1) 'MsgBox (Asc(Mid(gps_mesg, k, 1))) End If If Asc(Mid(gps_mesg, k, 1)) = 32 And bln_latitude_mesg = False Then bln_latitude_mesg = True MsgBox ("latitude_mesg=" & latitude_mesg) '-------------Check Point 12--------------' k = k + 1 End If ''''''''''''''''''''''''''''''''''''''move cursor to ":" '''''''''''''''''''' If Asc(Mid(gps_mesg, k, 1)) = 58 And bln_cursor3 = False And bln_cursor2 = True And bln_latitude_mesg = True Then bln_cursor3 = True 'MsgBox (Asc(Mid(gps_mesg, k, 1))) k = k + 1 End If ''''''''''''''''''''''''''''''''''''''Find actual longitude from msg'''''''''''''''''''' If Asc(Mid(gps_mesg, k, 1)) > 32 And bln_cursor2 = True And bln_cursor3 = True And bln_latitude_mesg = True And bln_longitude_mesg = False Then longitude_mesg = longitude_mesg + Mid(gps_mesg, k, 1) 'MsgBox (Asc(Mid(gps_mesg, k, 1))) End If If Asc(Mid(gps_mesg, k, 1)) = 32 And bln_longitude_mesg = False Then bln_longitude_mesg = True 'MsgBox (Asc(Mid(gps_mesg, k, 1))) MsgBox ("longitude_mesg=" & longitude_mesg) '-------------Check Point 13--------------' k = k + 1 End If ''''''''''''''''''''''''''''''''''''''move cursor to ":" '''''''''''''''''''' If Asc(Mid(gps_mesg, k, 1)) = 58 And bln_cursor4 = False And bln_cursor2 = True And bln_cursor3 = True And bln_latitude_mesg = True And bln_longitude_mesg = True Then bln_cursor4 = True k = k + 1 End If ''''''''''''''''''''''''''''''''''''''Find actual GPS_Time from msg'''''''''''''''''''' If Mid(gps_mesg, k, 1) > vbCr And bln_cursor2 = True And bln_cursor3 = True And bln_cursor4 = True And bln_latitude_mesg = True And bln_longitude_mesg = True And bln_time_of_gps_mesg = False Then time_of_gps_mesg = time_of_gps_mesg + Mid(gps_mesg, k, 1) End If If Mid(gps_mesg, k, 1) = vbCr And bln_time_of_gps_mesg = False Then bln_time_of_gps_mesg = True MsgBox ("time_of_gps_mesg=" & time_of_gps_mesg) '-------------Check Point 14--------------' End If Next Else ''''''''''''''''' Extract info from GSM Mesg'''''''''''''''''' gsm_mesg = data_mesg MsgBox ("gsm_mesg=" & gsm_mesg) MsgBox ("length of gsm_mesg=" & Len(gsm_mesg)) For i = 1 To Len(gsm_mesg) '''''''''''''''''''''''''''''''''''''''''Find actual Source from msg'''''''''''''''''''' If Asc(Mid(gsm_mesg, i, 1)) > 32 And bln_source_mesg = False Then source_mesg = source_mesg + Mid(gsm_mesg, i, 1) 'MsgBox (Asc(Mid(gsm_mesg, i, 1))) 'MsgBox ("source_mesg=" & source_mesg) ElseIf Asc(Mid(gsm_mesg, i, 1)) = 32 And bln_source_mesg = False Then bln_source_mesg = True MsgBox ("source_mesg=" & source_mesg) '-------------Check Point 15--------------' MsgBox ("Length of source_mesg=" & Len(source_mesg)) i = i + 1 End If '''''''''''''''''''''''''''''''''''''''''Find actual destination from msg'''''''''''''''''''' If Asc(Mid(gsm_mesg, i, 1)) > 32 And bln_source_mesg = True And bln_dest_mesg = False Then dest_mesg = dest_mesg + Mid(gsm_mesg, i, 1) 'MsgBox (Asc(Mid(gsm_mesg, i, 1))) 'MsgBox ("dest_mesg=" & dest_mesg) ElseIf Asc(Mid(gsm_mesg, i, 1)) = 32 And bln_dest_mesg = False Then bln_dest_mesg = True MsgBox ("dest_mesg=" & dest_mesg) '-------------Check Point 16--------------' MsgBox ("Length of dest_mesg=" & Len(dest_mesg)) i = i + 1 End If '''''''''''''''''''''''''''''''''''''''''Find actual Bus no. from msg'''''''''''''''''''' If Mid(gsm_mesg, i, 1) > vbCr And bln_source_mesg = True And bln_dest_mesg = True And bln_busno_mesg = False Then busno_mesg = busno_mesg + Mid(gsm_mesg, i, 1) 'MsgBox ("busno_mesg=" & busno_mesg) 'MsgBox (Mid(gsm_mesg, i, 1)) ElseIf Mid(gsm_mesg, i, 1) = vbCr And bln_busno_mesg = False Then bln_busno_mesg = True MsgBox ("busno_mesg=" & busno_mesg) '-------------Check Point 17--------------' MsgBox ("Length of busno_mesg=" & Len(busno_mesg)) End If Next End If ''''''''''''''''''''''''''''''''''''''for GUI '''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''For Gps GuI Info''''''''''''''''''''''''''''''''''''''' MsgBox ("bln_gps_mesg=" & bln_gps_mesg) If bln_gps_mesg = True Then Text2.Text = gps_mesg Text3.Text = time_of_gps_mesg Text12.Text = latitude_mesg Text13.Text = longitude_mesg End If ''''''''''''''''''''''''''''''''''''''For GSM GuI Info''''''''''''''''''''''''''''''''''''''' MsgBox ("bln_gsm_mesg=" & bln_gsm_mesg) If bln_gsm_mesg = True Then Text5.Text = date_of_mesg & " " & time_of_mesg Text6.Text = len_mesg Text8.Text = busno_mesg Text9.Text = source_mesg Text10.Text = dest_mesg Text11.Text = busno_mesg If (Len(source_mesg)) > 1 Or Len(dest_mesg) > 1 Or (Len(busno_mesg)) > 3 Then bln_valid_status = False MsgBox ("bln_valid_status=" & bln_valid_status & " Received Query Not Valid") End If End If ''''''''''''''''''''''''''''''''''Calculate externally Time using Spped n Distance------------------------' Text14.Text = "6" Text15.Text = "25" distance = Val(Text14.Text) speed = Val(Text15.Text) Text16.Text = (distance / speed) * 60 '''''''''''''''''''''''''''''''''chk uor GPS signal'''''''''''''''''''''''''' If Text12.Text = "Text12" Then bln_gps_status = False Text19.Text = "keep searching" Else bln_gps_status = True Text19.Text = "ok" End If MsgBox ("bln_gps_status=" & bln_gps_status) ''''''''''''''''''''''''''''''''Chk uor GSM Signal''''''''''''''''''''''''''''' If Text8.Text = "Text8" Then bln_gsm_status = False Text20.Text = "keep searching" Else bln_gsm_status = True Text20.Text = "ok" End If MsgBox ("bln_gsm_status=" & bln_gsm_status) End If ''''''''''''''''''''''''''Chk For Both Mesg''''''''''''''''''''''''''''''''' ''''''''''''''''''''If all Mesg Received n all r correct then only Send Mesg to GSM user'''''''''''''''''''''''' If bln_valid_status = True Then If bln_gps_status = True And bln_gsm_status = True And bln_gsm_mesg = True Then Text17.Text = "Bus No=" & Text8.Text & " Approx. Arrival in Time=" & Text16.Text & "Min." & " Source Stn=" & Text9.Text & " Destination Stn=" & Text10.Text & " Gps Latitute=" & Text12.Text & " Gps Longitude=" & Text13.Text & " Gps (Last Location) Mesg Time=" & Text3.Text & vbCr & Chr(26) 'MsgBox ("AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10)) 'MSComm1.Output = "AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10) 'MSComm1.Output = Text17.Text & vbCr & Chr(26) 'MsgBox (Text17.Text & vbCr & Chr(26)) sent_mesg_count = sent_mesg_count + 1 MsgBox ("Mesg Sent") End If ''''''''''''''''''''Else show n send Invalid Mesg Error TO User''''''''''''''''' Else Text17.Text = "Not Valid mesg " & vbCr & "Your Mesg:" & data_mesg & "Is Unreadable. Please Use Standard Format as 1 5 707 " & vbCr & Chr(26) 'MsgBox ("Not Valid mesg " & vbCr & "Your Mesg:" & data_mesg & "Is Unreadable. Please Use Standard Format as 1 5 707 ") 'MSComm1.Output = "AT+CMGS=" & Chr$(34) & Text4.Text & Chr$(34) & Chr(13) & Chr(10) 'MSComm1.Output = "Not Valid mesg " & vbCr & "Your Mesg:" & data_mesg & " Is Unreadable. Please Use Standard Format as 1 5 707 " & vbCr & Chr(26) unvalid_mesg_count = unvalid_mesg_count + 1 Text8.Text = "Text8" Text9.Text = "Unreadable" Text10.Text = "Unreadable" Text11.Text = "Unreadable" MsgBox ("Error Report Mesg Sent") End If Text18.Text = Text4.Text Text21.Text = gsm_received_mesg_count Text22.Text = gps_received_mesg_count Text23.Text = sent_mesg_count Text24.Text = unvalid_mesg_count received_mesg_count = gps_received_mesg_count + gsm_received_mesg_count Text25.Text = received_mesg_count Text26.Text = sent_mesg_count + unvalid_mesg_count MsgBox ("check for new mesg") ElseIf Len(input_buffer) > 16 Then MSComm1.Output = "AT+CMGD=1" & vbCr MsgBox (MSComm1.Input) MsgBox ("Mesg Deleted") End If MSComm1.Output = "AT+CMGR=1" & vbCr End Sub i want to use this code n what want is that if i gt mesg frm gps user then it wll go on +cmti :1 then how would i delete it n make a space for gsm user to ask query by sending mesg n process both n reply to gsm use my emial id is : [email protected] plz help me this is our final proj

good afternoon sir i am creating an application in c#.net in that i have to send and receive SMS and which can also connect the internet throug mobile to PC. so sir can u help me for that?? i want the code for the internet connection using the mobile modem. and the Sms sending and recieving message. My Email id is [email protected] Thanx Sir in advance

Hello sir, I m Jitendra Bisht i need your help How I can Print Data from printer using my c program under DOS environment. have already used PRN keyword but it doesn't work. Dear Sir can u send my solution for it. my email-id is [email protected]

sir i am sowmya(BE), doing my final yr project on topic "REMOTE MONITORING AND CONTROL OF WINDMILL USING ENBEDDED SYSTEMS"...we are using keil c lang for programming,i wanted to know form you know,how to receive a data by gsm modem that has been sent using mobile phone.. can you help me out with entire picture of interfacing layout behind it, since i am new to GSM technology.i will be even more thank full, if you can mail me the details to my id .. [email protected]

can u please help me out sending at commands to a gsm MODEM in c programming..?

sir,, i want code for sending and receiving sms by PHP and i want store sms in My Sql .. pls help me sir thanking this my mail id: [email protected]