Ho realizzato un programma che deve gestire la porta seriale per ricevere dati da un moden GSM ed ho utilizzato il seguente codice:
Private Sub Comm1_OnComm()
Dim posizione As Integer
Dim j As Integer
Dim Buffer As Variant
On Error Resume Next
Select Case Comm1.CommEvent
Case comEvReceive
If (FrmMain.Comm1.InBufferCount > 0) And (FrmMain.Comm1.PortOpen = True) Then
InputData = ""
FrmMain.Comm1.InputLen = 0
While FrmMain.Comm1.InBufferCount > 0
Buffer = FrmMain.Comm1.Input
For j = 0 To UBound(Buffer)
InputData = InputData & Chr(CByte(Buffer(j)))
Next j
Wend
FrmMain.Comm1.InBufferCount = 0
'Chiamata alla funzione di decodifica
If InputData <> "" Then decodifica_com InputData
End If
End Select
Ogni tanto, ma non sempre, compare uno di questi due errori
Errore 92 For Loop not initialized
Oppure
Out of string space
Penso che siano dovuti a questa parte di programma in quanto il ciclo for č soltanto qui, ma non riesco a capire a cosa possano essere dovuti. Ero convinta che avendo messo InBufferCount > 0 avrei potuto tutelarmi da questi problemi ma non č cosė...
Non so pių che pesci prendere.....