Styring af parrallelport

Det er ikke noget problem - du skal dog bruge en DLL, da VB ikke direkte understøtter skrivning til porten. Jeg bruger denne: http://www.driis.mobilixnet.dk/port95nt.zip

Den fungerer under alle versioner af Windows, og er nem at bruge. Der er brugervejledning med (Kør port95nt.exe, så installeres brugervejledning + dll på din maskine).

Du bruger dll'en ved først at deklarere de funktioner fra den, som du ønsker at bruge - f.eks.; hvis du ønsker en funktion til at skrive en værdi til porten (ie. sætte de 8 datapins), skal du deklarere flg.
Public Declare Sub Outp Lib "dlportio.dll" Alias "DlPortWritePortUchar" (ByVal Port As Long, ByVal Value As Byte)

Du bruger den så således:
Outp(&H378, 255) ' sætter alle pins til 1

LPT1 ligger på de fleste systemer på &h378.

ok, det er jeg helt med på, jeg sætter alle ben til 1 da 255 skrives 11111111 binært eller hvad?

Jeg kan desværre ikke teste det før om et par dage, men du får nu dine point nu. Tak

Ja, netop, den binære repræsentation af det tal du sender ud, svarer til hvad der står på pins'ne. Hvis du f.eks. vil sætte sidste pin høj (D7) og resten lav, bruger du:
Outp(&H378, 128)

Fordi 128 skrives som 10000000 binært.

Hvis du kigger på denne her:
http://www.driis.mobilixnet.dk/pport.jpg
Så svarer mindst betydende bit (LSB) i den værdi, du sender til porten, til databit 0 (D0) og mest betydende bit (MSB) svarer til databit 7 (D7).

Håber, du kan bruge det til noget ;-)