1
mc-Module / Re: [ISSUE] RisingEdge + FallingEdge events in the same script
« on: August 09, 2016, 04:06:22 pm »
Ok, thank you for your answer!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Define PinMode Pin0 As DigitalInputPullDown
Class PIR
Shared Event Boot()
LedGreen = False
LedRed = False
End Event
Shared Event Pin0RisingEdge()
LedRed = True
Thread.Sleep(100000)
LedRed = False
End Event
Shared Event Pin0FallingEdge()
LedGreen = True
Thread.Sleep(100000)
LedGreen = False
End Event
End Class