473,388 Members | 1,499 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,388 software developers and data experts.

HELP! MSCOMM with USB PORT

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
4 8979
willakawill
1,646 1GB
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
6,596 Expert 4TB
There's a really good article here.
There's lots of info here.
Feb 17 '07 #3
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
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

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

Similar topics

21
by: Dave | last post by:
After following Microsofts admonition to reformat my system before doing a final compilation of my app I got many warnings/errors upon compiling an rtf file created in word. I used the Help...
9
by: Tom | last post by:
A question for gui application programmers. . . I 've got some GUI programs, written in Python/wxPython, and I've got a help button and a help menu item. Also, I've got a compiled file made with...
6
by: wukexin | last post by:
Help me, good men. I find mang books that introduce bit "mang header files",they talk too bit,in fact it is my too fool, I don't learn it, I have do a test program, but I have no correct doing...
3
by: Colin J. Williams | last post by:
Python advertises some basic service: C:\Python24>python Python 2.4.1 (#65, Mar 30 2005, 09:13:57) on win32 Type "help", "copyright", "credits" or "license" for more information. >>> With...
7
by: Corepaul | last post by:
Missing Help Files When I enter "recordset" as the keyword and search the Visual Basic Help index, I get many topics of interest in the resulting list. But there isn't any information available...
5
by: Steve | last post by:
I have written a help file (chm) for a DLL and referenced it using Help.ShowHelp My expectation is that a developer using my DLL would be able to access this help file during his development time...
8
by: Mark | last post by:
I have loaded Visual Studio .net on my home computer and my laptop, but my home computer has an abbreviated help screen not 2% of the help on my laptop. All the settings look the same on both...
10
by: JonathanOrlev | last post by:
Hello everybody, I wrote this comment in another message of mine, but decided to post it again as a standalone message. I think that Microsoft's Office 2003 help system is horrible, probably...
1
by: trunxnirvana007 | last post by:
'UPGRADE_WARNING: Array has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"' 'UPGRADE_WARNING: Couldn't resolve...
0
by: hitencontractor | last post by:
I am working on .NET Version 2003 making an SDI application that calls MS Excel 2003. I added a menu item called "MyApp Help" in the end of the menu bar to show Help-> About. The application...
0
by: taylorcarr | last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
0
by: Charles Arthur | last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
0
by: ryjfgjl | last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
0
by: ryjfgjl | last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
0
BarryA
by: BarryA | last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
1
by: Sonnysonu | last post by:
This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...
0
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
0
by: Hystou | last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
0
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.