A
Alan Martin
Guest
Hi folks
I desparately need guidance
As part of a learning process I am trying to put together a database which will make a call to a remote unit, ask it a few questions and record the results.
I have started with this little piece of code. I makes the call and clears the call and works ok.
What I need is some way of displaying the data going out and coming back in and also some way of recording the data..
If any one has had success with this type of project I would love to hear from you..
Private Sub Command1_Click()
Dim activexctl3_oncomm As Object
Dim instring As String
txtIn = buffer$
ActiveXCtl3.CommPort = 1
ActiveXCtl3.Settings = "9600,n,8,1"
ActiveXCtl3.InputLen = 0
ActiveXCtl3.PortOpen = True
ActiveXCtl3.Output = "atd0162xxxxxxx" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & ActiveXCtl3.InputData
Loop Until InStr(buffer$, "Connect" & vbCrLf)
ActiveXCtl3.PortOpen = False
End Sub
I desparately need guidance
As part of a learning process I am trying to put together a database which will make a call to a remote unit, ask it a few questions and record the results.
I have started with this little piece of code. I makes the call and clears the call and works ok.
What I need is some way of displaying the data going out and coming back in and also some way of recording the data..
If any one has had success with this type of project I would love to hear from you..
Private Sub Command1_Click()
Dim activexctl3_oncomm As Object
Dim instring As String
txtIn = buffer$
ActiveXCtl3.CommPort = 1
ActiveXCtl3.Settings = "9600,n,8,1"
ActiveXCtl3.InputLen = 0
ActiveXCtl3.PortOpen = True
ActiveXCtl3.Output = "atd0162xxxxxxx" & Chr$(13)
Do
DoEvents
buffer$ = buffer$ & ActiveXCtl3.InputData
Loop Until InStr(buffer$, "Connect" & vbCrLf)
ActiveXCtl3.PortOpen = False
End Sub
