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 Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-03-2008
Avatar de MaMu
MaMu MaMu is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 863
Poder: 19
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 17:31:41.
Responder Con Cita
  #2  
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



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 00:43:35
consulta que de resultado entrada, salida y saldo Carmelo Cash SQL 11 13-11-2009 19:44:22
validar la entrada a una tabla paco_galo C++ Builder 0 20-05-2007 21:19:20
Dll y puntos de entrada chete Varios 1 11-01-2006 13:20:28
Entrada datos rápida Manuel Varios 3 13-01-2004 21:38:38


La franja horaria es GMT +2. Ahora son las 00:36:44.


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