fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

input problem

Uploader:	oldcoolman
Datum/Zeit:	27.11.2007 22:58:48

OPEN  "COM1:19200,N,8,1,CS0,DS0,CD0,BIN" FOR RANDOM AS #3

PRINT #3, CHR(1);      'stop

DO

LOOP UNTIL LOC(3)

serin = ASC(INPUT(1, #3))

IF serin <> 1 THEN PRINT "Fehler", serin: SLEEP

'Do                     'ohne stopbefehl st„nige Anzeige in einer Schleife

FOR x = 0 TO 7

  FOR y = 0 TO 15

        LOCATE y + 4, (x * 10) + 1

        PRINT x * 16 + y;

        LOCATE y + 4, (x * 10) + 6

        PRINT #3, CHR(5);              'Byte anfordern

        DO

        LOOP UNTIL LOC(3)               'auf ack warten

        serin = ASC(INPUT(1, #3))

        PRINT #3, CHR(x * 16 + y);     'Adresse; ausgeben

        DO

        LOOP UNTIL LOC(3)               'auf Byte warten

        serin = ASC(INPUT(1, #3))

        PRINT HEX(serin); "h"

  NEXT y

NEXT x

'LOOP UNTIL INKEY > ""

PRINT #3, CHR(0);      'Start

CLOSE

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.