lpt (printpoort) pinnen individueel besturen.

dat kan wel.

maar je moet ff gaan rekenen.

bijv. voor pin 1 er 1 bij optellen om ana te zetten en er 1 afhalen om hem uit tezetten

1) visual basic
2) io.ddl van geekhideout

allebei gratis te downloaden

Op 13 juli 2006 20:01:47 schreef ikkedus:
1) visual basic
2) io.ddl van geekhideout

allebei gratis te downloaden

hey
bedankt yoh ik ben aan het zoeken geslagen en heb een erfecte tutorial gevonden
http://www.circuitsonline.net/artikelen/view/26/print
dit was precies wat ik nodig had

nogmaals heel erg bedankt

nou heb ik dat goed doorgelezen maar als het script maak en het wil runnen zegt hij

sub or function not defined

wat moet ik hier nou mee ik heb IO.dll geinstaleerd de pc opnieuw opgestart en heb parmon.exe geinstaleerd als iemand mij kan helpen, graag

uuh,

Je probeert een subroutine op te roepen die niet bestaat.
In de cursus staan de API's niet genoteerd.

option explicit

Public Const LPTPOORT_1 As Long = 888
Public Const LPTPOORT_2 As Long = 632

Public Declare Sub apiPORTOUT Lib "IO.dll" Alias "SchrijfLPT" (ByVal Adres As Long, ByVal Data As Long)
Public Declare Function apiPORTIN Lib "IO.dll" Alias "LeesLPT" (ByVal Adres As Long)

maar dan ben je er nog niet, je moet pinnummers om rekenen naar hex waarde. dat systeem heb je ook nog niet.
tis niet moeilijk.
Jij wilt bv pin 3 en 5 hoog, de andere zijn laag.
Pin 3 heeft waarde 4, en pin 6 heeft waarde 64.
Je moet dus 4 + 64 = 68 zenden naar de LPT poort.

 apiPORTOUT LPTPOORT_1, 68

Wil je daarna alleen pin 6 hoog hebben, stuur je 64.

 apiPORTOUT LPTPOORT_1, 64

dit zijn de pinnummers:

1= 1
2= 2
3= 4
4= 16
5= 32
6= 64
7 = 132
enz

die IO.dll hoef je niet te installeren, gewoon ctlr-C ctrl-v in

 C:\Windows\system32 

suc6

[Bericht gewijzigd door Martijn v op donderdag 13 juli 2006 21:54:54 ]

Op 13 juli 2006 21:18:33 schreef Martijn v:
uuuh, je debugger zegt dat een bepaalde subroutine niet gevonden kan worden. Er is een regel code geselecteerd. De verwijzing naar (naam van) de subroutine moet gelijk zijn.

LPT_DataReg_PinLow is iets anders dan
LPT_DataRegPinLow

suc6

