fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Ansteuerung des Parallelports mit FB

Uploader:	gast
Datum/Zeit:	04.08.2005 23:00:38

'Autor: KB



Option Explicit

'$inclib: 'inpout32'

declare function InPort alias "Inp32" (byval PortAddress as integer) as integer

declare sub OutPort alias "Out32" (byval PortAddress as integer, byval data as integer)

Dim lp as Long

Dim bt as Long



For lp = 1 to 10

  For bt = 0 to 200

    OutPort (888, bt)

    Sleep 20

    Locate 1, 1: Print "Bit Output: "; bt; "  "

    If inkey$ <> "" then End

  Next bt

Next lp

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.