[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 164
  • Last Modified:

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.
.
0
alexgo
Asked:
alexgo
  • 5
  • 2
1 Solution
 
a111a111a111Commented:
Is Comm2 use by the Mouse or any other device?
0
 
a111a111a111Commented:
Change the
comm2.comport=2
to : comm2.CommPort = 2
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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
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

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 5
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now