Ako imas LPT port onda mozes na sledeci nacin:
U VB napravis modul sa sledecim sadrzajem:
Code:
Public Declare Sub out0 Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Public Declare Function inp0 Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Slika paralelnog porta.
Ako hoces da koristis data port adresa je 378h(888 decimalno) za LPT1 ili 278h za LPT2.
Odgovarajuce bite na portu postavljas sledecom fu-jom:
Code:
Call out0(Adresa, Vrednost)
npr, ako busilicu palis preko najnizeg bita na data portu[LPT1]:
Code:
Call out0(888,1)
a gasis:
Code:
Call out0(888,0)
Pretpostavljam da ces busilicu ukljucivati pomocu releja.
Relej ne mozes direktno vezati na paralelni port, posto je izlazna struja paralelnog porta svega 0,5 mA, a za relej je potrebno barem 50-100 mA. To bi mogao resiti na jednostavan nacin pomocu tranzistora (npr BD139) i nekoliko otpornika + dioda. Pored toga treba ti jos dodatno napajanje od 12 V (ako je relej na 12V), koje cak mozes da uzmes iz racunara.
Da bi ovo sve radilo jos ti je samo potreban fajl: inpout32.dll (proveri da li ga imas na racunaru)