Shock Media

Navigatie

Visual Basic en de Printerpoort

Gepost door Jeroen Boere op woensdag 8 september 2004 20:15

Tot slot

Ook ik weet niet alles iig nog niet alles van de printer poort. Wel ben ik er achter gekomen dat je
12Bits 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 paperfeder 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. Bv Hoe kan je data inlezen met de poort zou hij mij daar
een groot plezier mee doen. En kan ik dit ook hier er nog bij zetten.





Gepost door Simon Koudijs op dinsdag 14 september 2004 07:57
Goed verhaal professor botje! Mijn complimenten.
Gepost door poteronassi op woensdag 15 september 2004 15:47
mooi verhaal, maar ik zou er nog wel wat spelfouten uithalen....
Gepost door The Force op maandag 20 september 2004 22:05
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]
Gepost door Professor-Botje op dinsdag 21 september 2004 22:40
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]
Gepost door The kolonel op zaterdag 25 september 2004 14:48
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!!!
Gepost door Professor-Botje op maandag 27 september 2004 21:51


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.
Gepost door Elec op dinsdag 28 september 2004 22:47
Goede uitleg kan meer als je denkt
denk ook aan stappenmotor stuuring enz.
Gepost door DJ Toontje op vrijdag 15 oktober 2004 23:42
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
Gepost door Ives op donderdag 9 december 2004 21:32
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 .
Gepost door fast4ever op vrijdag 31 december 2004 13:58
goede tutorial....
ik ga het zeker eens proberen hoor!

bedankt en groetjes van fast4ever!
Gepost door Wim Van Gucht op zondag 20 februari 2005 19:17
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]
Gepost door Negative op zaterdag 12 maart 2005 18:33
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.
Gepost door Wim Van Gucht op donderdag 7 april 2005 16:54
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)
Gepost door Mart Fuchs op donderdag 1 september 2005 22:24

[Reactie gewijzigd op maandag 5 september 2005 22:03]
Gepost door Mart Fuchs op donderdag 1 september 2005 22:25

[Reactie gewijzigd op maandag 5 september 2005 22:03]
Gepost door robbeke op dinsdag 28 februari 2006 17:53
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?
Gepost door Ibanez op dinsdag 2 mei 2006 11:40
Dit [img]http://files.professor-botje.nl/co.nl/LPT_VB6/pics/NPN-optoc.gif[/img] plaatje komt uit poorten onder windows toch?
Gepost door Jossie Kuijpers op zondag 24 september 2006 11:55
ik heb hetzelfde probleem als robbeke. iknkrijg het niet aan de praat 20 errors! en waar kan ik codes vinden voor de andere tools?
Gepost door SMAD-for-live op dinsdag 26 september 2006 22:00
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
Gepost door riktw op dinsdag 22 mei 2007 14:38
zelfde fout
Gepost door solderende electra-freak op maandag 25 juni 2007 19:47
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]
Gepost door elektronica-man op vrijdag 20 juli 2007 22:30
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
Gepost door MatthijsFH op zaterdag 17 november 2007 10:27
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

Als je ingelogd bent kun je een reactie plaatsen.