MSComm Communication


Private Const Max_Packetsize as long=1024

Private Sub cmdTest_Click()

MSComm1.CommPort=1

SetupPort MSComm1

MSComm1.PortOpen=Trueal

If Err.Number=0 then

MsgBox “Ok”

Else

MsgBox “Gagal” vbCrlf & Err.Description

End If

End Sub

Private Function SetupPort(objCom as MSComm)

With ObjCom

.Break=False

.DTREnable=True

.EOFEnable=False

.Handshaking=comNone

.InBufferCount=0

InBufferSize=Max_Packetsize

.InputLen=Max_Packetsize

.InputMode=comInputModeText

.NullDiscard=False

.OutBufferCount=0

.OutBufferSize=Max_Packetsize

.ParityReplace=chr(0)

.Rtreshold=1

.Sthreshold=0

.Settings=”115200,N,8,1″

End with

End Function

One response to “MSComm Communication

  1. source code vb6: how to control multi out sound.
    example : from computer(with 8sound application) – usb hub(8channel out) – soundboster(8) – speaker(8).
    “How to control output sound to channel out(usb hub)??

    Please…..

    Thank you

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s