Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > ASM y Microcontroladores
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-02-2008
REHome REHome is offline
Miembro
 
Registrado: jul 2003
Ubicación: España
Posts: 454
Poder: 21
REHome Va por buen camino
Entrada RA0, salida RB0

Me gustaría saber como se hace que al pulsar una entrada con el PIC 16F84A, en su salida se activa el RB0.

Es decir, dejo a 1 la entrada del puerto A RA0, y a su salida se ilumine un LED del puerto B llamado RB0.

De momento tengo un código incompleto aquí.

Código:
; ZONA DE DATOS **********************************************************************

	__CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC	; Configuración para el
															; grabador.
	LIST	P=16F84A			; Procesador.
	INCLUDE <P16F84A.INC>		; Definición de los operandos utilizados.

; ZONA DE CÓDIGOS ********************************************************************

	CONSTANTE  EQU	b'00000100'
	LOCO	EQU b'10000001'

	ORG 	0					; El programa comienza en la dirección 0 de memoria de
Inicio							; programa.
	bsf		STATUS,RP0			; Pone a 1 el bit 5 del STATUS. Acceso al Banco 1.
	clrf	TRISB				; Las líneas del Puerto B se configuran como salidas.
	movlw	b'11111111'
	movwf	TRISA				; Las líneas del Puerto A se configuran como entradas.
	bcf		STATUS,RP0			; Pone a 0 el bit 5 de STATUS. Acceso al Banco 0.
	

Principal
;	movf 	PORTA,W				; Lee el Puerto A.
;	movwf	PORTB				; El contenido de W se visualiza por el Puerto B.
;	bsf	LOCO,7
	movf	PORTA,0
	goto 	Principal			; Crea un bucle cerrado.

	END							; Fin del programa.
__________________
http://electronica-pic.blogspot.com....n-arduino.html Manuales de electrónica general, PIC y Arduino.
Responder Con Cita
  #2  
Antiguo 02-03-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 18
MaMu Va por buen camino
Bueno, es muy sencillo, aca tenes, modifica y/o cambia lo que quieras a gusto.

Código:
;/////Configuramos todo////
bsf         STATUS,RP0    ; banco 1
molvw     0x01              ; RA0 entrada, lo demas salidas
movwf    TRISA
clrf        TRISB
bcf         STATUS,RP0   ;banco 0    
 
;////Principal/////
 
main   call    Escanea_Tecla           ;A pull Down con una resistencia de 10k
         goto main
 
Escanea_Tecla
                 BTFSC    PORTA,0       ;Salta si es 0  
                 goto       ENCIENDE_LED
                 goto       APAGA_LED
                 return
 
ENCIENDE_LED 
                 bsf   PORTB,0
                 goto Escanea_Tecla
 
APAGA_LED
                 bcf   PORTB,0
                 goto Escanea_Tecla
 
end
Saludos
__________________
Código Delphi [-]
 
try 
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;

Última edición por MaMu fecha: 02-03-2008 a las 18:31:41.
Responder Con Cita
  #3  
Antiguo 02-03-2008
REHome REHome is offline
Miembro
 
Registrado: jul 2003
Ubicación: España
Posts: 454
Poder: 21
REHome Va por buen camino
Muchas gracias, me sirve a la primera.
__________________
http://electronica-pic.blogspot.com....n-arduino.html Manuales de electrónica general, PIC y Arduino.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
señal en la entrada de micrófpno ros07035 Varios 2 30-04-2010 01:43:35
consulta que de resultado entrada, salida y saldo Carmelo Cash SQL 11 13-11-2009 20:44:22
validar la entrada a una tabla paco_galo C++ Builder 0 20-05-2007 22:19:20
Dll y puntos de entrada chete Varios 1 11-01-2006 14:20:28
Entrada datos rápida Manuel Varios 3 13-01-2004 22:38:38


La franja horaria es GMT +2. Ahora son las 16:27:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi