Komunikacija sa LPT portom u XP-u

[Sead]

Pozdrav svima
Tek sam poćeo malo raditi u VB i savladao sam komunikaciju sa LPT što se tiće slanja signala na pinove LPT-a. Ne mogu da riješim kontrolu stanja na nekom pinu ( koliko sam razumio pinovi 11,12,13 i 15). Radio sam to nekada pod Win98 ali ne ide pod XP-om.

[rile]

Na XP (i koliko znam ostalim Windows sistemima zasnovanim na NT tehnologiji) nije moguce direktno ptistupiti hardverskim portovima iz korisnickog programa.

Resenje je koriscenje odgovarajuceg drajvera kojih ima dosta (potrazi na Internetu).

[Sead]

Hvala na javljanju.

Koristim io.dll i radi super promjena stanja na pinovim 2 - 9 komandama

Call ClrPortBit(&H378, 1)
Call NotPortBit(&H378, 6)
Call RightPortShift(&H378, True)
Call LeftPortShift(&H378, True)

Našao sam da se kontrola stanja na pinovim vrši naredbom

Portin (&H379 .....

E, ovaj dio neznam. Da li treba ispred Portin da bude sta napisano i iza adrese porta kako odrediti koji je pin u pitanju. Nisam uspio da nadjem neki primjer koda.

[rile]

Sa io.dll nikada nisam radio, tako da ne znam, ali sudeci po ovome ovde:

http://programming.majosoft.com/html...nd_window.html

odnosno

Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte

rekao bih da je sintaksa

  Dim b As Byte

  b = PortIn(&H379)
  If (b And &H80) Then
  Rem  ... MSB bit je postavljen na 1
  EndIf

(nisam isprobavao kod, mozda nije ni ispravna VB sintaksa, ali princip bi trebalo da je taj)

[Sead]

Hvala Rile
Radi.
Uspio sam nešto i sa GetPortBit(&H379, 4) rem 4 je za pin broj 13.
Ovaj tvoj kod se odnosi na pin broj 11.
Hvala još jednom