kijk ik ben niet zo goed in programeren als zei een kennis: "je bent wel goed in programeren voor iemand van 13 jaar oud" maarhu ik ben niet geweldig in programerendus ik heb het verander zoals je zei niet LPT_DataReg_PinHigh (BIT0) maar LPT_DataRegPinHigh (BIT0) en hij geeft nog steeds de zelfde error aan|:(

ik ben echt radeloos en ik wil zo graag mijn bestuurbaare helikopter aan de lpt poort zetten zodat ik hem met mijn oude laptop (als je het no een laptop mag noemen) kan besturen

doe eens alles wat je heb posten.
zal k er ff naar kijken. bovenstaande post heb ik gewijzigd omdat ik pas later bedacht dat het geen spelvout was maar dat api verhaal.

Op 13 juli 2006 21:28:24 schreef toko:
[...]
ik wil zo graag ..

je moest eens weten wat ik wou...

ik ben echt radeloos

helemaal nergens voor nodig. voor zaterdag vliegt die heli.
trouwens, heb je wel zon lang snoer dan?

uuh, 'k ga ff weg, maar dit moet het doen:
8 checkboxen plaatsen, en 1 button.

Option Explicit

'api's for writing to the LPT poort
    Public Const LPTPOORT_1 As Long = 888
    Public Const LPTPOORT_2 As Long = 632
    Public Declare Sub apiPORTOUT Lib "IO.dll" Alias "SchrijfLPT" (ByVal Adres As Long, ByVal Data As Long)
    'Public Declare Function apiPORTIN Lib "IO.dll" Alias "LeesLPT" (ByVal Adres As Long)

Private Sub Commandbutton_Click()
Dim LPT As Integer


    'per pin bekijken of deze hoog moet zijn, en de waarde berekenen
    If Checkbox1.Value = vbChecked Then LPT = LPT + 1
    If Checkbox2.Value = vbChecked Then LPT = LPT + 2
    If Checkbox3.Value = vbChecked Then LPT = LPT + 4
    If Checkbox4.Value = vbChecked Then LPT = LPT + 8
    If Checkbox5.Value = vbChecked Then LPT = LPT + 16
    If Checkbox6.Value = vbChecked Then LPT = LPT + 32
    If Checkbox7.Value = vbChecked Then LPT = LPT + 64
    If Checkbox8.Value = vbChecked Then LPT = LPT + 132
    
    'waarde uitsturen naar LPT
    apiPORTOUT LPTPOORT_1, LPT
       

End Sub

[Bericht gewijzigd door Martijn v op donderdag 13 juli 2006 21:53:29 ]

heb je wel zon lang snoer dan?

ik sluit hem aan op de draadloze afstandsbediening snappie maarhu vraagje je stuurde mij een code

option explicit

Public Const LPTPOORT_1 As Long = 888
Public Const LPTPOORT_2 As Long = 632

Public Declare Sub apiPORTOUT Lib "IO.dll" Alias "SchrijfLPT" (ByVal Adres As Long, ByVal Data As Long)
Public Declare Function apiPORTIN Lib "IO.dll" Alias "LeesLPT" (ByVal Adres As Long)

maarhu is dat wel vb of is het c++ want dat snap ik niet helemaal

zou je niet iets kunnen maken met screenshots waar je uitlegt waar ik die code moet neer zetten en ik hem moet gebruiken

ja. dit is allemaal VB6!

verder... sorry, ik ga je niet met plaatjes laten zien hoe dit moet. daar zijn hele mooi boeken over geschreven! bovendien moet ik nu echt weg..

mzzl

@martijn :

pin 2 is 1 waard !
pin 3 is 2 waard
4 is 4
5 is 8

poot 1 bij ene printerpoort is de strobe

en je hoogste bit is 128 waard en niet 132

je heb gelijk:
pin 2 van de LPT stekker, is datakanaal 0, met adres 1.
132 moet idd 128 zijn jah!

Ik heb even geen idee of "SchrijfLPT" de functie in IO.dll is. Bestanden en functies kunnen hernoemd worden, dus na een tijdje heten ze allemaal anders, maar zijn hetzelfde..

[Bericht gewijzigd door Martijn v op vrijdag 14 juli 2006 01:03:45 ]

yo bedankt maar ik snap niet precies hoe het werkt met die schrijflpt en leeslpt kan iemand niet gewoon een kopier en plak script voor me maken.

dat zou ik echt vet cool vinden

p.s:ik zal alles wat ik tot nu wel ff posten maar dat doe ik strax ik kan er nu nog niet bij|:(

[Bericht gewijzigd door toko op vrijdag 14 juli 2006 12:39:16 ]

toko

Ik neem aan dat je io.dll van deze pagina gebruikt: http://geekhideout.com/iodll.shtml
Daar staat ook een lijst met "private declare" statements.
Neem die over in je programma en je dll gaat werken.
Ik weet niet wie die nederlandse functienamen heeft bedacht maar waaron zou je afwijken van de originele namen.

Als je daarna nog steeds de melding "sub or function not defined" krijgt dan heb je waarschijnlijk een typefout in de sub- of functie-naam gemaakt.

[Bericht gewijzigd door hennep op vrijdag 14 juli 2006 13:14:20 ]

dan nog een vraagje waar moet ik de "private declare" statment neer zetten bij form_onload() of als ik op bij command1_click()

greetz jetse

Je kunt alle declare statements bovenin zetten onder "option explicit" als je dat wilt gebruiken en boven de eerste function of sub

Dus bijvoorbeeld:

Option Explicit

Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Declare Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Integer)
Private Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Private Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Private Declare Function PortWordIn Lib "IO.DLL" (ByVal Port As Integer) As Integer
Private Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer) As Long
Private Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Private Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Private Declare Function IsDriverInstalled Lib "IO.DLL" () As Boolean

Private Sub Command1_Click()
   PortOut &H478, 255
End Sub

wanneer je meerder formulieren gaat maken die van io.dll gebruik maken dan is het handiger om het in een module te zetten.
Om er dan voor te zorgen dat het in alle formulieren werkt dien je geen private declare te gebruiken maar bijvoorbeeld

module:

Public Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Public Declare Sub PortWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Integer)
Public Declare Sub PortDWordOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Long)
Public Declare Function PortIn Lib "IO.DLL" (ByVal Port As Integer) As Byte
Public Declare Function PortWordIn Lib "IO.DLL" (ByVal Port As Integer) As Integer
Public Declare Function PortDWordIn Lib "IO.DLL" (ByVal Port As Integer) As Long
Public Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Sub NotPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Public Declare Function GetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte) As Boolean
Public Declare Function RightPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Public Declare Function LeftPortShift Lib "IO.DLL" (ByVal Port As Integer, ByVal Val As Boolean) As Boolean
Public Declare Function IsDriverInstalled Lib "IO.DLL" () As Boolean

