module rctime
author NeoEduca
version 1 0
description ‘Retorna el tiempo de descarga de un circuito RC a través del pin especificado por el usuario’
variables micros

spec ‘r’ ‘RCtime’ ‘RCtime _’ ‘auto’ 10

to RCtime pin {
comment ”
digitalWriteOp pin true
waitMillis 1
digitalWriteOp pin false
micros = (microsOp)
repeatUntil (not (digitalReadOp pin)) nil
return (microsSince micros ‘now’)
}