Gepost door Jeroen Boere op woensdag 8 september 2004
Ook ik weet niet alles, in ieder geval nog niet alles van de printerpoort. Wel ben ik er achter gekomen dat je 12 bits uit en in kan sturen wat neer komt op een 4096 verschillende mogelijkheden. Dit komt omdat we nu alleen van de 8 data lijnen zijn uit gegaan. Maar ook de paperfeeder, strobe, enz. zijn vrij te programmeren. Een ander voordeel van de poort is omdat het paralelle data is is het zeer eenvoudig uit te breiden zonder eventuele hardware geheel opnieuw te hoeven ontwerpen / te verbouwen.
Ik heb hier met veel plezier aan gewerkt en hoop dat menig andere er veel aan zullen hebben. Mocht iemand aanvullingen hebben. Bijvoorbeeld hoe je data kan inlezen met de poort zou je mij daar een groot plezier mee doen. En kan ik dit ook hier er nog bij zetten.
Reacties
Goed verhaal professor botje! Mijn complimenten.
mooi verhaal, maar ik zou er nog wel wat spelfouten uithalen....
Het is een zeer duidelijk verhaal geworden, alleen: "Iedereen kan het na deze uitleg. Maar hier kan je een leuke handige tool downloaden wat geen spam, reclame of andere ongein kent" Het woordje HIER lijkt een link te zijn maar deze werkt niet bij mij
Ligt dit aan mijn pc of is de link vergeten?!
Verder HULDE!!
[Reactie gewijzigd op maandag 20 september 2004 22:06:16]
idd de link werkt niet, ik zal ff COer over emailen.
De rest over de vragen van de software enz. die van mij af komen gelieve de vragen naar mij te mailen en niet naar CO.
[Reactie gewijzigd op dinsdag 21 september 2004 22:47:24]
Proficiat professor botje,je bent erin geslaagd om een duidelijke uitleg te geven omtrent de printerpoort,in de meeste boeken is dit namelijk niet het geval.
Bedankt!!!
Omdat er soms een linkje niet zou werken;
Hier is alles nog een keer na te lezen en de linkjes werken altijd omdat ze lokaal op de server staan.
Goede uitleg kan meer als je denkt
denk ook aan stappenmotor stuuring enz.
Ziet er goed uit!!! Goede uitleg enzo maar ik werk met visual basic 5 en het lukt mij niet om de commando's te geven. Hij geeft een foutmelding als ik invoer wat er hierboven staat. Namenlijk:
Compile Error: Sub or Function not detected
Kunnen jullie mij helpen??
Alvast bedankt
En even overal het Ohm teken (dat er in firefox uitziet als een W) vervangen door "Ohm". Mooi gemaakt! Ik zou het ook eens proberen moest mijn parallelle poort niet door een printer bezet zijn
.
goede tutorial....
ik ga het zeker eens proberen hoor!
bedankt en groetjes van fast4ever!
Weet hier mischien iemand hoe je andere
poorten kan aansturen?
Ik ben vooral geintreseerd in USB en de COM
[Reactie gewijzigd op zondag 20 februari 2005 19:19:48]
Ik zou zeggen kijk is op deze site http://www.beyondlogic.org/
Daar staat wel het een en ander uitgelegd over de werking van de PPT, COM en USB poorten.
Op de site van Velleman vond ik enkele programma's. Velleman maakt die om kits mee aan te sturen. De software voor K8000 kan je met VB openen. Mischien vind je daar wel hoe je de printerpoort moet lezen. Je vind er ook software voor de USB poort!
Er is dan de Velleman KIT om de printerpoort in te lezen.Hij is wel véél duurder
http://www.velleman.be/
(Ik weet niet waarom, maar ik kan geen directe link plaatsen)
[Reactie gewijzigd op maandag 5 september 2005 22:03:16]
[Reactie gewijzigd op maandag 5 september 2005 22:03:38]
Bij mij staat er altijd
LPT_DataReg_PinLow is not declared
BIT0 is not declared
Ik gebruik microsoft Visual Basic 2005 Express edition.
Iemand een oplossing?
Dit [img]http://files.professor-botje.nl/co.nl/LPT_VB6/pics/NPN-optoc.gif[/img] plaatje komt uit poorten onder windows toch?
ik heb hetzelfde probleem als robbeke. iknkrijg het niet aan de praat 20 errors! en waar kan ik codes vinden voor de andere tools?
Ik gebruik Vb6 en kreeg ook de melding dat BIT0 etc niet gedefineerd staan. Hoe kan ik dit oplossen? moet ik de hex eqv door sturen via LPT_DataReg_PinLow ?
Wat ik nog wel ga uitproberen nog niet tijd voor gehad is
DlPortWritePortUlong Val(TextAddr), Value
even geraust van een voorbeeld die bij Port IO zat. Zou dat werken?
Mvg
Stefan
zelfde fout
not declared
---------------
ik heb ook de zelfde fout
maar bij mij geeft hij het ook aan met pinhigh
[Reactie gewijzigd op maandag 25 juni 2007 21:51:59]
je moet nog een module maken deze moet je er in zeten
Declare Sub PortOut Lib "io.dll" (ByVal Port As Integer, ByVal Value As Byte)
Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' resolutie 10 a 20 millisec
' Address
' Data Base = &H278 / &H378 / &H3BC
' Status Base + 1
' Control Base + 2
Global Const LPT_REGISTER_DATA = &H378
Global Const LPT_REGISTER_STATUS = &H378 + 1
Global Const LPT_REGISTER_CONTROL = &H378 + 2
' data status control
Global Const BIT0 = &H1 ' D0 0 /STROBE
Global Const BIT1 = &H2 ' D1 0 /AUTOFEED
Global Const BIT2 = &H4 ' D2 0 /INIT
Global Const BIT3 = &H8 ' D3 ERROR /SLCTIN
Global Const BIT4 = &H10 ' D4 SELECT 0
Global Const BIT5 = &H20 ' D5 PAPER EMPTY 0
Global Const BIT6 = &H40 ' D6 ACK 0
Global Const BIT7 = &H80 ' D7 /BUSY 0
Global LptData As Byte
Global LptStatus As Byte
Global LptControl As Byte
Sub LPT_DataReg_PinHigh(ByVal MyBit As Long)
' The Data Register (8 output bits, bit 0 to 7)
' set the pin to '1' (high)
LptData = LptData Or MyBit
Call PortOut(LPT_REGISTER_DATA, LptData)
End Sub
Sub LPT_DataReg_PinLow(ByVal MyBit As Long)
' Zie tekst bij LPT_DataReg_PinHigh
' set the pin to '0' (low)
LptData = LptData And (Not MyBit)
Call PortOut(LPT_REGISTER_DATA, LptData)
End Sub
een dan moet je het opslaan een dan zet je io.dll bij in je map een dan werkt het wel
bart vdb
Leuk verhaal. Heb zelf ooit een tooltje gemaakt om wat te spelen met de bitjes van de printerpoort. Tooltje staat op mijn site (freeware).
http://home.planet.nl/~m.f.hajer/lpt_tester.html
Groet MatthijsFH
leuk stukje erg duidelijk. kan er veel van leren alleen zijn jamer genoeg de foto's weg.
Grtz tinus.
euk, maar ik ken nergens IO.dll vinden.. kan iemand mij hieraan helpen
!!! eventueel in een zippie toesturen naar me mail ?
mvg stephan
Kun je vinden via google... Linkje!
leime
goeie handleiding
mvg
patrick
[Reactie gewijzigd op zondag 8 maart 2009 14:16:13]
Hey,
Dat van die error's klopt, je krijgt er behoorlijk wat. Maar.
Als je in microsoft word op Alt+F11 druk krijg je een soort van visual basic hier werkt het wel, ik weet niet waarom maar je kunt het proberen als het niet lukt.
leime
dank je,
:):):):):):):):):):):):):):):):):):):):)
ik ga dit schema (en programmaatje) zeker maken!
Zeer goede uitleg, ookal snap ik er nog niks van
Is dit ook te gebruiken bij nieuwere versies van Visual Basic?
zou iemand nog eens kunnen vertellen hoe je in vb 2005 de sturing lpt poort in de module zet, want bij mij geeft hij allemaal fout codes aan( herkent sommige woorden niet)
jammer dat veel plaatjes zoek zijn...
Geniaal dit al zeg ik het zelf.
Meer dan 10 jaar geleden ooit dit stukje gepost. Zojuist weer eens wat oude websites aan het opsnorren geweest.
Leuk dat dit nog steeds online staat !
Als je ingelogd bent kun je een reactie plaatsen.