A volte mi capitano errori all' apertura delle porte com
ho scritto una gestione degli errori, è migliorabile ?
Sub com2init()
On Error GoTo error
Form1.MSComm1.CommPort = 2
Form1.MSComm1.Settings = "9600,N,8,1"
Form1.MSComm1.PortOpen = True
Form1.MSComm1.RThreshold = 3
Form1.MSComm1.InputMode = comInputModeBinary
Form1.MSComm1.InputLen = 0
Exit Sub
error:
If Err.Number = 8000 Then
Form1.MSComm1.PortOpen = False
Resume
End If
If Err.Number = 8005 Then
Resume Next
End If
If Err.Number = 8012 Then
Form1.MSComm1.PortOpen = False
Resume
End If
If Err.Number = 8013 Then
Resume Next
End If
Debug.Print Err.Number
Resume
End Sub