[visual basic] Parallele poort aansturen

[Vulpecula]

Ik wil in vb (ik weet het, niet echt geweldig, maar ik heb het op school geleerd) de parallele poort aansturen. Ik heb namelijk deze schakeling gemaakt. Ik wil nu de lamp schakelen met de pc. Dus moet ik ervoor zorgen dat op pen 2 5v krijg. Maar ik weet niet hoe ik dit kan doen in visual basic. Zou iemand me kunnen helpen? Ik heb veel gevonden met de search maar niet echt wat ik kon gebruiken.

[drm]

Ik heb veel gevonden met de search maar niet echt wat ik kon gebruiken.

Want je hebt ... gevonden, en dat is niet genoeg informatie omdat ... en ... ?

[Vulpecula]

drm schreef op 25 February 2003 @ 08:21:
[...]
Want je hebt ... gevonden, en dat is niet genoeg informatie omdat ... en ... ?

O sorry. Ik kan niet echt een duidelijke uitleg vinden over hoe het nu moet. Ik zou graag een klein voorbeeld stukje zien. Dan begrijp ik ook hoe ik het zelf kan doen.

[BOOTZ]

je moet es op zoek gaan naar dlportio, daarmee kan je o.a. je parallele poort aansturen. bij de documentatie zitten ook voorbeelden van hoe het werkt

[Vulpecula]

BOOTZ schreef op 25 February 2003 @ 08:29:
je moet es op zoek gaan naar dlportio, daarmee kan je o.a. je parallele poort aansturen. bij de documentatie zitten ook voorbeelden van hoe het werkt

He daar kom ik al wat verder mee. Zal eens google'en

[Vulpecula]

frankschers schreef op 25 februari 2003 @ 08:30:
[...]


He daar kom ik al wat verder mee. Zal eens google'en

Ik ben dit net tegen gekomen via google. Is dit wat ik nodig heb? En hoe ga ik nu verder? Want veel informatie zit er niet bij.

[ Voor 10% gewijzigd door Vulpecula op 25-02-2003 08:42 ]

[Vulpecula]

Oke, ik heb de samples eens bekeken. Ik wil nu ervoor zorgen dat ik op poort 2 5v spanning krijg. Weet iemand hoe ik dat moet doen? Ik heb echt geen idee hoe het moet.

Dit stond in de sample, zoiets zal het denk ik moet worden, toch?

code:

Private Sub OnWrite_Click()
  Dim Value As Long
  
  Value = Val(TextValue)
  If OptionByte Then
    If Value < 0 Then Value = Value + 256
    DlPortWritePortUchar Val(TextAddr), Value
  ElseIf OptionWord Then
    If Value < 0 Then Value = Value + 65536
    DlPortWritePortUshort Val(TextAddr), Value
  Else
    DlPortWritePortUlong Val(TextAddr), Value
  End If
End Sub

[ Voor 5% gewijzigd door Vulpecula op 25-02-2003 09:05 ]

[Anoniem: 33664]

Ik zou ook wel eens willen weten hoe je dit kunt doen.

[Creepy]

klik

Zowaar een lading topics en paginas hoe seriele en paralelle poorten aan te sturen.. en dat zomaar gevonden met de brakke search hier op GoT!

[Vulpecula]

Kan iemand me vertellen wat het adres van pen 2 is? Misschien lukt het dan wel.

[Creepy]

frankschers schreef op 25 februari 2003 @ 11:28:
Kan iemand me vertellen wat het adres van pen 2 is? Misschien lukt het dan wel.

Nope.. want pin2 heeft geen adres.

Een standaard lpt poort heeft 3 adressen. (een ECP poort bijv. heeft er meer... maar alleen de eerste 3 zijn echt belangrijk).
Met het base adres (bijv $378) kan je 8 pinnen aansturen (pinnen D0-D7). En daar zit jou tweede pin tussen.

In de link die ik je gaf staan ook topics met links naar beschrijvingen hoe de LPT poort in elkaar steekt, en welk adres welke pinnen kan aansturen. Je moet dan alleen nog een vertaal slag maken van pinnen naar een getal dat je kan sturen naar het adres (binaier -> decimaal bijv.).

Hoe je dit doet, staat ook uitgelegd in 1 van de topics die naar voren komen uit de search. Je zou ze eens kunnen gaan bekijken en lezen, je geeft mij namelijk niet het gevoel dat je ook zelf daadwerkelijk aan het lezen bent en alleen eigenlijk alleen maar voorbeeld code wilt hebben.
(en lees de P&W faq er voor de gein eens op na, dat is hier niet echt de bedoeling).

[Vulpecula]

Ben al vanaf 7 uur bezig met allemaal topics hier op GoT te lezen.

