Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Schnittstellen initialisieren
Autor: Budget
Datum: 11.11.03 09:15
Hallo zusammen! Habe noch eine eigene Variante herausgefunden. Sehr einfach,aber Wirkungsvoll! Ich überprüfe hier das vorhandensein der Schnittstelle 1 - 16. Ich benutze das MSCOMM-Steuerelement! Sub Schnittini() Dim zaehler As Single On Error GoTo ErrorHandler For zaehler = 1 To 16 MSComm.CommPort = zaehler MSComm.PortOpen = True //gibt Rückmeldung,wenn falsch geht zu MSComm.PortOpen = False //errorhandler Next zaehler Exit Sub ErrorHandler: Resultat(zaehler) = Resultat(zaehler) + 1 Resume Next End Sub hier kommt die Auswertung des Resultat(zaehler) von oben: Sub Schnittauswahl() Dim zaehler As Single Dim zaehler1 As Single For zaehler = 1 To 16 If Resultat(zaehler) = 0 Then Combo5.AddItem zaehler //hier zeige ich alle Schnittstellen an,die vorhanden waren Else //-die keinen Fehler hatten zaehler1 = zaehler1 + 1 End If Next zaehler If zaehler1 = 16 Then MsgBox ("Es kann keine serielle Schnittstelle gefunden werden!") Close End End If End Sub

Schnittstellen initialisieren	986	Budget	28.10.03 13:51
Re: Schnittstellen initialisieren	689	collix	31.10.03 17:38
Re: Schnittstellen initialisieren	1.028	Ghost	06.11.03 15:58
Re: Schnittstellen initialisieren	792	Budget	11.11.03 09:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen