SMS development! plz help! | Search |
NowSMS Support Forums ⬆ MMS & SMS Technical Discussions (unsupported) ⬆ Archive through October 05, 2005 ⬆ |
◄ ► |
Author | Message | |||
chong New member Username: Alvin Post Number: 2 Registered: 01-2005 |
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 !!!!!!!!!!!!! | |||
wktsang1 Unregistered guest |
I face the same porblem with chong, now i can send SMS message while can't read the received message, anyone can help? |