12/06/2010, 04:02
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 6 meses Puntos: 29 | |
| Respuesta: Aplicacion para servomotor
He encontrado un fallo en la línea:
DuracionNoActivoMS = DuracionNoActivoMS / 1000
que debería ser:
DuracionNoActivo = DuracionNoActivoMS / 1000
Por otro lado puede que el fallo que dices sea porque la variable DuracionNoActivoMS es opcional.
Prueba a cambiar la línea que he comentado y la declaracion de la sub cambiala por:
Sub Pulso1(ByVal DuracionActivoMS As Double, Optional ByVal DuracionNoActivoMS As Double = 1)
Si no es eso no se me ocurre otra cosa.
Suerte.
PD: Comentanos que error te muestra. Yo he compilado ambos códigos sin problemas. Eso si, sin incluir las líneas del Out Val(...., que no tengo declarado.
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
Última edición por pkj; 12/06/2010 a las 04:36 |