×

Discussion Board

Results 1 to 5 of 5
  1. #1
    Registered User
    Join Date
    Jan 2005
    Posts
    1

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

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

  2. #2
    Registered User
    Join Date
    Feb 2004
    Posts
    12
    I think,connectivity SDK is better thanCOM

  3. #3
    Regular Contributor
    Join Date
    Nov 2003
    Posts
    221
    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

  4. #4
    Registered User
    Join Date
    Jan 2005
    Posts
    8
    You can overcome the VB MSComm problems by using the Windows API.

  5. #5
    Registered User
    Join Date
    Jan 2005
    Posts
    1

    It will work there ..becoz its working here

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
×