Autor Tema: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus  (Leído 110353 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Necrobutcher

  • PIC10
  • *
  • Mensajes: 10
Perdon por retomar este tema, pero podrian crear algun ejemplo simulando con un registro de desplazamiento (74hc164) y una eeprom¿?


saludos

Desconectado navaismo

  • Jubilado Todopic
  • PIC24H
  • ****
  • Mensajes: 1973
Este no te dara una idea creo que se parece "algo" a lo que quieres click aqui
"Mi tercer deseo, que otra cosa podría ser, poner un final a todo el sufrimiento, que sólo con mi propia extinción el planeta podrá ser aliviado. Pobre de mí, Si tuviera tres deseos hoy, la elección no sería dificil para mí, Sólo tres deseos serían suficientes, No tendría uso para más."

"He sido un hombre que busca y aun lo sigo siendo, pero ya no busco en las estrellas y en los libros, sino en las enseñanzas de mi sangre."

Desconectado dago

  • PIC10
  • *
  • Mensajes: 1
Hola:


me imagino que no debes estar utilizando los leds de la libreria ACTIVE... en ella encontraras los leds de diferentes colores en: azul, rojo, amarillo y verde...

Y a juzgar por la imagen que pusiste esa debe ser la version 6.3... la que yo tengo es la 6.7 SP3 y si te deja utilizar un buscador para los elementos...

El led lo puedes encontrar por este nombre por ejemplo: LED-BLUE... tambien como dice <font color="386898">MGLSOFT</font> fijate que las resistencias no sean muy elevadas....!

[/quote


 :-/]  oye necesito tu ayuda hace mucho rato ke no entraba al foro y ahora con el formato nuevo no se como expresar mi duda :shock:

Desconectado marco1020

  • PIC10
  • *
  • Mensajes: 2
Disculpa la molestia me llamo Marco, quiero descargar los archivos adjuntos pero se presenta un error en la pagina, como los descargo
Gracias de antemano

Desconectado rascueso

  • PIC10
  • *
  • Mensajes: 13
hola amigos. muy buenos los ejemplos felicitaciones a todos y gracias por compartir.
les cuento arme una cerradura electronica con pic 16f877A y un lcd 16x2 el codigo lo encontre en internet. anda muy bien pero... despues me dieron ganas de modificar un poco el codigo a mi gusto asi que empece a leer un poco de pbp sin previo conocimiento de programación soy un simple aficionado a la electronica. me dio mucha satisfacción poder modificar y complilar con en este probrama ya que es bastante simple.
ahora donde no puedo avanzar (no se si se podra) es hacer que mientras la cerradura esta en reposo que un led (el que ilumina el lcd) este apagado. ahora cuando uno empieza a tocar los botones se encienda y después de un ratito de no estar en uso se apague.
adjunto el codigo para ver si pueden darme una mano porque ya no me quedan mas pestañas por quemar. muchas gracias de antemano. saludos ras

codigo:
Código: [Seleccionar]
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : Luis Perez *
'* Notice : Copyright (c) 2010 IB-electronic *
'* : All Rights Reserved *
'* Date : 06/10/2010 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
@ device pic16f877a, wdt_off, lvp_off,xt_osc,xt_osc
define osc 4
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 0
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 1
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 2

cmcon=7
TRISA=0:porta=0
trisb=%11111000:portb=0
trisc=%11111100
trisd=0:portb=0
trise=0:porte=0

Numero var byte
nu1 var byte
nu2 var byte
nu3 var byte
nu4 var byte
R var byte
x var byte
x=0

PARLAN VAR PORTC.0
LED VAR PORTC.1
PUERTA VAR PORTC.2
PC var portc.3
PA var portc.7

F1 VAR PORTB.0
F2 VAR PORTB.1
F3 VAR PORTB.2
F4 VAR PORTB.3

C1 VAR PORTB.4
C2 VAR PORTB.5
C3 VAR PORTB.6
C4 VAR PORTB.7

Car1 var byte
Car2 var byte
Car3 var byte
Car4 var byte
dato var byte

Pre:
lcdout $FE,1:LCDout $FE,$80,"Llave electronic"
pause 500
lcdout $Fe,$C0,"ib-electronic"

INICIO:
HIGH LED : SOUND parlan,[100,50]:high parlan
LOW LED : LOW parlan

'*********************************************
'Claves por defecto=1234:
'*********************************************
eeprom 0,[1,2,3,4]
RESET:
read 0,car1
read 1,car2
read 2,car3
read 3,car4


goto TEcla1


TEcla1:
lcdout $fe,1
lcdout $FE,$80,"Clave:"

gosub teclado: lcdout $fe,$c0,"X" :gosub pid
gosub espacio
nu1=numero
if numero=car1 then TEcla2
goto false

TEcla2:
gosub teclado : lcdout $fe,$c0,"XX" : gosub pid
gosub espacio
nu2=numero
if numero=car2 then TEcla3
goto false1

Tecla3:
Gosub Teclado : lcdout $fe,$c0,"XXX" : gosub pid
gosub espacio
nu3=numero
if numero=car3 then Tecla4
goto false2

TEcla4:
gosub teclado : lcdout $fe,$c0,"XXXX" : gosub pid
gosub espacio
nu4=numero
if numero=car4 then compara
goto false3

Compara:
if (nu1=car1) and (nu2=car2) and (nu3=car3) and (nu4=car4) then open
goto false3

PID:
SOUND parlan,[100,10] : high led
pause 300
low parlan :low led
return

Espacio:
pause 300
return

False:
goto tecla2

False1:
goto tecla3

False2:
goto tecla4

False3:
lcdout $fe,1
lcdout $FE,$80,"Clave:"
lcdout $FE,$C0,"incorrecta"

for r= 1 to 20
high led : SOUND parlan,[100,10] : high pc
pause 50
low led : SOUND parlan,[50,10] : low pc
pause 50
next

high pc
pause 2000
low pc
goto tecla1

OPen:
lcdout $fe,1
lcdout $FE,$80,"Clave:"
lcdout $FE,$C0,"Correcta"

for r=0 to 2
high led:SOUND parlan,[100,10];high parlan
pause 100
low led :SOUND parlan,[50,10];low parlan
pause 100
next

Menu:
lcdout $fe,1
lcdout $fe,$80,"Bienvenido"
lcdout $fe,$C0,"RAS"
pause 1000
lcdout $fe,1
lcdout $fe,$80,"Menu"
lcdout $fe,$c0,"1-Open 2-Clave"

Op:
gosub teclado
if numero=1 then door
if numero=2 then graba1
goto op

Door:
lcdout $fe,1
lcdout $fe,$80,"Puerta"
lcdout $fe,$C5,"Abierta"

high puerta :high pa
pause 5000
low pa :low puerta
goto tecla1


Graba1:

lcdout $fe,1
lcdout $fe,$80,"Cambiar Clave"
lcdout $fe,$c0,"----"

high led : SOUND parlan,[100,300] : pause 1000 : low led : low parlan
gosub teclado:gosub PID

lcdout $fe,$c0,"X--"

write 0,numero
pause 300

Graba2:
gosub teclado:gosub PID

lcdout $fe,$c0,"XX--"

write 1,numero
pause 300

Graba3:
gosub teclado:gosub pid

lcdout $fe,$c0,"XXX-"

Write 2,numero
pause 300

Graba4:
gosub teclado:gosub pid

lcdout $fe,$c0,"XXXX"

write 3,numero
pause 300

lcdout $fe,1
lcdout $fe,$80,"Clave guardada"
lcdout $fe,$c0,"xxxx"

for r = 0 to 5
SOUND parlan,[100,10] : high led
pause 100
SOUND parlan,[50,10] : low led
pause 100
next
goto RESET

Teclado:
low f1
if c1=0 then numero=7:return
if c2=0 then numero=8:return
if c3=0 then numero=9:return
high f1

low f2
if c1=0 then numero=4:return
if c2=0 then numero=5:return
if c3=0 then numero=6:return
high f2

low f3
if c1=0 then numero=1:return
if c2=0 then numero=2:return
if c3=0 then numero=3:return
high f3

low f4
if c1=0 then numero=10:return
if c2=0 then numero=0:return
if c3=0 then numero=11:return
high f4

pause 10
GOTO teclado

end

Dame un pez y cenaré esta noche, enséñame a pescar y cenaré siempre

Desconectado minimus

  • PIC10
  • *
  • Mensajes: 1
xd

Desconectado jose rodriguez

  • PIC10
  • *
  • Mensajes: 5
saludos apreciados Amigos de este foro.....disculpen soy nuevo en este foro y no se si estoy en lo correcto....necesito por favor ayuda.....con los PIC....la programacion.... :P

Desconectado elreypic2

  • Colaborador
  • PIC24H
  • *****
  • Mensajes: 1199
saludos apreciados Amigos de este foro.....disculpen soy nuevo en este foro y no se si estoy en lo correcto....necesito por favor ayuda.....con los PIC....la programacion.... :P

Que tal José,
Bienvenido al foro y al mundo de los microcontroladores PIC.
¿Qué tipo de ayuda necesitas?
Has puesto tu solicitud en el foro de Basic, podrías indicarnos ¿cuál el el compilar Basic que estás usando? PBP, Proton, MikroBasic, PIC Simulator IDE?

Necesitas ser específico en tu pregunta o solicitud de ayuda, de otra forma no sabremos qué es lo que necesitas.

elreypic.

Desconectado jose rodriguez

  • PIC10
  • *
  • Mensajes: 5
Gracias hermano....saludos...bien estoy aprendiendo   con CCS compiler y simulo con proteus 7..... he tratado de entender como logro en la programacion crear funciones independientes del uno con el otro....me explico....ummmm....que un led al recibir por una entrada del pic una señal de 5v o 0 se comporte intermitente y se mantenga en ese ciclo... y que en otra entrada del pic, un led encienda cada 3 segundo pero con una condicion si recibe una repuesta positiva el se detenga y confirme  con un led y sino se encienda otro led por otra salida .....OSEA digamos que quiero arracar un motor de un automovil y tengo 3 oportunidades de encenderlo ok...si en la primera oportunidad enciende me confirme que encendio y si en las 3 oportunidades no enciende desisto de encenderlo y me muestra una alarma de fallido.....gracias por su gentil y amable tiempo ..... :-/


 

anything