Bienvenido a Hardcore Modding


 Vivir el modding / Iniciarse en el modding   Modding  ·  Artículos  ·  Guías  ·  Guías de los usuarios  ·  Reviews  ·  Enviar Noticia ·  Top 10 ·  Temas 21 de May de 2012 20:46  


Minichat

alucardl :
T_T esto esta muertisimo T_T
Cyg :
Holas amigos tanto tiempo. Saludos
alucardl :
T_T no k no muera T_T amaba esta pag T_T
spider :
el final de los tiempos? esto no sé si muere !! :)
mamel :
Pero Ivaj, cuanto tiempo sin leerte. Así me gusta dando el callo hasta el final de los tiempos.
IVAJ :
Buenos Dias a todos ;) , que conste que algunos me echan por muerto, pero aquí sigo y seguiré hasta que la web no se mantenga más en pie ;)
danilo741 :
PCera (pc sumergida) www.silly-bytes.blogspot.com
hantty :
hola a todos ;)
El_Nene :
ahora el modding tiene ke evolucionar, kizas a diseños mas minimalistas y estilizados, a darle más funcionalidades al PC, o a especiacilarlo más para el ocio o la domotica
El_Nene :
el modding de luces cantosas y diseños exagerados ya se ha pasado de moda, igual ke el tuning de neones, falldones y colores llamativos
El_Nene :
el modding de luces can
El_Nene :
y esto sigue vivo???? y yo que pensaba que husillos ya le habia dao el finikito al hosting
mamel :
El ciclo de modding en España (y también en Europa) está pasando por un periodo de baja productividad. Falta interés en la gente joven y los "viejunos" nos vamos jubilando.
jesmasco :
por cierto, el modding sige igual de activo en españa o ha perdido presencia? por que en méxico donde parece apenas tomar forma se menciona que en el viejo mundo ya no es tan pract
jesmasco :
por que seguir pagando el host y mantener esta vergüenza? que lastima muchos se ofrecierón a continuar con la bandera pero se les rechazo
ganchito :
Si alguien quiere una nuevo comunidad de hardware y modding estamos creando benchmarkhardware.com pasense por alli
mamel :
Hombre Ganchito, cuanto tiempo.
mamel :
Hombre Ganchito, cuanto tiempo
johnson :
Como dice Ganchito,esto huele a muerto...ha sido un placer conocerla/frecuentarla en sus buenas épocas
ganchito :
Esto ha perdido todo su valor, dentro de poco cierra, por lo menos una blackup del foro que hay cosas interesantes. PD Wenas MAmel
mamel :
Bueno, por lo menos seguimos en el aire.
:)8):eek::(:@;):P9):O


Foros

Hardcore-Modding.com
Sugerencias
Ayuda web
Modding
Cajas
Perifericos
Refrigeracion
Mods impresionantes
Electronica
Herramientas
Otros
Proyectos
Varios
Hardware
Overclock
Software
Off-topic
Lan Parties
Compra-venta
Benchmarks
3D mark
Pcmark 2002
Sisoft Sandra
Aquamark
Super Pi
Otros Benchmarks

Guías de los usuarios

· F.A.-> Como conectar una segunda fuente de alimentacion con un solo interruptor.
· Como otra forma de redondear cables
· Como control de dispositivos por puerto paralelo
· LCD-> Como localizar el patillaje de un LCD desconocido
· Como hacerse la tapa del lateral de metrakilato
· C.I.-> Construccion de un circuito con un relé
· Como Hacer Un Blowhole
· Como llavero para los Informaticos
· Como modificar el pulsador de encendido del ordenador.
· Como poner una lampara para el teclado

Últimos artículos

