fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Com-Port-test

Uploader:	max06
Datum/Zeit:	06.02.2009 20:09:39

DIM buffer as string                                                            'Darin werden die ausgelesenen Daten gespeichert

DIM result as integer                                                           'Damit kannst du prüfen, ob der Port korrekt geöffnet wurde



result = OPEN COM ("COM5:4800,N,8,1" AS 1)                                      'Port öffnen und Ergebnis in "result" speichern



print "Port-Result: "; result                                                   'Port-Status ausgeben



DO while inkey <> chr(27)                                                     'ESC-Taste zum Beenden

    GET #1, , buffer                                                            'Einfach alle Daten auslesen

    if buffer <> "" then                                                      'Wenn Buffer nicht leer ist...

        PRINT buffer                                                            '... Buffer ausgeben ...

        buffer = ""                                                             '... und leeren

    END IF

LOOP



CLOSE                                                                           'Port wieder schließen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.