Visual Basic en de printerpoort

Gepost door Jeroen Boere op woensdag 8 september 2004

Tot slot

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.

Windows 9x/NT

Inhoudsopgave

  1. Inleiding
  2. De aansluitingen
  3. Basis werking + test software en code
  4. De Visual Basic 6 code
  5. De hardware
  6. Windows 9x/NT
  7. Tot slot

Printversie

Reacties (33)

Simon Koudijs
dinsdag 14 september 2004 07:57:18

Goed verhaal professor botje! Mijn complimenten. :)

poteronassi
woensdag 15 september 2004 15:47:29

mooi verhaal, maar ik zou er nog wel wat spelfouten uithalen....

The Force

May The Force be with you...

maandag 20 september 2004 22:05:49

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]

Professor-Botje

Meer schema's dan je soldeerbout lief is

dinsdag 21 september 2004 22:40:55

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]

The kolonel

Sic vic passum, parra bellum

zaterdag 25 september 2004 14:48:23

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!!!

Professor-Botje

Meer schema's dan je soldeerbout lief is

maandag 27 september 2004 21:51:00

:-D

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.

Elec
dinsdag 28 september 2004 22:47:24

Goede uitleg kan meer als je denkt
denk ook aan stappenmotor stuuring enz.

DJ Toontje

I'm bankrupt

vrijdag 15 oktober 2004 23:42:12

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

Ives

www.GoodSoft.be ==> Download gratis software of laat custom software aan gunstige prijzen ontwikkelen.

donderdag 9 december 2004 21:32:49

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 :(.

fast4ever

VHDL... jazeker, das pure hardware. Maar ach, de softwareprogammeurs zullen dat nooit snappen!

vrijdag 31 december 2004 13:58:44

goede tutorial....
ik ga het zeker eens proberen hoor!

bedankt en groetjes van fast4ever!

Wim Van Gucht
zondag 20 februari 2005 19:17:56

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]

Negative
zaterdag 12 maart 2005 18:33:53

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.

Wim Van Gucht
donderdag 7 april 2005 16:54:10

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)

Mart Fuchs
donderdag 1 september 2005 22:24:29

[Reactie gewijzigd op maandag 5 september 2005 22:03:16]

Mart Fuchs
donderdag 1 september 2005 22:25:34

[Reactie gewijzigd op maandag 5 september 2005 22:03:38]

robbeke
dinsdag 28 februari 2006 17:53:39

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?

Ibanez

Een atx voeding is geen labvoeding, en je kunt er geen auto mee starten ook

dinsdag 2 mei 2006 11:40:45

Dit [img]http://files.professor-botje.nl/co.nl/LPT_VB6/pics/NPN-optoc.gif[/img] plaatje komt uit poorten onder windows toch?

Jossie Kuijpers
zondag 24 september 2006 11:55:19

ik heb hetzelfde probleem als robbeke. iknkrijg het niet aan de praat 20 errors! en waar kan ik codes vinden voor de andere tools?

SMAD-for-live

Uhm kun je rekenen? reken daar maar niet op

dinsdag 26 september 2006 22:00:05

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

Riktw

http://justanotherelectronicsblog.com/

dinsdag 22 mei 2007 14:38:03

zelfde fout

solderende electra-freak
maandag 25 juni 2007 19:47:54

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]

elektronica-man
vrijdag 20 juli 2007 22:30:21

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

MatthijsFH

www.usbscope.eu

zaterdag 17 november 2007 10:27:11

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

Tinus016

www.tinuselectronics.nl Because DIY Electronics Matters!!!!

woensdag 17 december 2008 18:07:38

leuk stukje erg duidelijk. kan er veel van leren alleen zijn jamer genoeg de foto's weg.

Grtz tinus.

roozing
woensdag 7 januari 2009 18:00:23

euk, maar ik ken nergens IO.dll vinden.. kan iemand mij hieraan helpen :O!!! eventueel in een zippie toesturen naar me mail ?

mvg stephan

leime
dinsdag 24 maart 2009 18:07:39

euk, maar ik ken nergens IO.dll vinden.. kan iemand mij hieraan helpen :O!!! eventueel in een zippie toesturen naar me mail ?

mvg stephan

Kun je vinden via google... Linkje!

leime

Anoniem
woensdag 4 maart 2009 08:39:32

goeie handleiding

mvg
patrick :)

[Reactie gewijzigd op zondag 8 maart 2009 14:16:13]

leime
donderdag 26 maart 2009 13:11:50

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

Plut

nieuwe hobby: k8000\computer laten crashen

zondag 7 maart 2010 18:49:14

dank je,
ik ga dit schema (en programmaatje) zeker maken!
:):):):):):):):):):):):):):):):):):):):):)

mbeentjes
donderdag 11 november 2010 21:26:11

Zeer goede uitleg, ookal snap ik er nog niks van :P
Is dit ook te gebruiken bij nieuwere versies van Visual Basic?

erri29
donderdag 30 december 2010 00:40:33

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)

Arjan Swets

cnc filmpjes op Http://www.arjan-swets.com

maandag 21 maart 2011 22:29:08

jammer dat veel plaatjes zoek zijn...

Professor-Botje

Meer schema's dan je soldeerbout lief is

dinsdag 12 april 2016 00:11:09

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.