Codigo con eventos PROBADO EN PROTEUS