Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub Portauflistung()
'SUB: Schreibt alle verfügbaren Ports in die Combobox.
Me.ComboPort.Clear
Dim intPortNummer As Integer
On Error Resume Next
For intPortNummer = 1 To 16
Me.MSComm1.CommPort = intPortNummer
'Wenn Fehlernummer=8012, dann existiert der Port nicht.
'Andernfalls den Port öffnen:
If Err.Number <> 8012 Then Me.MSComm1.PortOpen = True
If Err.Number = 0 Then
'-->Port ist verfügbar!
Me.ComboPort.AddItem intPortNummer
'Port wieder schließen:
Me.MSComm1.PortOpen = False
ElseIf Err.Number = 8005 Then
'-->Port ist bereits geöffnet!
Me.ComboPort.AddItem intPortNummer & " (wird verwendet)"
Err.Clear
Else
Err.Clear
End If
Next
End Sub