[Bericht gewijzigd door hennep op vrijdag 14 juli 2006 17:34:20 ]

nog een vraagje als het script van jouw gebruikt en ik druk op de knop blijft er dan stroom op staan tor ik opnieuw druk of komt er maar een klein schokje.

en zou je

Private Sub Command1_Click()
   PortOut &H478, 255
End Sub

even nader kunnen verklaren want waar zijn al die cijfertjes en dat "&" tekentje
en kan ik met de input commando b.v. als ik bijvoorbeeld een singaal geef aan de ingang en ik geef het commando als die pin een singaal geeft dat hij dan een script uitvoert (en zou je dan een vooorbeeld willen geven)

alvast bedankt

[Bericht gewijzigd door toko op vrijdag 14 juli 2006 17:37:35 ]

Private Sub Command1_MouseDown(......
Private Sub Command1_MouseUp(.....

gebruiken i.p.v. click

&h voor een getal is voor hexadecimale notatie

&hFFFF => 65535

en tis address &h378 en niet &h478

de poorten zitten zo:
LPt1 : &h278
LPt2 : &h278

en de prn ( als je een derde hebt noemt die PRN en niet LPT3 zoals zovelen denken) &h3bc

en wat betekent 255 en hoe werkt de input dan (een voorbeeld als het kan (datsnap ik het best))

enhu wat met er dan tussen de haakjes staan achter "....mouseup()"

alvast bedankt

[Bericht gewijzigd door toko op vrijdag 14 juli 2006 17:41:22 ]

Je hebt al weer gelijk Vincent.
't is lange geleden dat ik zoiets gedaan heb. Gelukkig had ik nog twee cijfers goed

denk eens na toko!
wat wil je doen met een output poort?

variable = PortIn( &H378 )

[Bericht gewijzigd door hennep op vrijdag 14 juli 2006 17:41:12 ]

maar ik wil best wel denken maar dan moet ik wel wat tips want ik weet niet hoe die "if" en "then" werken,want ik denk dat ik iets moet doen als:

if portin(&h378)= treu then bladieblad..........

of heb ik dat fout.
en met dat output wil hebben dat als ik de muis omhoog beweeg dan een sinngaal komt op de derde pin en dat singaal dat stopt als ik de muis niet beweeg en dat de vierde pin een singaal komt als ik de muis naar beneden beweeg.(ik heb zon oude laptop met een joystickje tussen de toetsen als muis daar wou ik het script op laten draaien)

greetz jetse

[Bericht gewijzigd door toko op vrijdag 14 juli 2006 18:00:52 ]

Op 14 juli 2006 17:33:56 schreef toko:
nog een vraagje. Als ik het script van jouw gebruikt en ik druk op de knop blijft er dan stroom op staan tot ik opnieuw druk of komt er maar een klein schokje.

blijft staat, totdat je opnieuw commando geeft.

en zou je

Private Sub Command1_Click()
   PortOut &H478, 255
End Sub

even nader kunnen verklaren want waar zijn al die cijfertjes en dat "&" tekentje

- &H478 is de hexidecimale notatie van het getal 888.
Dat is het geheugenadres van LPT poort 1.
LPT 2 = 632 oftewel &H278

- 255 is de waarde die je uitstuurt.
die waarde zou je kunnen berekenen met deze code

Dim LPT As Integer

    'per pin bekijken of deze hoog moet zijn, en de waarde berekenen
    If Checkbox1.Value = vbChecked Then LPT = LPT + 1
    If Checkbox2.Value = vbChecked Then LPT = LPT + 2
    If Checkbox3.Value = vbChecked Then LPT = LPT + 4
    If Checkbox4.Value = vbChecked Then LPT = LPT + 8
    If Checkbox5.Value = vbChecked Then LPT = LPT + 16
    If Checkbox6.Value = vbChecked Then LPT = LPT + 32
    If Checkbox7.Value = vbChecked Then LPT = LPT + 64
    If Checkbox8.Value = vbChecked Then LPT = LPT + 132

en kan ik met de input commando b.v. als ik bijvoorbeeld een singaal geef aan de ingang en ik geef het commando als die pin een singaal geeft dat hij dan een script uitvoert (en zou je dan een vooorbeeld willen geven)
alvast bedankt

Op 14 juli 2006 12:35:46 schreef toko:
yo bedankt maar ik snap niet precies hoe het werkt met die schrijflpt en leeslpt kan iemand niet gewoon een kopier en plak script voor me maken.
dat zou ik echt vet cool vinden.

ik heb je verschillende stukken code gegeven je hoeft allen erin te plakken...