RE:contador de objetos
Publicado por
Renzo Ancaya (1 intervención) el 18/02/2009 17:27:38
Hola amiga, utiliza un pic 16f877 =)
aqui el codigo en assembly. como sensor puedes usar un infrarrojo.
Este programa cuenta de 0 - 50 y lo puedes ver por 2 display de 7 segmentos.
el ckto no lo puedo poner x aca mandame un mail repondiendome, y yo t mando el ckto.
Te puedo decir los puertos.
En el puerto B del pic conectas 2 integrados 7447 (decodificadores binario a display de 7 segmentos). Conectas uno a los 4 bits menos significativos y otro a los 4 bits mas significativos. y de estos integrados a cada uno de los display.
por el bit 0 del puerto A esta colocado el sensor. (infrarojo)
por el bit 1 del puerto A coloca un pulsador (estado normal tierra) cosa que cuando lo pulses mande un 1 logico. este pulsador inicia el programa.
y como para que hagas tu fajita, por el puerto c el programa bota un dato "0x01" cosa que con ese voltaje y corriente aplificados polarizas un motoricito =).
Aqui el programa
LIST P=16F877
INCLUDE<P16F877.INC>
X EQU 0X20
Y EQU 0X21
G EQU 0X22
H EQU 0X23
BANKSEL TRISA
MOVLW 0X06
MOVWF ADCON1
MOVLW 0X1F
MOVWF TRISA
MOVLW 0X00
MOVWF TRISB
BANKSEL PORTB
CLRF PORTB
CLRF PORTA
MOVLW 0X00
MOVWF G
MOVLW 0X01
MOVWF X
MOVLW 0X00
MOVWF Y
INICIO
BTFSS PORTA,0
GOTO INICIO
A1
BTFSC PORTA,0
GOTO A1
MOVF X,W
MOVWF PORTB
ANDLW 0X0F
SUBLW 0X09
BTFSS STATUS,Z
GOTO A2
MOVLW 0X10
ADDWF Y
MOVF Y,W
MOVWF X
INCF G
MOVF G,W
SUBLW 0X05
BTFSS STATUS,Z
GOTO INICIO
INICIO2
BTFSS PORTA,0
GOTO INICIO2
A3
BTFSC PORTA,0
GOTO A3
MOVLW 0X50
MOVWF PORTB
GOTO $
A2
INCF X
GOTO INICIO
END