Hvala, nasao sam sta treba....
Evo da napisem da ostale, ako jos nekom treba...
Program ukljucuje LPT1 ili LPT2 i iskljucuje
Mora se kopirati inpout32.dll na c:\windows\system i na c:\windows\system32
Code:
Imports System
Imports System.Runtime.InteropServices
Public Class Form1
Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Out(&H378, 255)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Out(&H3BC, 255)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Out(&H378, 0)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Out(&H3BC, 0)
End Sub
End Class
"Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short"
definise se funkcija
"Out(&H378, 255)" izlaz na LPT1 (adresa:&H378), 255 (11111111) ukljucuje sve portove
&H3BC je adresa LPT2 porta
Da napomenem: 255(11111111) 8 linija tkz data lines se obicno koriste za izlaz (out) adresa (888)((&H378)
sledecih 4 [15(1111)] tkz control lines adresa 890
sledece 5 [31(11111)] tkz status lines obicno se koriste za ulaz (in) adresa 889
Ovo je nesto malo ukratko....
Evo korisnog linka
http://www.aaroncake.net/electronics/vblpt.htm
[Ovu poruku je menjao zivadin_despot dana 05.08.2009. u 01:46 GMT+1]
SerialPort tool VB2008
