LED / Serial Port

her er en ActiveX der kan styre printerporten. Den er lidt nemmere at bruge :-)
www.thda.dk/NT Port.zip

Du indstiller portadressen til 888 (LPT1)
Value bestemmer hvilke udgange der skal være on/off
0 = alle off
255 = alle on

Hver udgang har en værdi: (Udgeng - værdi)
1 = 1
2 = 2
3 = 4
4 = 8
5 = 16
6 = 32
7 = 64
8 = 128

du kan styre hvilke udgange der skal være on/off ved at sætte Value til f.eks. 4 + 16 = 20 (udgang 3 og 5 on)

eks.: NTPORT1.Value = 20

LPT Port:
Ben 2 - 9 er udgangene 1 - 8
Ben 17 - 25 er GND

Hvis det ikke har nogen betydning at alle portene er on/off samtidig, så kan du bare montere LED'en mellem en af udgangene og en GND.
Hvis du vil tænde LED'en:  NTPORT1.Value = 255
Hvis du vil slukke LED'en:  NTport1.Value = 0

linket virker ikke... :(

jeg vil ikke lige frem en haj indenfor VB, er det muligt for dig at lave et progam eksempel og sende det til expert@area404.dk ? Så vil moi blive meget glad :)

Ups... www.thda.dk/NTPort.zip

jaaaa, nu sidder jeg med VB.NET, så det bliver nok lidt svært...
Men jeg kan da lige skrive en lille guide :)


----------------------------------------------

Installer NTPORT.

Opret et nyt projekt i VB.

Højreklik på toolbox'en og vælg "Add/remove components" (mener det er det det hedder)

Find "NTPORT" på listen, og sæt X ved den.

Tryk OK.

Du har nu en ny kontrol i din toolbox. Sæt den et tilfældigt sted på din form.

I properties vinduet kan du indstille adresse m.m.

Opret 2 knapper på formen.

Dobbeltklik knap 1.

Indsæt følgende kode: NTPORT1.Value = 255

Dobbeltklik knap 2.

Indsæt følgende kode: NTPORT1.Value = 0

----------------------------------------------

Her er et program, men jeg kan ikke love at det virker på din maskine...
Det kan både læse og skrive til porten.

www.thda.dk/LPT_Port_Control_2.0.zip

Du kan jo se om du kan bruge det til noget :)

ups... det bruger ikke ntport.

Det bruger en driver: www.thda.dk/port95nt.zip
Det er så en lidt anden løsning, men den kan det samme.

hmm... jeg kan ikke få det til at virke, men nu gider jeg sq ikke bøvle med det mere... du får 50% points for hjælpen, du skal jo ikke lide under min dumhed *gg*