Forum Sveta kompjutera - Prikaz jedne poruke - Komunikacija sa LPT portom u XP-u

rile · 14.6.2009, 4:27

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

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

odnosno

Kod:

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

rekao bih da je sintaksa

Kod:

  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)

14.6.2009, 4:27	#4
rile Član Član od: 9.7.2007. Poruke: 119 Zahvalnice: 2 Zahvaljeno 31 puta na 29 poruka	Re: komunikacija sa LPT portom u XP Sa io.dll nikada nisam radio, tako da ne znam, ali sudeci po ovome ovde: http://programming.majosoft.com/html...nd_window.html odnosno Kod: Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte rekao bih da je sintaksa Kod: 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)