[Creepy]

Nah.. vooruit

http://www.lvr.com/jansfaq.htm en http://www.lvr.com/parport.htm

Dat zijn twee van de eerste hits die google me gaf. Hierin staat nagenoeg ALLES over de lpt poort uitgelegd. Mocht het dan nog niet lukken, geef dan aan wat je al het geprobeerd, wat er niet lukt, foutmeldingen e.d. Dan help ik je graag weer verder.

[ Voor 8% gewijzigd door Creepy op 25-02-2003 11:43 ]

[Vulpecula]

Nou wat me niet lukt is het schrijven van een programma. Ik weet nog niet eens welke functie ik moet aanroepen zodat ik parallele poort kan aanspreken. Ik wil alleen weten hoe ik op pen 2 5v krijg ( met vb), meer hoef ik nog niet te weten. Ik wil alleen ff testen of het schema wat ik hierboven heb gepost ook daadwerkelijk werkt. Daarna wil ik verder gaan met ontwikkelen van een volwaardig programma. Maar de prioriteit ligt nu ff bij het uittesten van het schema.

ps. Ik ben nog maar een noob met visual basic.

[ Voor 1% gewijzigd door Vulpecula op 25-02-2003 11:50 . Reden: spelling ]

[Creepy]

Ok.. maar dit is dan echt de allerlaatste link: http://home.wxs.nl/~majosoft/vb/lpt_port.html
(overigens ook met google gevonden.. jij hebt een andere google dan mij??)
Als je een oplossing wilt voor windows NT/2000/XP dan zul je DLPortI/O o.i.d. moeten gebruiken.

[Vulpecula]

Creepy schreef op 25 februari 2003 @ 12:02:
Ok.. maar dit is dan echt de allerlaatste link: http://home.wxs.nl/~majosoft/vb/lpt_port.html
(overigens ook met google gevonden.. jij hebt een andere google dan mij??)
Als je een oplossing wilt voor windows NT/2000/XP dan zul je DLPortI/O o.i.d. moeten gebruiken.

Ik heb DLPortI/O al. Ik moet een adres opgeven maar weet niet welk adres. Ik heb de site helemaal doorgekeken die je net posten maar werkt niet onder XP. Bij DLPortI/O zat wel een sample, maar weet niet hoe ik die moet gebruiken.

Hoop dat je me nog ff verder helpt. Alvast bedankt.

[Creepy]

frankschers schreef op 25 februari 2003 @ 12:18:
[...]


Ik heb DLPortI/O al. Ik moet een adres opgeven maar weet niet welk adres. Ik heb de site helemaal doorgekeken die je net posten maar werkt niet onder XP. Bij DLPortI/O zat wel een sample, maar weet niet hoe ik die moet gebruiken.

Hoop dat je me nog ff verder helpt. Alvast bedankt.

De calls die bij die site worden gebruikt lijken verdacht veel op die van DLPort I/O wat betreft parameters... *hint hint*

[Vulpecula]

Creepy schreef op 25 February 2003 @ 12:36:
[...]

De calls die bij die site worden gebruikt lijken verdacht veel op die van DLPort I/O wat betreft parameters... *hint hint*

Sorry maar ik kom er nog steeds niet uit. Zal wel aan mij liggen. Zou je me misschien een beetje opweg kunnen helpen met source en niet met links? Ik heb die sample die bij DLPortI/O zit uitgeprobeerd maar heb echt geen flauw idee wat voor waardes ik daar moet invullen.

[JohanDM]

Uitleg over parallelle poorten icm VB heb ik gevonden op www.aaroncake.net
Parallelle poort schema
VB programmeren naar parallelle poort
Combineer dit met met een goede I/O Driver zoals DLPortI/O.

Uit deze informatie concludeer ik dat je naar poort 888 = &H378 een 1 moet sturen.

Een VB + DLPortI/O voorbeeldje met DLPortIO.BAS in VB project wordt dat:

Visual Basic:

DlPortWritePortUchar &H378, 1

[Vulpecula]

Oke, ik heb nu achter op de poort gemeten. Nu blijkt dat poort 6, 7 en 8 werken als ik een byte naar de poort stuur via het progje dat bij DLPortI/O is geleverd. Wanneer ik de poort terugzet naar 0 blijkt er geen spanning op te staan. Kan ik deze poorten ook gebruiken?

[edit]
En op poort 2 blijkt -5v staan.

[ Voor 8% gewijzigd door Vulpecula op 25-02-2003 20:31 ]

[Vulpecula]

Oke het is gelukt! De transistor bleek kapot te gaan. Ik kan nu mijn lamp aan en uit schakelen met mijn progje.

Ik ben weer geweest