Duda acerca del puerto paralelo
Disculpa, tengo una duda acerca del puerto paralelo, manejado desde delphi o pascal, lo que tengo que hacer es medir por medio de un programa de delphi o pascal, la velocidad de un motor, por medio de un dispositivo electrónico, hicimos que el motor, lanzara un pulso por cada revolución que de, nuestra idea es conectarla al puerto paralelo de la PC, pero no se como hacer la rutina para leer cuantos pulsos mando por segundo, ya con esto simplemente haría la conversión a RPM, por favor si puedes ayudame.
Gracias.
Gracias.
1 Respuesta
Respuesta de jlcava
1
Debes conducir y acondicionar esa señal hasta el puerto paralelo y un pin de entrada de información.
Luego lees esa pata con una base de tiempo preestablecida y haces los cálculos.
Function ConsultarBit(Direccion: Word; Bit: Byte): Boolean;
Begin
B := 1;
B := B SHL Bit;
ASM
mov dx,Direccion
In al,dx
mov A, al
End;
ConsultarBit := (B AND A) > 0;
End;
Y listo.
Luego lees esa pata con una base de tiempo preestablecida y haces los cálculos.
Function ConsultarBit(Direccion: Word; Bit: Byte): Boolean;
Begin
B := 1;
B := B SHL Bit;
ASM
mov dx,Direccion
In al,dx
mov A, al
End;
ConsultarBit := (B AND A) > 0;
End;
Y listo.
