Visual basic Excel voor LPT?

misschien is het een exe file die als soort zelfuitpakkend archief werkt en zodanig de dll ergens plaats?

De volgende dll moet je hebben.

io.dll (dit is niet de enige maar deze vind ik fijn werken)
De dll zet je dan in je system32 map.

Dan maak je in je visual basic een module aan en daarin plaats je de volgende code:

Declare Sub SetPortBit 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

' 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)
Call SetPortBit(&H387, MyBit)

End Sub

Sub LPT_DataReg_PinLow(ByVal MyBit As Long)
' Zie tekst bij LPT_DataReg_PinHigh

' set the pin to '0' (low)
Call ClrPortBit(&H387, MyBit)

End Sub

Verder kun je gewoon de instructies van het artikel volgen.

Leime

Ik heb in het topic relais besturen via parallelpoort een programmaatje beschikbaar gesteld dat je misschien als basis kunt gebruiken.
Het is ook geschreven in visual basic for applications in Excel, ofwel VBA.

Bedankt voor alle reacties, maar ik had ondertussen deze site gevonden:
http://www.geekhideout.com/iodll.shtml
Nu werkt het ook.

Ik heb nu hetvolgende programma gemaakt om het op een bepaald tijdstip doen aan en uit te gaan:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)

Private Sub CommandButton1_Click()
    Dim Aanstr As String
    Dim Uitstr As String
    Dim Aan As Date
    Dim Uit As Date
    Aanstr = TextBox1
    Uitstr = TextBox2
    Aan = CDate(Aanstr)
    Uit = CDate(Uitstr)
    
LabelAan:    Sleep 3000
    If Time() > Aan And Time() < Aan + #00:00:08 AM# Then
    PortOut 888, 1
    Else: GoTo LabelAan
    End If
    
LabelUit:     Sleep 3000
    If Time() > Uit And Time() < Uit + #00:00:08 AM# Then
    PortOut 888, 0
    Else: GoTo LabelUit
    End If
    
End Sub

Het heeft wel een nadeel: je hebt een oneindige lus en als je wat teveel klikt, beschouwt de computer het als een niet-reagerend programma.
Heeft iemand een beter idee om dit te maken?

Probeer > Application.Wait Now + TimeValue("00:00:08") eens ipv sleep.

[Bericht gewijzigd door Mr. Digital op woensdag 5 augustus 2009 11:37:42 (15%)]

zet daar eens een doevents in...

Waar en hoe moet ik dat daar in zetten?

Bijv door de sleep 3000 te vervangen door

   For I = 1 to 300 
      DoEvents
      Sleep 10
   Next I

Dankuwel!

Nu werkt het.
Maar wat doet die DoEvents eigenlijk?

Wachten tot er wat te doen valt zonder anderen lastig te vallen.

http://support.microsoft.com/kb/118468

dat was niet echt moeilijk terug te vinden.

En hoe werken die ingangen eigenlijk?
Ik heb even op mijn labvoeding 5V ingesteld, min verbonden met massa lpt en + met D4.

Hetvolgende programma:

a = GetPortBit(888,4)
MsgBox (a)

Dit geeft altijd onwaar als uitkomst. Als ik echter eerst softwarematig D4 op 1 zet, geeft het wel waar als uitkomst.

Wat doe ik verkeerd?
Ik heb de lpt-poort in de bios ingesteld als EPP+ECP.
De computer is van 1993 dus ik denk dat de data lijnen zowel ingang als uitgang zijn.

moet je toevallig niet omswitchen tussen input en output

of dit gebruiken:

Declare Function PortIn Lib "io.dll" (ByVal Port As Integer) As Byte

[Bericht gewijzigd door timmie op maandag 31 augustus 2009 18:58:11 (49%)]

Bedankt voor de reactie, ik heb nu gevonden hoe je met de status ingangen kan werken:

-niets doen --> 1
-verbinden met massa --> 0

In visual basic moet je eigenlijk in plaats van PortOut 888, 5
PortOut &H378, 5 gebruiken.

Voor de ingangen wordt dat dan a=PortIn(&H379)