Send SMS through VB application using nokia 8210, infra-red port

[alvinyoong]

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 !!!!!!!!!!!!!

[yzxushu]

I think,connectivity SDK is better thanCOM

[Zamba]

It's nothing new that MSComm has troubles with some IR drivers, I suppose that's the same error here. Replacing the IR driver may solve the problem, for example with IRCOMM2K (www.ircomm2k.de), which has documented that it has no problems with MSComm.

I think I also saw that VB sample quite a few times here. Let me note here that you should always check what the phone returns. You may also find samples here: http://www.scampers.org/steve/sms/

Zamba

[Douglas128]

You can overcome the VB MSComm problems by using the Windows API.

[ttimtim]

just try this routine whn u reading the port

MSComm1.InBufferCount = 0
MSComm1.Output = pstrCMD ' at commad
dteElapsed = Time
Do
DoEvents
strInput = strInput + MSComm1.Input
If DateDiff("s", dteElapsed, Time) > 15 Then
fnSendATCommand = "ERROR"
Exit Function
End If
Loop Until (InStr(strInput, "OK" & vbCrLf) Or InStr(strInput, "ERROR" & vbCrLf) Or InStr(strInput, ">"))


have tested this its working fine smoothly can read the messages and all.. we r using this for auto reply for information/registartion ..