By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
457,731 Members | 1,100 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 457,731 IT Pros & Developers. It's quick & easy.

HELP! MSCOMM with USB PORT

P: 2
hi!
im running late for my college project deadline.. plz help me guys..
im using a gsm phone as gsm modem and tryn to send AT commands to it so as to send text message to a mobile number. it is assigned as COM4 port in hyperterminal and AT commands works fine in HYPERTERMINAL. when i program it on VB6.0 with MSCOMM port. it says

ERROR -"Could not set comm state. there may be one or more invalid comm parameter.".

program is..

Expand|Select|Wrap|Line Numbers
  1. Option Explicit
  2. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  3.  
  4.  
  5. Private Sub Command1_Click()
  6. Dim strSMS As String
  7. 'set contact number
  8. 'buffer you message here
  9. strSMS = "Hi!
  10. ' Set up the communications port
  11. MSComm1.CommPort = 4 ' Com Port 4
  12.  
  13. ' Set for 9600 baud, no parity, 8 data, and 1 stop bit.
  14. MSComm1.Settings = "9600,N,8,1"
  15.  
  16. ' Tell the control to read entire buffer when Input is used
  17. MSComm1.InputLen = 0
  18.  
  19. ' Open the port
  20. MSComm1.PortOpen = True
  21.  
  22. 'Before sending command
  23. MSComm1.Output = "+++" & vbCrLf
  24. 'wait a second
  25. Sleep 1000
  26. 'send at commands
  27. MSComm1.Output = "AT+CMGS=" & Chr(34) & "+919884378478" & Chr(34) & vbCrLf
  28.  
  29. While 1
  30.     'wait for 1 second or 2
  31.  
  32.     Sleep 1000      
  33.  
  34.     If StrComp(Left(MSComm1.Input, 1), ">", vbBinaryCompare) = 0 Then
  35.         MSComm1.Output = strSMS & Chr(26)
  36.         Sleep 2
  37.         'Before you do this pls remove the chr(26)
  38.         If StrComp(Replace(MSComm1.Input, Chr(26), ""), "OK", vbBinaryCompare) = 0 Then
  39.             'place your flag
  40.             GoTo ExitWhile
  41.         ElseIf StrComp(Replace(MSComm1.Input, Chr(26), ""), "ERROR", vbBinaryCompare) = 0 Then
  42.             'place your flag
  43.             GoTo ExitWhile
  44.         End If
  45.     Else
  46.         MsgBox MSComm1.Input
  47.         GoTo ExitWhile
  48.     End If
  49. Wend
  50.  
  51. ExitWhile:
  52.         Sleep 2000
  53.  
  54.  
  55. End Sub

this itself is a program refiined many times with the codin posted here..
GSM Phone- Motorola V3i Razr
OS - Winxp SP2
(and tryed chkin my device manager for the correct port number. it isn't there. there is com1 and printer port. com4 is not listed but in hyper terminal it is listed as com4.)
guys plz help me..got to submit my proj..
Feb 15 '07 #1
Share this Question
Share on Google+
4 Replies


100+
P: 1,646
Seems that this may be more to do with your particular machine. In the absence of any physical info I have moved you to the windows group. Maybe someone there has more experience with com ports
Feb 17 '07 #2

bartonc
Expert 5K+
P: 6,596
There's a really good article here.
There's lots of info here.
Feb 17 '07 #3

P: 2
Guys thanks, project is working some how..only serial comm code is left.. if any problem arises ll surely post queries here...
Feb 27 '07 #4

P: 1
Hi mithleshsridhar,

I am attempting to code the same function and am facing the same problem as you. Could you please forward me your solution? I am attempting with a Moto V3xx and wasn't sure if I was having a problem because the phone charges from USB or not.

Can anyone else help?
May 14 '07 #5

Post your reply

Sign in to post your reply or Sign up for a free account.