Program working abnormally for large number of handsets

[raman_xs]

I'm using MSComm control for developing a Personal Response System.

Following are the settings for MSComm control that I'm using:


MSComm1.CommPort = PortNo
MSComm1.Settings = "115200,N,8,1"
MSComm1.InputLen = 100
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.PortOpen = True


Following is the onComm event of the MSComm control:


Private Sub MSComm1_OnComm()
Dim i As Integer, j As Integer, k As Integer
Dim remoteno As Integer, keypressed As String
Dim a() As Byte
Dim buffer() As Byte
Dim BufferLength As Integer
Dim strbuffer As String
Dim diff As Double

Select Case MSComm1.CommEvent
'errors
Case comEventBreak
Case comEventCDTO
Case comEventCTSTO
Case comEventDSRTO
Case comEventFrame
Case comEventOverrun
Case comEventRxOver
Case comEventRxParity
Case comEventTxFull
Case comEventDCB

'events
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
strbuffer = ""
BufferLength = MSComm1.InBufferCount
If BufferLength > 0 Then
buffer = MSComm1.Input
k = 0
i = UBound(buffer)
For j = 0 To i
If j = 1 Then
remoteno = buffer(j)
ElseIf j = 5 Then
keypressed = buffer(j)
End If
strbuffer = strbuffer & buffer(j) & ":"
Next j
End If
'MsgForm strbuffer
Case comEvSend
Case comEvEOF
Case Else
End Select

If BufferLength > 0 Then
'Process user's response....
End If
End Sub


When the user gives response from his handset then each response is processed in the onComm event.

It's working fine for small no. of handsets but the problem arises when a large no. of handets are used.

Any help would be grateful.

Regards,
Raman

[Al42]

What's the hardware configuration? What's a "handset"? What does it send? Do you have one MSComm control for each handset?

BTW, all the Case lines that have no code associated with them can be deleted to make the code easier to read. IOW Select Case MSComm1.CommEvent
Case comEvReceive
strbuffer = ""