Hannz
10-14-2003, 08:30 PM
Option Explicit
Dim dummy As String
Private Sub Command1_Click()
MSComm1.Output = "ati" + vbCr
Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
Text1.Text = Text1.Text + MSComm1.Input
End If
Loop
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
dear all,
i am doing a project, and after reading quite a lot forums about
mscomm, and a lot of coding too, i still can't get a hold on how we actually receive message from the device. note that i am using a nokia 6610 mobile phone as the modem, therefore i use the at commands i downloaded from forum nokia (at command set for nokia gsm products, version 1.0).
what i'm trying to do is, retrieve the text "nokia" from the device,
generated from the at command "ati" (similar to at+gmi) which supposed to request manufacturer identification. it works just fine with the
hyperterminal. i've traced this code, and apparently when it is executing "mscomm1.input", a "run time error '8020' : error reading comm device" occurs. it happens all the time =(
any idea about what am i suppose to do?
Dim dummy As String
Private Sub Command1_Click()
MSComm1.Output = "ati" + vbCr
Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
Text1.Text = Text1.Text + MSComm1.Input
End If
Loop
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
dear all,
i am doing a project, and after reading quite a lot forums about
mscomm, and a lot of coding too, i still can't get a hold on how we actually receive message from the device. note that i am using a nokia 6610 mobile phone as the modem, therefore i use the at commands i downloaded from forum nokia (at command set for nokia gsm products, version 1.0).
what i'm trying to do is, retrieve the text "nokia" from the device,
generated from the at command "ati" (similar to at+gmi) which supposed to request manufacturer identification. it works just fine with the
hyperterminal. i've traced this code, and apparently when it is executing "mscomm1.input", a "run time error '8020' : error reading comm device" occurs. it happens all the time =(
any idea about what am i suppose to do?