hi everbody

i am using visual basic 2005.  i am write a modem control program and
get callerID value. i am send a AT command to modem.


Dim mscomm1 As New MSCommLib.MSComm

mscomm1.CommPort = 3
mscomm1.PortOpen = True
mscomm1.Output = "AT#CID=1"
mscomm1.Output = "AT%CCID=1"
mscomm1.Output = "AT+VCID=1"
mscomm1.Output = "AT#CC1"
mscomm1.Output = "AT*ID1"

every command return OK or ERROR.

Sub KontrolEt()
        'control telephone line
        Try
            Dim m As String
            Dim r As String = TextBox1.Text

            m = r.Substring(123, 1)


            If m = "0" Then
                r = r.Substring(123, 11)
                GoTo there
            End If

            If m = "0" Then

                Timer1.Enabled = False
                Me.BarButtonItem17.Enabled = True
                mscomm1.PortOpen = False

                TextBox1.Text = ""
                MsgBox("no number")
                frmMusteriSec.Show()
            Else
                r = r.Substring(123, 7)
            End If
there:

            Timer1.Enabled = False
            mscomm1.PortOpen = False

            TextBox1.Text = ""

            frmSiparisAl.FormShow(1, "", m)

        Catch ex As Exception

        End Try
    End Sub

telephone ring and my program error code : Exception from HRESULT:
0x800A1F52. what is this code. but this code run vb.net 2003 and no
problem

Hi,

You should be using the System.IO.Ports namespace, not MSComm.

However, your code will not work for several reasons (which will be true for
MSComm or System.IO.Ports).

1.  You must terminate each command to the modem with a carriage return
(vbCr).  For example:
mscomm1.Output = "AT#CID=1" & vbCr

2.  You MUST wait between commands to the modem, sufficient time for the
modem to process THAT command and to return a result -- the easiest way is
to call a function that looks for that specific modem response (often "OK" &
vbCrLf).  If you do not wait, the modem with "ERROR".

The CID results will be available (with appropriate code) via the OnComm
event.  You enable OnComm receive events by setting mscomm.RThreshold = 1.
Remember to set RTSEnable = True, also.

PrintPreview problem
Ternary Operator?
static methods
Flashing when switching mdi forms
Page_Load vs Submit_Click - which one first?
sql question
rounding time
Single instance application
list box to combo box
Name 'ImageUpLoad' is not declared