fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Relaiskarte am Parallelport (Code ungetestet)

Uploader:	Sebastian
Datum/Zeit:	29.09.2011 10:21:20

Dim Bitmuster (1 To 11) As UByte

Dim i As Integer, DruckerPort As Integer



Bitmuster(1)  = &B10000001

Bitmuster(2)  = &B10000000

Bitmuster(3)  = &B00000001

Bitmuster(4)  = &B11111111

Bitmuster(5)  = &B10101010

Bitmuster(6)  = &B01010101

Bitmuster(7)  = &B11001100

Bitmuster(8)  = &B00110011

Bitmuster(9)  = &B00011001

Bitmuster(10) = &B00001111

Bitmuster(11) = &B11110000



DruckerPort = FREEFILE



'Druckerport/LPT fuer binaere Ausgabe oeffnen:

OPEN LPT "LPT:" FOR BINARY AS #DruckerPort

DO 'Schleife, um Folgendes immer wieder zu tun:

    FOR i = LBound(Bitmuster) To UBound(Bitmuster)

        'Mach Folgendes fuer alle 11 Bitmuster, das aktuelle

        'wird durch Laufindex i bestimmt:

        PRINT "Gebe aus: "; BIN(Bitmuster(i), 8)

        PUT #DruckerPort, , Bitmuster(i)

        ' ^-- das i-te Bitmuster auf den Druckerport ausgeben

        Sleep 1000  'eine Sekunde (1000ms) warten

    NEXT i  'Naechstes Bitmuster ist dran!

    'Wenn alle 11 ausgegeben wurden, geht es wegen Do...Loop

    'wieder von vorne los, es sei denn, es wird eine Taste

    'gedrueckt.

LOOP UNTIL INKEY <> ""

CLOSE #DruckerPort  'Verbindung wird geschlossen.



PRINT "Ausgabe beendet. Zum Schliessen des Programms beliebige Taste druecken."



SLEEP

END

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.