fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Nullmodemkabeltest - Server

Uploader:	AndT
Datum/Zeit:	03.04.2009 13:48:07

dim as ubyte dsignal,csignal

dim as string KEY

dim as ubyte ff = freefile

PRINT "OPEN COM"

OPEN COM "COM1:115200,N,8,2,CS,DS" FOR RANDOM AS #ff

PRINT "READY"

PRINT "SEND"

DO

dsignal = int(rnd*256)

WRITE #1,dsignal

print chr(dsignal);

input #1,csignal

if dsignal <> csignal then print "SIGNAL ERROR DETECTED"



SLEEP 1

LOOP

PRINT "DONE"

SLEEP

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.