grimaenriqueznaomi
asked on
communicate with mscomms
I am doing this telephone system, but i need to communicate with msComms. Unfortunately, i am not that familiar with ms comms nor how to connect to it. i did download the mscomms32.ocx file but i dunno wot to do next....all i know is that i need a serial port (rs232) and a modem +phone+phoneline to test it...but to code up to mscomms i dunno. is there some1 who can send me a sample of such code?or explain how?
thanking you so much
regards Naomi
thanking you so much
regards Naomi
ASKER
is there an english site where i can see the example or not pls....10x so much
Naomi
Naomi
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
okie i thank u lots
regards Naomi
regards Naomi
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Dwalfisch
i thank you for your comment....i did find an at comand site....but by anychance since im pretty new to vb have u got a sample of mscomms?
thankz
Naomi
i thank you for your comment....i did find an at comand site....but by anychance since im pretty new to vb have u got a sample of mscomms?
thankz
Naomi
ASKER
yeah basically my problem is that the pc has to record the data, it will just need to print it on screen! i did select the com port and the baud rate etc.....but i dont know how to continue! this is what i did...
Private Sub mscomx_OnComm()
If mscomx.CommEvent = comEvReceive Then
buff = buff & mscomx.Input
If Right(buff, 3) = Chr(13) & Chr(13) & Chr(13) Then
'If buff = comPortOpen Then
'mscomx.InBufferCount
If connection = True Then
mscomx.Input
End If
End If
End Sub
Private Sub connecting()
mscomx.InBufferCount = 0
receive = comEvReceive
connection = True
End Sub
Private Sub mscomx_OnComm()
If mscomx.CommEvent = comEvReceive Then
buff = buff & mscomx.Input
If Right(buff, 3) = Chr(13) & Chr(13) & Chr(13) Then
'If buff = comPortOpen Then
'mscomx.InBufferCount
If connection = True Then
mscomx.Input
End If
End If
End Sub
Private Sub connecting()
mscomx.InBufferCount = 0
receive = comEvReceive
connection = True
End Sub
grimaenriqueznaomi:
This old question needs to be finalized -- accept an answer, split points, or get a refund. For information on your options, please click here-> http:/help/closing.jsp#1
Experts: Post your closing recommendations! Who deserves points here?
This old question needs to be finalized -- accept an answer, split points, or get a refund. For information on your options, please click here-> http:/help/closing.jsp#1
Experts: Post your closing recommendations! Who deserves points here?
Recommendation: Split points between dwalfisch & Sethi
grimaenriqueznaomi:
This old question needs to be finalized -- accept an answer, split points, or get a refund. For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations! No comment means you don't care.
This old question needs to be finalized -- accept an answer, split points, or get a refund. For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations! No comment means you don't care.
Recommendation: Split points between dwalfisch & Sethi
Moderator, my recommended disposition is:
Split points between: Sethi and dwalfisch
*** Thanks Sethi. Sorry about the deja vu!
DanRollins -- EE database cleanup volunteer
Split points between: Sethi and dwalfisch
*** Thanks Sethi. Sorry about the deja vu!
DanRollins -- EE database cleanup volunteer
;-)
http://www.freevbcode.com/ShowCode.Asp?ID=2236