parallel port communication: event markers

[David McFarlane]

Oh, um, we can even remove the explicit test against zero and leave that 
implicit, sorry to belabor this further:

Const LptDataPort as Integer = &H378  ' or 888 decimal
Const NoResponseEvent as Integer = &HFF  ' or 255 decimal
Const EventPulseDuration_ms as Integer = 20

' Send appropriate event pulse to PsychLab equipment...
WritePort LptDataPort, Iif( Proposal.RT, Asc(Proposal.Resp), 
NoResponseEvent )
Sleep EventPulseDuration_ms
WritePort LptDataPort, 0

-- David McFarlane, Professional Faultfinder



--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en
-~----------~----~----~----~------~----~------~--~---