[es] - Pitanje u vezi LPT-a

programer15
tunguzija

Član broj: 279634
Poruke: 153
89.111.244.*

+8 Profil

^{04.07.2011. u 15:11 - pre 155 meseci}

E vak znam da LPT ima 5 ulaznih msm(status port) e sad da bi registrovao signal na status portu podrebno je dovesti masu(GND) na neki pin od status porta ali mene zanima kako bih i na koji pin dovesti +5V i da ocitam na programu znaci program nije problem vec me znanima kako bih mogao to uraditi sto sam gore naveo!!!

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Pitanje u vezi LPT-a

^{04.07.2011. u 16:59 - pre 155 meseci}

Ako ces da ocitavas samo stanje pina svejedno je da li je 5V ili 0, osim ako neces nesto drugo sa tih 5V?

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

programer15
tunguzija

Član broj: 279634
Poruke: 153
89.111.244.*

+8 Profil

Re: Pitanje u vezi LPT-a

^{04.07.2011. u 18:57 - pre 155 meseci}

Uspio sam postici to jednostavno sa D0 sam uzimao +5V i na bilo koji pin status porta spojio i ocitao u svakom slucaju hvala!!!

Odgovor na temu

arakis
Filip Dulic

Član broj: 23312
Poruke: 293
*.dynamic.isp.telekom.rs.

+4 Profil

Re: Pitanje u vezi LPT-a

^{05.07.2011. u 08:19 - pre 155 meseci}

kolko se ja secam, kompjuter cita "1" kad pin "visi" a 0 kad je povezan na "masu", drugim recima, ako pravis neki prekidac koji treba da ti se ocita u programu, opusteno mozes da stavis prekid za "1", spoj na masu za "0", netreba ti 5V sa D0 uopste.

Odgovor na temu

programer15
tunguzija

Član broj: 279634
Poruke: 153
89.111.244.*

+8 Profil

Re: Pitanje u vezi LPT-a

^{05.07.2011. u 08:51 - pre 155 meseci}

Evo kako sam to uradio!!!

evo koda

Code:
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Integer)
Private Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Private Declare Function PortWordIn Lib "IO.DLL" (ByVal Port As Integer) As Integer
Private Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer) As Long
Private Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Private Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function IsDriverInstalled Lib "IO.DLL" () As Boolean
Public Broj, LPTadresa, SPTAdresa As Integer

Private Sub Form_Load()
    LPTadresa = &H378
    SPTAdresa = LPTadresa + 1
End Sub
Private Sub Option1_Click()
If Option1 Then LPTadresa = &H378
    SPTAdresa = LPTadresa + 1
End Sub
Private Sub Option2_Click()
    If Option2 Then LPTadresa = &H278
    SPTAdresa = LPTadresa + 1
End Sub
Private Sub Option3_Click()
    If Option3 Then LPTadresa = &H3BC
    SPTAdresa = LPTadresa + 1
End Sub

Private Sub Timer1_Timer()
Dim j As Integer
Dim Broj As Byte
Dim i As Byte

  Broj = PortIn(SPTAdresa)
  Broj = Broj Xor 128


    If GetPortBit(SPTAdresa, 5) Then
      Shape2.BackColor = RGB(0, 0, 255)
      Else
      Shape2.BackColor = RGB(255, 255, 255)
     End If
  End Sub]

Prikačeni fajlovi

picture1.JPG - 3.37k

Odgovor na temu