I need to develop a VB application to which will communicate with n... | Search |
NowSMS Support Forums ⬆ NowSMS Support - MMS & Advanced Issues ⬆ Archive through June 06, 2005 ⬆ |
◄ ► |
Author | Message | |||
Anonymous |
i need to develop a VB application to which will communicate with nokia 8210 through infra-red (not serial port). below is the code:- ' Set up the communications port MSComm1.CommPort = 1 ' Com Port 1 ' Set for 9600 baud, no parity, 8 data, and 1 stop bit. MSComm1.Settings = "9600,N,8,1" ' Tell the control to read entire buffer when Input is used MSComm1.InputLen = 0 ' Open the port MSComm1.PortOpen = True ' Send an 'AT' command to the phone MSComm1.Output = "AT" & Chr$(13) & Chr(10) ' The phone will respond with an 'OK' ' Set up the phone for a text message MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10) ' The phone will respond with an 'OK' ---->>>>>i have problem to read the OK, when i debug until MSComm1.input------------------>>>>>>>>>>>>> Do 'DoEvents buffer$ = buffer$ & MSComm1.Input 'Debug.Print buffer$ Loop Until InStr(buffer$, "OK" & vbCrLf) Or InStr(buffer$, "ERROR" & vbCrLf) Or InStr(buffer$, "+CMTI") Or InStr(UCase(buffer$), "+CMGR") --->>>>>>The error is "Run-time error '8020' Error reading comm device ------------------------>>>>>>>>>>> ' Prep for SMS, give destination type and destination address. ' Enter the destination type and destination address to prep for SMS ' e.g. AT+CMGS="+2145551212",129 MSComm1.Output = "AT+CMGS= " & Chr(34) & "+2145551212" & Chr(34) & ",129" & Chr$(13) & Chr(10) ' The phone will return a'>' prompt, and await entry of the SMS message text. ' Now send the text to the phone and terminate with (Ctrl-Z) MSComm1.Output = "This is a test. WOW! " ' The phone will respond with a conformation containing the 'message reference number' eg. +CMGS: ' Close the port MSComm1.PortOpen = False From a terminal, it wan look like this: AT OK AT+CMGF=1 OK AT+CMGS="+15127752607",129 >This is a test. WOW! +CMGS: 49 OK Anybosy can help me....very urgent i need pass up my poject already......i cannot use VB to write/read AT command on nokia 8210. But i can write AT-Command and send message successful at hyper terminal. Is it the infra-red cannot read data? but i use other software can send message through infra-red. However, i test wih GSM modem serial cable are able send SMS. Hope u ALL can help me or send me sample applcation can send SMS through nokia 8210 by infra-red, not serial port THANK YOU !!!!!!!!!!!!! | |||
HENGKY Unregistered guest |
YES, I CAN HELP YOU i have answered your question at this url : http://www.control.com/1026203689/index_html | |||
prabhjeet80 Unregistered guest |
HI everybody...I'm making a project on "Messaging from web browser to a mobile". Can anybody kindly suggest me how to do it, I mean a Sample code for the same. I shall be grateful to you all Thanks...!! | |||
Anonymous |
how can i send more than one destination address ? what is the syntax ? AT+CMGS="+15127752607,+15125655656 ",129 | |||
Anonymous |
hi, This is anand. I am very in crusial stage in my projects. I am trying to change signals from orcch 32(that is in radio(two way communciation board) to my pc database (database like dbf). And , I don't how to convert that signals to ordinary database files.I don't that how to mscomm1 ocx in vb Pls help me with friendly C.T.Anand |