Communication Control Problem

I have VB5.0.
I have used communication control to transfer data between
2 computers in the following manner:

comm2.comport=2
comm2.portopen=true
comm2.inputlen=true
.
. Transferring data
.
comm2.portopen=false

When the EXE program finishes my computer STOPS (i must to
restart it). What may be a problem ?

Note: when i run the program from Visual Basic environment       there isn't the problem.
.
alexgoAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
a111a111a111Connect With a Mentor Commented:
Change the
comm2.comport=2
to : comm2.CommPort = 2
0
 
a111a111a111Commented:
Is Comm2 use by the Mouse or any other device?
0
 
a111a111a111Commented:
What is "comm2.InputLen = True" ?
It should have a value like 10 : "comm2.InputLen = 10"

The InputLen Property:
Sets and returns the number of characters the Input property reads from the receive buffer.
0
Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 
a111a111a111Commented:
If I am in the right direction than:

Private Sub Form_Load()
comm2.CommPort = 2
    comm2.PortOpen = True
    comm2.InputLen = 10 'True
    '.
    '.Transferring Data
    '.
    comm2.PortOpen = False
    MsgBox "done"
    End
End Sub

0
 
alexgoAuthor Commented:
inputlen=1 says that i don't want to transfer data greater than 1 byte
0
 
a111a111a111Commented:
inputlen=1 is fine.

So change it to:
Private Sub Form_Load()
       comm2.CommPort = 2
           comm2.PortOpen = True
           comm2.InputLen = 1 'True
           '.
           '.Transferring Data
           '.
           comm2.PortOpen = False
           MsgBox "done"
           End
       End Sub
0
 
alexgoAuthor Commented:
For a111a111a111:
I'm sorry on my error that i did in submitting. My proram is written as you sugest:
Private Sub Form_Load()
             comm2.CommPort = 2
                 comm2.PortOpen = True
                 comm2.InputLen = 1 'True
                 '.
                 '.Transferring Data
                 '.
                 comm2.PortOpen = False
                 MsgBox "done"
                 End
             End Sub

And in this case i have the described problem.
Thank you.
 
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.