Need Help for using Visual Basic 6 with Serial Port

[sanjay]

set objcomm = createobject (mscommlib.mscomm)

Hi there,

I am sort of used to Visual Basic 6 and need information..or some documents that can provide some knowledge or some examples on using Visual Basic 6 and programming in it for Serial Ports.

I know how to do it in Java but want to know in Visual Basic 6
I know you can do it trhough MSComm 6
but need some examples of already done stuff

Help would be appreciated

Thanks

 

[sadat007]

try to find at
**broken link removed**

 

[senthilkumar]

hai,

in MSDN,u got sample file mscomm

from that u learn lot of it

bye

 

[Eumel]

code snippet:

Private Function MakeString(v As Variant) As String
Dim t As String
t = ""
For i = 0 To UBound(v)
t = t & Chr(v(i))
Next i
MakeString = t
End Function


Set objComm = CreateObject("MSCOMMLib.MSComm.1")

objComm.CommPort = iPortNo
objComm.Settings = "38400,n,8,1"
objComm.Handshaking = 0
objComm.InputLen = 0
objComm.InBufferSize = 512
objComm.InputMode = 1
objComm.NullDiscard = False
objComm.DTREnable = False
objComm.RTSEnable = False
objComm.EOFEnable = False
objComm.RThreshold = 10 ' useless, events will not be fired
objComm.PortOpen = True

objComm.Output = "?"

lCount = 0
Do
SleepEx 10, False
lCount = lCount + 1
Loop Until (objComm.InBufferCount > 20) Or (lCount > WAIT_COUNT)

msResult = MakeString(objComm.input)

hope this will help

greetings from Germany

 

[sanjay]

Thank you guys for all the help..
Is there any site where one can find projects to practice and get their hands dirty on just to get the idea of this stuff

 

[SphinX]

Hi,

Many issues of EPE magazines covered this topic search the ebooks about How can you download EPE Magazine.

Bye

 

[sanjay]

yeah thank you guys for the information posted. It did help a lot .

Thanks

 

[Breeza]

See NTport library (VB samples in distrib)

https://www.zealsoftstudio.com/ntport/

It's really goog lib.

Good luck, Breeza.

 

[ZeleC]

u have also
www.pscode.com
u can find there some examples