Kontrol af LPT1 gennem VB

Mulighed 1, nemt: Brug en ekstern DLL, såsom denne: http://www.driis.mobilixnet.dk/port95nt.zip
Så vidt jeg husker er der install program og eksempler til VB med i zip filen. Når du skal distribuere dit program, skal du så bare huske at inkludere den DLL fil, som er indeholdt i zip pakken.

Mulighed 2, svært: Lav det selv. Jeg smider lige et svar lidt senere med mere info om dette.

Til mulighed 2: Kig her:
http://www.beyondlogic.org/spp/parallel.htm
http://www.beyondlogic.org/porttalk/porttalk.htm
http://www.eksperten.dk/spm/380957

Nederste link er til et spørgsmål om nøjagtig det samme, bare til C++, hvor jeg har svaret. Hvis du vil lave det selv, skal du nok lave din egen DLL i C++ og så bruge den fra Visual Basic - idet funktionaliteten nok er svær at få til at fungere med VB kald.

http://www.beyondlogic.org/spp/parallel.htm

Den DLL som driis har fundet er lige sagen, med den kan du styre alle ben i porten, (jeg sad faktisk og ledte efter denne)
-SCB

Tja....
Vi er da enige om hvad der skal til...
Jeg er bare lidt langsom... Det er nok varmen, der er ca. 35 grader her hvor jeg arbejder.
-SCB

http://www.driis.mobilixnet.dk/pport.jpg
Hvis du bruger dll'en fra mit første link, kan du skrive til data pins D0 - D7 ved at skrive en byte til adresse 378h, forudsat du har en LPT port liggende på denne adresse, samt til de specielle output pins (kontrol - pins) ved at skrive til base adressen + 2, i dette tilfælde 37Ah.
http://www.beyondlogic.org/spp/parallel.htm#5

Hej Friis
Jeg har kigget lidt på mulighed nummer 2, men jeg kan ikke rigtig se nogen downloads på http://www.beyondlogic.org/spp/parallel.htm.

Jeg må også indrømme, at jeg ikke rigtig har nogen erfaring med DLL'er. Hvordan får jeg dem til at virke?
Kan du give et tænkt eksempel på, hvordan du ville sætte alle databen på printerporten høje?

bashar >> Med mulighed 2 var det meningen at du skulle kode det hele selv, derfor ingen downloads :-)

Men lad os se på mulighed 1:
1) Download port95nt.zip, fra mit første svar.
2) Kør installationsprogrammet i zip filen. Du installerer nu dlportio.dll, som er den dll vi skal bruge. Når du skal distribuere dit program behøver du ikke at distribuere hele zip filen igen, men kun dlportio.dll
3) I dit vb projekt, lav et modul, der indeholder følgende :
Public Declare Sub OutP Lib "dlportio.dll" Alias "DlPortWritePortUchar" (port As Long, value As Byte)
Public Declare Function ReadP Lib "dlportio.dll" Alias "DlPortReadPortUchar" (port As Long) As Byte
4) Du kan nu skrive til porten med:
Call OutP(&h378,255)  'sætter alle databen høje
og læse porten med
data = ReadP(&h378)

Jeg siger mange tak. Det var lige, hvad jeg havde brug for.
Nu mangler der bare timers programmering i VB.
Points'ne er dine.