[ReviewsReview Revoltec Ram Freezer
[ReviewsReview Thermaltake Pipe 101
[ReviewsReview NZXT Nemesis
[ReviewsReview Rejilla SunBeam 3D Blade
[ReviewsReview ZALMAN ZM-2HC2
[ReviewsReview A-Top X-Blade
[ReviewsReview Teclado Revoltec LightBoard XL
[ArtículosHEAT PIPES El "nuevo" Paradigma de Refrigeración
[ReviewsReview Zalman CNPS 7000-A
[GuíasAplicar pasta termica


 
 
 FAQFAQ   BuscarBuscar   Grupos de UsuariosGrupos de Usuarios   PerfilPerfil   Entre para ver sus mensajes privadosEntre para ver sus mensajes privados   ConectarConectar 

Pulsador para un 16F84
Ir a página   
 
Publicar nuevo tema   Responder al tema    Foros de discusión -> Electronica
Ver tema anterior :: Ver tema siguiente  
Autor Mensaje
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Jue, 21 Ago 2008 6:39 pm    Asunto: Pulsador para un 16F84 Responder citando

Hola:

Se hacer con un PIC 16F84A apagar y encender un led con un interruptor. No me sale hacerlo con un pulsador. Mi idea es con un pulsador si lo pulso se enciende un led y si lo dejo de pulsar siga encendido, luego al volver a pulsarlo que se apague.



Código:
   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   PORTB            ; Las líneas del Puerto B se configuran como salidas.
      movlw   b'11111111'
      movwf   PORTA            ; 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.
      clrf   PORTB
      clrf   PORTA

Principal
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto   hola

   bsf      PORTB,7
   goto   Principal
hola

   bcf      PORTB,7
   goto    Principal
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Jue, 21 Ago 2008 7:44 pm    Asunto: Responder citando

Buenas Meta

tienes un pequeño problema con los pulsadores: Los rebotes; sol los picos que hay cuando pulsas hasta que se estabiliza la señal.

Se pueden correguir por software.

Tu lo que quieres es encender un led por un pulsador:
Código:


Principal
   call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    Principal            ;no  pulsado
   goto    Enciende

Enciende
   bsf      PORTB,7
   goto   Principal

END
include <Retardos>  ; tendras q copiar la libreria de retardos del librito morado jeje
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Jue, 21 Ago 2008 7:55 pm    Asunto: Responder citando

Gracias, lo de retardo lo se.

Quiero hacer que en un mismo pulsador encender y apagar el led. Cosa que el libro morado no te viene.

jejejjejeje

Gracias de nuevo.
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Jue, 21 Ago 2008 8:00 pm    Asunto: Responder citando

vale
Código:


Principal
PulsadorEnciende
   call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    PulsadorApaga   ;no  pulsado
   goto    Enciende

PulsadorApaga
   call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    PulsadorEnciende   ;no  pulsado
   goto    Apaga

Enciende
   bsf      PORTB,7
   goto   Principal

Apaga
   bcf      PORTB,7
   goto   Principal

END
include <Retardos>  ; tendras q copiar la libreria de retardos del librito ;morado jeje


el pulsador tiene ke activarse por +Vcc(5v) y tienes ke mantenerl la patilla siempre a un nivel negativo, con una resistencia (para evitar el corto) de 10k vale. Me imagino ke lo tienes asi
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Jue, 21 Ago 2008 8:15 pm    Asunto: Responder citando

Parece que si pulso se enciende y desde que deje de pulsar se apaga. Espero que no pase eso a lo plan de un timbre de una casa.

Voy a examinarlo bien y te comento.
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Jue, 21 Ago 2008 8:23 pm    Asunto: Responder citando

Código:


Principal
PulsadorEnciende
   call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    PulsadorApaga   ;no  pulsado
   goto    Enciende

PulsadorApaga
   call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    PulsadorEnciende   ;no  pulsado
   goto    Apaga

Enciende
   bsf      PORTB,7
   call Retardo_500ms
   goto   Principal

Apaga
   bcf      PORTB,7
   call Retardo_500ms
   goto   Principal

END
include <Retardos>  ; tendras q copiar la libreria de retardos del librito ;morado jeje




meti 500ms para ke sueltes el pulsador jeje
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Vie, 22 Ago 2008 12:27 pm    Asunto: Responder citando

No he probado el tuyo, pero he utilizado este método manejando el STATUS,Z. Aún así voy a probar el tuyo.

Los retardos ya se los pondré.

Código:

   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   PORTB            ; Las líneas del Puerto B se configuran como salidas.
      movlw   b'00011111'
      movwf   PORTA            ; 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

btfss PORTA,0
goto Loco
goto Principal

Loco
btfsc STATUS,Z ; ¿Es = 0?
goto Enciende
goto Apaga

Enciende
bcf STATUS,Z
bsf PORTB,7
goto Principal

Apaga
bsf STATUS,Z
bcf PORTB,7
goto Principal
END
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Vie, 22 Ago 2008 12:55 pm    Asunto: Responder citando

Probando en Proteus ni en MPLAB 8.14 funciona tu código.
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Vie, 22 Ago 2008 3:32 pm    Asunto: Responder citando

Meta escribió:
Probando en Proteus ni en MPLAB 8.14 funciona tu código.


eee bueno lo he echo de cabeza, pero en el proteus funciona mal con leds, hay ke ponerle retardos pa ke funcionen.

yo lo probare yo.

salu2!
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Vie, 22 Ago 2008 6:27 pm    Asunto: Responder citando

mmm

Meta tienes mal el codigo:

la operacion btfss es una operacion de salto y no afecta a ningun flag, como el Z, ya que este se enciende (o se pone a 1) cuando alguna operacion matemetica es 0.

es decir
Loco
btfsc STATUS,Z ; ¿Es = 0?
goto Enciende
goto Apaga

no te funcionara
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Kaisermart
modder
modder



País:
Sexo:
Registrado: 14 June 2006
Mensajes: 611

MensajePublicado: Vie, 22 Ago 2008 8:02 pm    Asunto: Responder citando

TheGameMaster escribió:
mmm

Meta tienes mal el codigo:

la operacion btfss es una operacion de salto y no afecta a ningun flag, como el Z, ya que este se enciende (o se pone a 1) cuando alguna operacion matemetica es 0.

es decir
Loco
btfsc STATUS,Z ; ¿Es = 0?
goto Enciende
goto Apaga

no te funcionara


Yo tb creo que es cierto. Me sonaba raro el código pero como hace la ostia que no programo nada pues como que no dije nada.
Kaisermart
Volver arriba
Ver perfil de usuario Enviar mensaje privado
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Sab, 23 Ago 2008 3:55 am    Asunto: Responder citando

Pruébalo en el proteus.

Y eso que no incluí antirrebotes.

Código:
:020000040000FA
:10000000831686011F3085008312051C08280528E9
:1000100003190B280E2803118617052803158613CC
:020020000528B1
:02400E00F13F80
:00000001FF
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Sab, 23 Ago 2008 3:57 am    Asunto: Responder citando

si pegas el codigo del mplab mejor, ke no soy como Neo en matrix xD!

jeje
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Meta
modder
modder



País:
Sexo:
Registrado: 20 January 2008
Mensajes: 196
Ubicación: http://electronica-pic.blogspot.com

MensajePublicado: Sab, 23 Ago 2008 4:40 am    Asunto: Responder citando

Es el mismo de arriba. Pruébalo en Proteus, en el MPLAB parece que no funciona como uno quiere, pero ponlo en el Proteus y funciona, eso si, no he incluido retardos,,,

Código:

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   PORTB            ; Las líneas del Puerto B se configuran como salidas.
      movlw   b'00011111'
      movwf   PORTA            ; 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

   btfss PORTA,0
   goto Loco
   goto Principal

Loco
   btfsc STATUS,Z ; ¿Es = 0?
   goto Enciende
   goto Apaga

Enciende
   bcf STATUS,Z
   bsf PORTB,7
   goto Principal

Apaga
   bsf STATUS,Z
   bcf PORTB,7
   goto Principal
   END
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor
TheGameMaster
modder
modder



País:
Sexo:
Registrado: 28 July 2007
Mensajes: 1148
Ubicación: Gijon

MensajePublicado: Sab, 23 Ago 2008 2:42 pm    Asunto: Responder citando

vamos a ver Meta, es imposible ke funcione, por varias razones:
- el flag Z del registro Status no se ve afectado por un cambio en el puerto de entrada tanto A como B y por la instruccion BTFSS. Este (Z) solo cambia cuando una operacion aritmetica es 0. Por ejemplo yo lo utilizo para controlar contadores:
Código:

CUENTA
incf CONTADOR,f        ;incremento contador
movlw b'00001111'     ;muevo un literal al W
subfw CONTADOR,w   ;resto el literal del W con el registro CONTADOR
btfss SATUS,Z            ;miro si Z es = a 1
goto CUENTA             ;sin Z no es 1 sigue incrementando
goto OTRA_COSA       ;si Z = 1 sale del bucle y hace otra cosa

Z se debe de borrar por soft: bcf STATUS,Z

Mira en el libro al final uno de los apendices q es donde viene les 35 instrucciones y donde veras ke la instruccion BTFSS no acepta a Z.

Por lo tanto probé tu codigo en proteus y el led parpadea solo. Ensamble tu codigo con Mplab 8.14
Código:


   __CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC
   LIST      P=16F84a
   INCLUDE  <P16F84A>

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   PORTB            ; Las líneas del Puerto B se configuran como salidas.
      movlw   b'00011111'
      movwf   PORTA            ; 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

   btfss PORTA,0
   goto Loco
   goto Principal

Loco
   btfsc STATUS,Z ; ¿Es = 0?
   goto Enciende
   goto Apaga

Enciende
   bcf STATUS,Z
   bsf PORTB,7
   goto Principal

Apaga
   bsf STATUS,Z
   bcf PORTB,7
   goto Principal
   END


Prueba el mio que si funciona al 100%
Código:


   __CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC
   LIST      P=16F84a
   INCLUDE  <P16F84A>

   ORG    0
   goto   Inicio

Inicio

   bsf   STATUS,RP0      ; Acceso banco 1.
    clrf    PORTB            ; Las líneas del Puerto B se configuran como salidas.
    movlw b'00011111'
    movwf   PORTA            ; Las líneas del Puerto A se configuran como entradas.
   bcf   STATUS,RP0      ; Acceso banco 0.

Principal
PulsadorEnciende
  call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    PulsadorApaga   ;no  pulsado
   goto    Enciende

PulsadorApaga
   call Retardo_20ms        ;espera 20ms para ke pase el rebote
   btfss   PORTA,0            ; ¿Bit 0 del PORTA es "1"?
   goto    PulsadorEnciende   ;no  pulsado
   goto    Apaga

Enciende
   bsf      PORTB,7
   call Retardo_500ms
   goto   Principal

Apaga
   bcf      PORTB,7
   call Retardo_500ms
   goto   Principal


   INCLUDE <RETARDOS>

   END
   
;   ===================================================================



vamos yo estoy aki pa echarte una mano, si tienes algun problema con los pics en Ensamblador preguntame, ke fijo te sabre ayudar. Te lo digo porke me se el libro de memoria, no es coña, y a los pic 16f84a ya se me han kedado pequeños en memoria y recursos.

Si quieres saber sobre mis proyectos preguntame.

Venga animo y no te desesperes.
Guiño Salu2!
Intel Core2 Duo E6750 / ASUS P5CK / 4GB 2x2GB DDR3-1333 / xfx HD5770 1GB DDR5 / SB Audigy SE / 3x500GB HDD / DVD-DL sata /Termaltake de 1000w
Volver arriba
Ver perfil de usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
Mostrar mensajes de anteriores:   
Publicar nuevo tema   Responder al tema    Foros de discusión -> Electronica Todas las horas son GMT + 2 Horas
Ir a página   
Página 1 de 2

 
Cambiar a:  

Powered by phpBB.


 
 

Forums ©

Este sitio no se hace responsable de ningún daño que cause en su ordenador con la información que en el se expone.Todos los productos y marcas están registrados por sus respectivos propietarios. Prohibida la reproducción total o parcial de los textos e imagenes de esta web sin el consentimiento expreso de su autor.
Hardcore-Modding.com © 2001-2010 Los comentarios son propiedad de sus autores (ya sean anonimos o registrados).
Portal basado en NukeET, RSS
Página Generada en: 1.354 segundos

π