fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Relaiskarte am Parallelport 2 (Code ungetestet)

Uploader:	Sebastian
Datum/Zeit:	29.09.2011 10:35:08

Dim Bitmuster (1 To 2) As UByte

Dim BitmusterNeu As UByte

Dim i As Integer, DruckerPort As Integer



Bitmuster(1)  = &B00000001

Bitmuster(2)  = &B00000010



' Binaere ODER-Verknuepfung:

'      00000001

'  OR  00000010

'  ------------

'   =  00000011



BitmusterNeu = Bitmuster(1) OR Bitmuster(2)



DruckerPort = FREEFILE



'Druckerport/LPT fuer binaere Ausgabe oeffnen:

OPEN LPT "LPT:" FOR BINARY AS #DruckerPort

PUT #DruckerPort, , BitmusterNeu

'PUT = gib aus!

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.