TODOPIC

Microcontroladores PIC => Primeros pasos - Iniciación a los microcontroladores => Mensaje iniciado por: Marcopolo1 en 29 de Septiembre de 2005, 11:55:00

Título: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: Marcopolo1 en 29 de Septiembre de 2005, 11:55:00

Se solicita ayuda de los participantes mas avanzado para este proyecto

La idea es que entre todos los que esten interesados aprendamos a usar los Pic
Yo propondria en especial 16F84 que tiene bastante informacion en Internet y es barato cuando se quiera llevar a la practica.
Tenemos el proteus 6.3 que nos puede representar todos los efectos, y asi aprender a usarlo mejor y tenemos un lenguaje simple de entender que es el Pic basic Pro que se puede compilar con el Microcode studio y existe tambien bastante informacion, yo se que el ideal es ASM como lenguaje, pero como principio de uso nos sirve el PBP, tambien existe de algunos participante avanzado del foro,que ya nos dejo escrito con PBP Dibujos esquematico de como prender un led y hacer un secuencial muy bueno.
Osea tambien se pueden enviar dibujos de como se realizan los Proyectos

Los que estamos de acuerdo envien si Nick

Partamos con que todos tengan:
Proteus
MicrocodeStudio con su libreria
ojo yo soy principiante aqui dependeremos de los participantes mas avanzados y mas inteligentes que nos vallan sacando de los problemas que se presenten

Ademas para ir avanzando deberemos darnos plazo
Partimos Hoy 29-09-2005
1 semana para decidir el tema

Con que Proyecto comenzamos esto lo podemos decidir entre todos el que tenga mas acuerdo lo comenzamos

1° Proyecto
Como ya esta prender y apagar un led, podriamos una transmision de Pic a otro Pic

2° Proyecto

3°Proyecto

4°

5°

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 29 de Septiembre de 2005, 12:19:00

Hola:

Pues es buena la iniciativa, y en lo que pueda ayudar aqui estoy, presisamente yo he colgado algunos ejemplos en el subforo de PBP y Proton, de hecho tengo algunos mas incluyendo el que quieren hacer... pero por descuido no los he subido, tambien porque ahora estoy liado con el Bot, pero si hay algo en lo que se pueda ayudar.... Aqui estamos todos los compañeros...! Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 01 de Octubre de 2005, 02:44:00

Hola

Muy buena idea!! yo me prendo aunque los seguiré haciendo los ejercicios en Pbplus y Proteus, asi práctico con el simulador

saludos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: lord_10 en 01 de Octubre de 2005, 09:19:00

sale

yo me uno al hilo, para aprender PBP en mis ratos libres...... Giño

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 03 de Octubre de 2005, 00:33:00

HOla !!

bueno considerando que no hubo mas respuestas empiezo colocando un sencillo ejemplo de Pic basic Plus , queda pendiente la simulacion en proteus que voy a ver si la hago mañana !

este ejemplo alterna el encendido de dos leds conectados al port B1 y port B2 de un pic 16f84a

Codigo:

"##########################################################
"##              alterna el encendido de 2 leds          ##
"##              doppel - La Pampa - Argentina           ## 
"##                  --- 10/08/04 ----                   ##
"#########################################################

" DISPOSITIVO a usar 
   device = 16f84 
   xtal = 4
   
   Symbol LED1 PORTB.1     "convierto el portb.1 en LED1
   symbol LED2 PORTB.2      " convierto el portb.2 en LED2
   

     Clear
   PORTB = 0                   
   TRISB = %11111001    " DEFINO ENTRADAS Y SALIDAS


ALTERNAR: DELAYMS 10                         
          HIGH LED1            "enciendo led 1             
        LOW LED2             "apago led 2
        PAUSE 250            " pausa de 250 ms
        LOW LED1             "apago led 1
        HIGH LED2             "enciendo led2
        PAUSE 250             " pausa de 250 ms
        GOTO ALTERNAR      " vuelve a "alternar"

saludos
a ver quien se suma!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 03 de Octubre de 2005, 01:30:00

Hola:

Pana Doppel hay solo unas cosillas que me parecen que estan demas...!

Codigo:
   Clear
   PORTB = 0                   
   TRISB = %11111001    " DEFINO ENTRADAS Y SALIDAS

Esto, ya que como utilizas las funciones HIGH y LOW y estas funciones hacen automaticamente como salida al pin especificado.

Y aqui

Codigo:
ALTERNAR: DELAYMS 10

Me parece que el DELAYMS esta demas...!

este es el mismo ejemplo tuyo, solo le he hecho unos pequeños cambios:

Codigo:
" DISPOSITIVO a usar 
   device = 16f84 
"CRISTAL
   xtal = 4
   
ALTERNAR:
       HIGH 0            "enciendo led 1             
       LOW 1             "apago led 2
       PAUSE 250            " pausa de 250 ms
       LOW 0             "apago led 1
       HIGH 1             "enciendo led2
       PAUSE 250             " pausa de 250 ms
GOTO ALTERNAR      " vuelve a "alternar"

y este es el esquema en proteus:

tambien se puede utilizar DELAYMS en lugar de pause, los dos funcionan bien... Sonrisa Gigante

Seria interesante que los demas compañeros que esten interesado empiecen a postear sus ejemplos en PBP o Proton+ para ve que fallas o preguntas o sugerencias vamos teniendo....!

PD: este mismo codigo les puede servir para PBP, omitiendo las declaraciones del micro a utilizar y el oscilador, con respercto a este ultimo se lo define asi:

Codigo:
DEFINE OSC 4 

ALTERNAR:
       HIGH 0            "enciendo led 1             
       LOW 1             "apago led 2
       PAUSE 250            " pausa de 250 ms
       LOW 0             "apago led 1
       HIGH 1             "enciendo led2
       PAUSE 250             " pausa de 250 ms
GOTO ALTERNAR      " vuelve a "alternar"

Este seria el programa para PBP...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 04 de Octubre de 2005, 12:49:00

Hola Lordlafebre!!

jeje veo que somos los únicos por ahora!! espero que se sume gente asi entre todos realizamos ejemplos y podemos aprender más!.. Bueno con respecto a High y low muy bueno! no lo sabia pero es interesante, siempre se aprende algo jeje

ayer no pude aparecer por que ando con los tiempos ajustados pero ya estoy haciendo algunas cosas con ISIS el problema que tengo es que no me deja buscar los componentes con algún search, los estoy ubicando a mano y como no me conozco las librerias pierdo mucho tiempo, ahora bien estuve mirando los video tutoriales y tengo algunas diferencias en las ventanas que no se si es por la version o me falta configurar algo, pongo una fotis para que se vea.-

otra cosa! como hacés para que encienda el led? yo coloque el led, me hace la simulacion bien con los puntos rojo y azul pero no me los enciende, que me falta!?

saludos y gracias Giño

EDITO: bueno parece que lo de la ventana es por problemas de version, la version mas nueva cuenta con un buscador de componentes yo tengo la version 6.2 sp4

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: MGLSOFT en 04 de Octubre de 2005, 13:00:00

Que valor tienen tus resistencias ??
Parate sobre ellas y presionas boton derecho en modo edicion de propiedades... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 04 de Octubre de 2005, 13:43:00

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 MGLSOFT fijate que las resistencias no sean muy elevadas....!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 04 de Octubre de 2005, 13:57:00

Hola gracias MGLSOFT, las resistencias las tenia bien!! el tema era como decia Lord lo de la libreria active.-

asi quedó!!

estoy viendo que muchos han leido el post!! espero se animen y pongan sus dudas y cuelguen algúna imagen de como les funcionó!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 04 de Octubre de 2005, 14:14:00

Hola:

Pues si... han habido muchas lecturas y ni el amigo Marcopolo1 ni el amigo Lord_10 ha aparecido... como sea creo que deben estar ocupados, esto me sirve ami como quien aprendo Proton +... Sonrisa Gigante

A ver si algunos compañeros mas se animan...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: Marcopolo1 en 04 de Octubre de 2005, 16:25:00

Hola, que bien que ya comenzaron,

Dejare los enlace para bajar los programas

Programa simulador de los proyectos "Proteus"
http://www.labcenter.co.uk/index.html?/support/whatsnew.htm
Si ustedes tienen un proteus superior, favor Indicar

Programa Compilador del lenguaje de PicBasic Pro
http://www.microengineeringlabs.com/resources/win_ide.htm

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 04 de Octubre de 2005, 16:49:00

Hola:

Pues yo tengo las siguientes versiones:

PBP 2.46

Microcode Studio Plus 2.2.1.1

Proteus 6.7 SP3

Para lo que es PBP no creo que tengamos problemas de incompatibilidad porque al inicio estariamos utilizando unicamente funciones basicas... pero en el caso de proteus si... una version inferior no puede leer un archivo o no puede cargar un archivo de una version superior...!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: lord_10 en 04 de Octubre de 2005, 23:54:00

En esta semana ya estoy con ustedes panas de lleno.... Sonrisa Gigante

saludos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 06 de Octubre de 2005, 18:22:00

Hola amigos
viendo que no hay mucha actividad!! pongo algunas cositas mas en Protón +

para descargar el soft la version LIte con el manual:

http://www.picbasic.org/proton_plus.php

En el siguiente ejemplo vemos el funcionamiento del comando BUTTON a lo visto del ejemplo de los led´s le sumamos unas cositas

sintaxis:

BUTTON Pin , DownState , Delay , Rate , Workspace , TargetState , etiqueta

para mas detalles de funcionamiento referirse al manual o al sig: post

http://miarroba.com/foros/ver.php?foroid=8826&temaid=216381

donde hay una explicacion de LAGER acerca del funcionamiento y configuracion.-

Codigo:
Dim btn as Byte
   symbol LED1 PORTB.1
   symbol LED2 PORTB.2
   symbol SWICH PORTB.3

     Clear
   PORTB = 0                   
   TRISB = %11111001    " DEFINO ENTRADAS Y SALIDAS

    
TITILAR:  DELAYMS 10
        HIGH LED1  
          HIGH LED2
        PAUSE 250
        LOW LED1 
        LOW LED2
        PAUSE 250
        button SWICH,0,10,2,btn,0,TITILAR " testea el boton swich, si está oprimido 
        GOTO ALTERNAR                     " realiza la accion titilar sino hace
ALTERNAR: DELAYMS 10                        " un salto a la siguiente instruccion 
          HIGH LED1                         " conclusion: sale del bucle al apretar el boton
        LOW LED2
        PAUSE 250
        LOW LED1
        HIGH LED2
        PAUSE 250
        button SWICH,0,10,2,btn,0,ALTERNAR
        GOTO TITILAR

mas allá de que algunas cosas están demás y seguramente funcionaria igual, el objetivo es acostumbrar a ver el tipo de declaraciones en el código

saludos!!

y a ver quien se anima! jeje

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 14 de Octubre de 2005, 20:04:00

Holas
les coloco un ejemplo con un display de 7 segmentos, usando IF
ya en este foro se ha tocado el tema muchas veces en la parte referida a PIC BASIC PRO Y PROTON mas especificamente en :

http://miarroba.com/foros/ver.php?foroid=8826&temaid=4001543

donde hay un montón de ejemplos hechos por LORDLAFEBRE, donde se utiliza un display de 7 segmentos pero utilizando LOOKUP , los ejemplos de Lordlafebre están hechos en Pbpro

he aqui otra forma, no muy "estilizada" pero bien sirve como ejemplo está en PBplus donde tb es factible usar LOOkUP.-

como pueden observar las diferencias no existen casi, por lo menos en estos sencillos ejemplos, ya cuando coloquemos ejemplos mas complejos se notaran algunas diferencias bien marcadas.-

Codigo:
device = 16f84a
xtal = 4

dim Buff as Byte
dim cuenta as Byte
symbol btn = PORTB.0

clear
cuenta = 0
    TRISB = %00000001 "defino todas salidas menos el bit 0 que es entrada
    PORTB = %11110010 "inicio mostrando el numero "1" en el display

inicio: 
                    DELAYMS 25
      BUTTON btn,0,40,5,Buff,1,programa "si el boton es apretado sale del bucle y va a programa
      GOTO inicio

programa:
   cuenta = cuenta + 1
   IF cuenta > 9 THEN 
    cuenta = 0
      else
      if cuenta = 1
         PORTB = %11110010 "numero 1
         goto inicio  
       endif
      if cuenta = 2
                   PORTB = %01001000 " numero 2
         goto inicio  
       endif
      if cuenta = 3
         PORTB = %01100000 "numero 3
         goto inicio 
       endif
      if cuenta = 4
         PORTB = %00110010 "numero 4
         goto inicio 
       endif
      if cuenta = 5
         PORTB = %00100100 "numero 5
         goto inicio 
       endif
      if cuenta = 6
         PORTB = %00000100 "numero 6
         goto inicio 
       endif
      if cuenta = 7
         PORTB = %11110000 "numero 7
         goto inicio 
       endif
      if cuenta = 8
         PORTB = %00000000 " numero 8
         goto inicio  
       endif
      if cuenta = 9
         PORTB = %00110000  "numero 9
       endif
   endif
goto inicio

tb una imagen de la simulacion en proteus! saludos
y ojala alguien se anime a colocar sus imagenes de como implemento los ejemplos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 14 de Octubre de 2005, 21:22:00

Hola:

Bien doppel, veo que quedamos los dos, pero lo que cuenta es que podemois seguir haciendo los ejemplosy si alguien mas se anima pues bienvenido sea, mañana pongo un ejemplo en PBP para lo que tu hiciste, utilizando los IF y el Case para que se pueda notar la diferencia.... tambien esta de hacer mas seguido los ejemplos ahora ya dispongo de un poco mas de tiempo... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: lord_10 en 15 de Octubre de 2005, 13:24:00

gracias Doppel por el ejemplo.....yo igual ya empece con esto...del PBP ya pronto ire viendo mis dudas k salgan s ela scomneto por aki... Giño

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 16 de Octubre de 2005, 15:25:00

Hola:

Aqui esta el mismo ejemplo del amigo Doppel pero en PBP y utilizando un Case:

Codigo:
"Display 7seg. con Case

cont    var byte

TRISB=0

cont=0

loop:
    select case cont
                   "gfedcba 
        case 0
            PORTB=%01000000 
        case 1
            PORTB=%01111001 
        case 2
            PORTB=%00100100  
        case 3
            PORTB=%00110000 
        case 4
            PORTB=%00011001 
        case 5
            PORTB=%00010010 
        case 6
            PORTB=%00000011 
        case 7
            PORTB=%01111000 
        case 8
            PORTB=%00000000 
        case 9
            PORTB=%00011000 
    end select  
    cont=cont+1
    if cont>9 then
        cont=0
    endif
    pause 250
    goto loop
end

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 16 de Octubre de 2005, 20:15:00

Hola amigos!

completando el circuito anterior he agregado una rutina para el RESET, la cual borra los números del array y lo deja en "0" indicandolo en el display, pendiente queda para la proxima el grabado en la EPROM.-

Codigo:
labelreset:
            for R=0 to 3       "recorro las posiciones del array
         arrVals[R]= 0      "igualo las posiciones a "0"
         next
         PORTB = %10000000  " resetea a cero y muestra cero en display
              goto inicio

lo anterior se agrega al codigo existente.-

la simulación en proteus:

saludos!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 18 de Octubre de 2005, 12:03:00

Bueno primero antes que nada quisiera saludarlos a todos y agradecerle su interes por nosotros los mas cabezaduras de los PIC asi que muchas gracias pero emepzando mi primera peticion es de donde puedo bajrame el proteus ------------------------------------------------------------------------------------------------------------------------- gracias de antemano

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 18 de Octubre de 2005, 12:19:00

Hola:

Pue Bienvenido y disculpa por editar tu mensaje pero no es conveniente que pidas abiertamente aqui en el foro que compartan software pirata, si lo quieres descargar busca en el Emule o en el Kazaa o uno de esos programas o escribe al privado pero no lo hagas aqui porque corremos el riesgo de que nos cierren el foro...

Buscalo como te comente... Suerte...! Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 18 de Octubre de 2005, 12:22:00

bueno disculpame por favor es la ignorancia dime una cosa como reconozco si un pic es de 20 MHZ pq no dice 16f877 - 20 sino dice PIC16F877A-I/P

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 18 de Octubre de 2005, 12:25:00

por favor la respuesta es urgente no sean malos soy novataso!!!!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 18 de Octubre de 2005, 12:26:00

Hola:

pues si no estoy mal esos soportan frecuencias de hasta 20Mhz... por lo que funcionaria sin problemas para un cristal de 20...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 19 de Octubre de 2005, 00:06:00

Muchas gracias sino estoy cometiendo un error ----------------------------------------------------------------------------------------------

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 19 de Octubre de 2005, 00:20:00

Hola:

Perdon por volver a editar tu mensaje pero por favor no pidas hacer eso..... eso es pedir o compartir software pirata.... y como ya te comente corremos el riesgo de que nos cierren el foro... Avergonzado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 19 de Octubre de 2005, 00:29:00

hola amigo del Ecuador por favor me harias el favorsaso de darme tu Messenger para conversar sobre el tema please

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 19 de Octubre de 2005, 00:32:00

Hola:

Puedes escribirme al privado...! Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 19 de Octubre de 2005, 00:42:00

lee lo que te escribi please

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 19 de Octubre de 2005, 23:44:00

HOLA TENGO UN PROBLEMILLA NECESITO USAR UN POTENCIOMETRO Y MOSTRAR EL VALOR DEL VOLTAJE EN UN LCD PERO CON TODO Y DECIMALES COMO CONVIERTO LA MUESTRA DEL ADC A NUMEROS CON DECIMALES MUCHAS GRACIAS

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 22 de Octubre de 2005, 01:36:00

Hola Amigos! Giño

retomando el tema vamos a grabar los valores en la eprom interna del PIC, acá se usa el mismo circuito que el ejemplo anterior con las diferencias del codigo.-

según el manual:

Sintaxis
EWRITE dirección , [ Variable {, Variable…etc } ]

-escribe información en la memoria eprom disponible en algunos tipos de pic.-

Sintaxis
Variable = EREAD dirección

Lee la informacion de la eprom interna.-

algunos cambios al codigo anterior

en el grabado no se usa mas el array.

Codigo:
labelSave: 
           if w < 4 then
           ewrite w, [cuenta] "asigno 4 valores en la eprom interna
                 w = w + 1  
          else 
         PORTB = %00001100  " muestra la E de error por desborde
          endif
goto inicio

En la muestra de los valores se lee de la eprom y el reset pone a "0" la eprom (si bien esto desde el punto de vista práctico no es lo conveniente en este caso por el intenso trabajo que lleva a cabo la eprom interna, ya que con el boton reset estariamos continuamente borrando y escribiendo con save espero alguien pueda aportar datos sobre esto, pero creo que en casos asi se usa una eprom externa, esto lo dejaremos para mas adelante.-

Codigo:
labelShow:
        FOR x=0 to 3                "leo las 4 posiciones de la  eprom para mostrar los números almacenados
            show = eread x
         
      if cuenta = 0
         PORTB = %10000000 "numero 0
      endif
      
      if show = 1
         PORTB = %11110010 "numero 1
      endif
      
      if show = 2
           PORTB = %01001000 " numero 2
      endif
      
      if show = 3
         PORTB = %01100000 "numero 3
      endif
      
      if show = 4
         PORTB = %00110010 "numero 4
      endif
       
      if show = 5
         PORTB = %00100100 "numero 5
      endif
      
      if show = 6
         PORTB = %00000100 "numero 6
      endif
      
      if show = 7
         PORTB = %11110000 "numero 7
      endif
      
      if show = 8
         PORTB = %00000000 " numero 8
      endif
      
      if show = 9
         PORTB = %00110000  "numero 9
      endif
       PAUSE 1000
     NEXT  
 x=0
goto inicio
labelreset:
            for R=0 to 3       "recorro las posiciones de la eprom
         ewrite R,      "igualo las posiciones a "0"
         next
         PORTB = %10000000  " resetea a cero y muestra cero en display
         w = 0
      goto inicio
END

espero que se animen y coloquen sus experiencias.-

saludos Giño

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 22 de Octubre de 2005, 10:47:00

Hola:

Cual es la idea Doppel...? para hacerla en PBP...

Me he perdido de este hilo... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 22 de Octubre de 2005, 21:14:00

Hola Lordlafebre!!!

Bien! la idea es mas o menos la siguiente! por que en realidad no habia una idea solo se fueron agregando cosas para ver mas que nada como funciona !!

Cuatro botones (pulsadores):

1- next (para avanzar en la cuenta)
2-save (para grabar los valores que se eligen)
3-show (para mostrar los valores guardados)
4-reset (borra la eprom y muestra "0" Giño

se avanza con NEXT y cuando se para en un número se puede almacenar con SAVE, se almacenan un total de 4 digitos y si querés almacenar otro teniendo ya los 4 te muestra la "E" de error, para mostrarlos lo haces con SHOW y los muestra en orden de grabado con 1 segundo de intervalo entre digito y digito.
Para borrar los numeros esta el boton RESET que borra la eprom y muestra el "0" en el display

a ver como queda!!!! Rebotado

saludos!! y a los demas que se animen!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 22 de Octubre de 2005, 22:08:00

Hola:

Voy a intentarlo.... mañana en la tarde o noche subire el codigo y el ejemplo en proteus...! Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 25 de Octubre de 2005, 19:05:00

Hola gente !
estoy un poco complicado con el tiempo pero siempre que me pueda escapar un segundo estare colocando ejemplos.-

Lo visto hasta ahora fue en base a display de 7 segmentos, lo que sigue es lo obligatorio y es pasar a pantallas de LCD Rebotado

Lo siguiente es un ejemplo sencillo de manejo de LCD con las configuraciones que toma por defecto el protón, osea que solamente conectamos el lcd en las patas que correspondan por "default" y sale andando! distinto seria si quisieramos que funcione en otros puertos que no fueran estos, para ello tendriamos que declararlos y decirle a proton donde vamos a conectar cada cosa, pero esto queda para el proximo ejemplo.-
el siguiente codigo hace aparecer un mensaje de dos lineas, y está desarrollado con un lcd de 2x16 generico y con un pic 16f84a.-

Codigo:
"conexiones default = 4 bits, 2 lineas de display x 16
"d4 = RB4
"d5 = RB5
"d6 = RB6
"d7 = RB7
"EN = RB2
"R/W = masa
"RS = RB3

device = 16f84a                  " declaramos pic a usar
xtal = 4                         " declaramos cristal
             "no se usan los comandos de inicializacion por usar conexiones por defecto   
print $fe, 1                      " limpia pantalla 
delayms 30                     " siempre despues de limpiar pantalla hacer un delay
print $fe, 128, "hola loco!!!"     " se posiciona en la posicion 1 de la linea 1 (home) y muestra el mensaje
print $fe, $c0                     " se posiciona en el comienzo de la linea 2  
print "como estas?"                " muestra el mensaje

la imagen correspondiente en proteus!

como siempre espero que coloquen sus imagenes para ver como les queda y tb que hagan sus consultas, entre todos solucionaremos las dudas.-

saludos Giño

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 25 de Octubre de 2005, 20:55:00

Ahi va otro ejemplo tomando otros puertos para el manejo del LCD.- Muchas risas

En el manual estan los demás detalles !!

Codigo:
"conexiones = 4 bits, 2 lineas de display x 16 - 
"d4 = RB0
"d5 = RB1
"d6 = RB2
"d7 = RB3
"EN = RB4
"R/W = masa
"RS = RB5

device = 16f84a               " declaramos dispositivo
declare xtal = 4               " declaro cristal

declare lcd_type 0             " declaramos el tipo de LCD 1=grafico 0=alfanumerico
declare lcd_dtport PORTB     " declaramos puerto a usar
declare lcd_dtpin PORTB.0    " asigna puerto y pines que se usaran como linea de DATOS 
declare lcd_enpin PORTB.4    " asigna el puerto y pin para linea de ENABLE
declare lcd_rspin PORTB.5    " asigna el puerto y pin para linea de RESET
declare lcd_interface 4      " informa al compilador cuantas lineas se usan de conexion 4 u 8
declare lcd_lines 2          " informa al compilador la cantidad de lineas del LCD este caso 16 x 2 lineas

       print $Fe, 1                    "  limpia pantalla
      delayms 30                      " siempre que se limpia pantalla tiene que haber un pequeño delay luego
      print $fe,128,"HOLA LOCO    !!" " va al home y muestra mensaje

saludos.-

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: manuelroin en 25 de Octubre de 2005, 21:34:00

Necesito saber como adjuntar datos en el foro y como mostrar imagenes para poder ayudar a unos amigos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 23 de Noviembre de 2005, 00:12:00

QUE TAL HERMANOS Sonrisa Gigante

PUES BIEN, HOY LLEGAMOS A UN ACUERDO CON EL MODERADOR DE ESTE POST, DESDE HOY VAMOS A CONTINUAR AVANZANDO CON ESTE FORO PARA IR PROFUNDIZANDO CONOCIMIENTOS EN LOS LENGUAJES BASIC PARA PIC PBP Y PROTON.... ...ADEMAS VAMOS A IR AÑADIENDO LOS MISMOS EJEMPLOS HECHOS PARA PIC PARA LOS MICROCONTROLADORES DE MARCA ATMEL AVR...

ES DECIR VAMOS A PONER UN EJEMPLO Y DE SER POSIBLE EL CODIGO EN LOS TRES LENGUAJES BASIC, PROTON Y PBP, PARA PIC Y BASCOM BASIC PARA LOS AVR ATMEGA8 DE ATMEL...

PARA LA SIMULACION PUES VAMOS A UTILIZAR PROTEUS, Y TODOS LOS ARCHIVOS SERAN COLGADOS PARA QUE LOS PUEDAN BAJAR Y APRENDER JUNTO A NOSOTROS..

LO UNICO QUE ESPERAMOS ES CONTAR CON SU COLABORACION Y SU APOYO, NO DUDEN EN PREGUNTAR Y PUES VAMOS ADELANTE LA IDEA ES TRATAR DE PONER UN EJEMPLO DIARIO EN LOS TRES LENGUAJES, ASI DE PASO APRENDEMOS A PROGRAMAR PIC Y AVR EN BASIC...

BUENO ESPERAMOS CONTAR CON SU APOYO Y PUES DESDE HOY EMPEZAMOS A TRABAJAR CON LOS EJEMPLOS, PUES POR ESTOS DIAS VOY A EMPEZAR A SUBIR EL CODIGO DE BASCOM PARA AVR DE LOS EJEMPLOS QUE ESTAN POSTEADOS ACA, Y PRONTO ESTAREMOS CON TODOS LOS EJEMPLOS EN ORDEN...

SALUDOS DESDE ECUADOR Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 23 de Noviembre de 2005, 00:38:00

Hola:

Pues no se si cambiamos mucho la idea original del post, pero para no abrir muchos links decidimos continuar aqui, y de paso animamos un poquito mas a aquellos que no saben que compilador utilizar, presentamos tambien una opcion como dice olotill el compilador Bascom para AVR... y asi comparamos un poco las virtudes de los unos y de los otros como a micros y compiladores se refiere...

Pues como se notara, soy amante del Basic, y cualquier compilador que sea basic es bienvenido... Sonrisa Gigante

Ya estaremos con mas ejemplos para quienes se interesen... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: lord_10 en 23 de Noviembre de 2005, 08:42:00

escrito por Lord_lafebre:

Pues como se notara, soy amante del Basic, y cualquier compilador que sea basic es bienvenido...

Oye pana si casi no se nota que te agrada el Basic, nadamas tantito..... Muchas risas

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 23 de Noviembre de 2005, 08:47:00

Hola:

Pues es el que me enseñaron en el cole, y una ves que aprendes pues le encuentras el gustito... pero el que mas me agrada es el PBP ese lo uso... los demas los veo como alternativas.... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 23 de Noviembre de 2005, 13:36:00

Hola Amigos!!
Muy buena idea!! y de paso revivimos este post y aprendo un poco de Atmel que ya me estaba interesando.!!!

saludos!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 23 de Noviembre de 2005, 21:08:00

Hola compadres...

Pues bien lo prometido es deuda.... aca esta el primer ejemplo de Bascom AVR, basado en el primer ejemplo de este post, osea hacer alternar el encendido de dos leds conectados a los pines b0 y b1 del micro ATMEGA8...

Aca les envio el codigo den basic con las respectivas explicaciones linea por linea...

"*****************************************************************
" ALTERNAR DOS LEDS CONECTADOS A LOS PINES B0 Y B1 ATMEGA8
"*****************************************************************

"*****************************************************************
" DECLARACION DEl CRISTAL A USAR
"*****************************************************************
$crystal = 1000000 " definir cristal interno del atmega8 1MHz la frecuencia
" del cristal en los AVR no se divide para 4 como en los PIC

"*****************************************************************
" DECLARACION DE PINES COMO ENTRADA Y/O SALIDA
"*****************************************************************

Ddrb.1 = 1

" configurar el pin B1 como salida
Portb.1 = 0 " ambas instrucciones
Ddrb.0 = 1 " configurar el pin B0 como salida
Portb.0 = 0 " ambas instrucciones

Led1 Alias Portb.0 " RENOMBRA AL PIN B0
Led2 Alias Portb.1 " RENOMBRA AL PIN B1
"*****************************************************************" PROGRAMA PRINCIPAL
"*****************************************************************

Main: " RUTINA PRINCIPAL
Set Led1 " ENCENDER LED1 B0
Reset Led2 " APAGAR LED2 B1
Waitms 500 " TIEMPO DE ENCENDIDO 0.5 SEG
Set Led2 " ENCENDER LED2 B1
Reset Led1 " APAGAR LED1 B0
Waitms 500 " TIEMPO DE ENCENDIO 0.5 SEG
Goto Main " LAZO INFINITO DE RUTINA MAIN

END

"**********************************************
" FIN
"**********************************************

Listo ese es el codigo del primer ejemplo, hoy mismo subo la simulacion en proteus, espero que les sirva y pues espero ponerme al dia con los ejemplos para avanzar cada vez mas...

Si existe alguna duda o comentario, pues ya saben aca estamos para responder...

Saludos y suerte compadres Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 23 de Noviembre de 2005, 21:15:00

Hola Olotill!!! gracias por el ejemplo! Giño

está de lo más interesante, y entendible por lo que veo será fácil pasarme a Bascom AVR, voy a ver si la semana que viene hago un poco de tiempo libre y me pongo con mas dedicación con esto!!

saludos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 23 de Noviembre de 2005, 21:20:00

Listo aca tienen los archivos de Proteus y el de Bascom AVR..

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3881122

cualquier duda o pregunta, pues ya saben..

UN SALUDO DESDE ECUADOR Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 24 de Noviembre de 2005, 21:14:00

Hola compadres..

Pues bien ahora cuelgo el 2do ejemplo hecho por el pana doppel, pero para AVR en BASCOM.. Sonrisa Gigante

La verdad no encontre en BASCOM ningun comando que funcione como el comando BUTTON de Proton, pero bueno, el problema se soluciona utilizando un IF..

Aca el codigo, cualquier consulta pues ya saben...

SALUDOS DESDE ECUADOR Sonrisa Gigante

"*****************************************************************
" BOTON Y SUBRUTINA ALTERNAR
"
"La verdad no encontre un comando parecido al BUTTON de Proton aca
"en Bascom AVR, pero se lo utiliza con un IF y todo solucionado.
"*****************************************************************

"*****************************************************************
" DECLARACION DEl CRISTAL A USAR
"*****************************************************************
$crystal = 1000000 " definir cristal interno del atmega8 1MHz la frecuencia

"*****************************************************************
" DECLARACION DE PINES COMO ENTRADA Y/O SALIDA
"*****************************************************************

Ddrb.1 = 1 " configurar el pin B1 como salida
Portb.1 = 0 " ambas instrucciones
Ddrb.0 = 1 " configurar el pin B0 como salida
Portb.0 = 0 " ambas instrucciones
Ddrb.2 = 0 " configurar el pin B2 como entrada en estado 1 logico
Portb.2 = 1 " ambas instrucciones

Led1 Alias Portb.0 " RENOMBRA AL PIN B0
Led2 Alias Portb.1 " RENOMBRA AL PIN B1
Switch Alias Pinb.2 " RENOMBRA AL PIN B2

"*****************************************************************
" PROGRAMA PRINCIPAL
"*****************************************************************

Main: " RUTINA PRINCIPAL
Set Led1 " ENCENDER LED1 B0
Set Led2 " ENCENDER LED2 B1
Waitms 500 " TIEMPO DE ENCENDIDO 0.5 SEG
Reset Led2 " APAGAR LED2 B1
Reset Led1 " APAGAR LED1 B0
Waitms 500
If Switch = 0 Then
Waitms 50
Goto Alternar
End If " ANTIREBOTE HASTA SOLTAR EL SWITCH
Goto Main " LAZO INFINITO DE RUTINA MAIN

Alternar:
Set Led1 " ENCENDER LED1 B0
Reset Led2 " APAGAR LED2 B1
Waitms 500 " TIEMPO DE ENCENDIDO 0.5 SEG
Set Led2 " ENCENDER LED2 B1
Reset Led1 " APAGAR LED1 B0
Waitms 500
If Switch = 0 Then
Waitms 50
Goto Main
End If
Goto Alternar

End

"**********************************************
" FIN
"**********************************************

Desde este link pueden descargar los archivos necesarios para la compilacion y la simulacion en Proteus..

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3885278

Un fuerte abrazo compadres Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 24 de Noviembre de 2005, 23:02:00

Hola brothers

pues bien hoy he trabajado a doble jornada Sonrisa Gigante

asi que aca esta el 3er ejemplo de este post, es el mismo que hizo el pana doppel en proton, osea un contador de 0 a 9, con un boton pulsador..

aca el codigo..

Codigo:


"******************************************************
"     CONTADOR 0 - 9 DISPLAY 7 SEG Y BOTON
"******************************************************

$crystal = 1000000                                          "cristal interno 1 MHZ ATMEGA9

Ddrb = 255                                                  "configurar puerto B como salida todos los pines en alto 1 logico
Portb = 255

Ddrc.0 = 0                                                  " configurar pic C.0 como entrada en pull up
Portc.0 = 1

Btn Alias Pinc.0                                            " renombrar al pin C.0 ; boton pulsador

Dim Cuenta As Byte                                          " variable que va a contar las pulsaciones del boton


"* g f e d c b a    #
"0 1 0 0 0 0 0 0    0
"0 1 1 1 1 0 0 1    1
"0 0 1 0 0 1 0 0    2
"0 0 1 1 0 0 0 0    3
"0 0 0 1 1 0 0 1    4
"0 0 0 1 0 0 1 0    5
"0 0 0 0 0 0 1 0    6
"0 1 1 1 1 0 0 0    7
"0 0 0 0 0 0 0 0    8
"0 0 0 1 0 0 0 0    9
"0 0 0 1 1 1 1 1    -


Inicio:

 Do
 Loop Until Btn = 0                                         "rutina que se repite hasta que se pulsa el boton
 Goto Programa                                              "va a la rutina Programa

 Programa:

 Cuenta = Cuenta + 1                                        " aumenta el valor del contador cada vez que se pulsa el boton
 If Cuenta > 10 Then                                        " si contador mayor a diez vuelve a cero
   Cuenta = 0
 End If
 Select Case Cuenta                                         " sentencia CASE que selecciona el dato a enviar por el puerto B segun
  Case 0 : Portb = &B01000000                               " el valor de la variable cuenta (contador)
  Case 1 : Portb = &B01111001
  Case 2 : Portb = &B00100100
  Case 3 : Portb = &B00110000
  Case 4 : Portb = &B00011001
  Case 5 : Portb = &B00010010
  Case 6 : Portb = &B00000010
  Case 7 : Portb = &B01111000
  Case 8 : Portb = &B00000000
  Case 9 : Portb = &B00010000
  Case 10 : Portb = &B00111111
 End Select
 Waitms 200                                                 " tiempo de espera para poder visualizar el valor en el display de 7 seg
 Goto Inicio  


"**********************

eso es el programa, ahora bien el pana Lord Lafrebre me ha hecho caer en cuenta que no todos tienen el bascom AVR, asi que las dos soluciones, o lo descargan con el emule o pues pueden descargar una version demo desde este link..

BASCOM AVR DEMO:
http://www.mcselec.com/index.php?option=com_docman&task=cat_view&gid=99&Itemid=54




desde este link se pueden descargar los archivos de este ejemplo..


EJ 3. CONTADOR 0 -  9 DISPLAY 7 SEG Y PULSADOR:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3885413


listo, espero que les sirvan estos peque ejemplillos..

SALUDOS DESDE ECUADOR ....

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 25 de Noviembre de 2005, 10:23:00

HOLA
OLOTILL SI TIENES EJEMPLOS CUANDO VEA NO SERE CAPAZ DE SEGUIRLOS Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 27 de Noviembre de 2005, 15:31:00

Hola compadres..

Hola Paola, pues sabes que si tengo mas ejemplos de BASCOM AVR, solo que no son hechos por mi, asi que no se que tan entendibles sean, pero si desees te los paso, mandame un privado o deja tu direccion email aca en el foro...

Bueno perdon por no avanzar en estos dos dias pero el viernes me fui al concierto de Juanes asi que ya no pude colocar el ejemplo del dia, y ayer estuve muy enfermito pero bueno ya estamos mejor asi que a ponernos al dia...

El ejemplo de hoy es el mismo del pana doppel, osea un display 7 seg que muestra nuemeros del 0 al 9, un boton para guardar hasta 4 numeros en un arreglo y otro boton para mostrar los numeros guardados...

El programa que hice pues tiene algunas mejorias que el original pero casi ninguna notable Sonrisa Gigante

pero en este ejemplo ya utilizamos la EEPROM del microcontrolador ATMEGA8 para guardar el arreglo de 4 numeros... bueno basta de palabras vamos al codigo...

Codigo:

ejemplo 4:

"******************************************************
"    3 BOTONES - 7 SEG - SAVE - NEXT - SHOW
"******************************************************

$crystal = 1000000                                          "cristal interno 1 MHZ ATMEGA9

Ddrb = 255                                                  "configurar puerto B como salida todos los pines en alto 1 logico
Portb = 255

Ddrc.0 = 0                                                  " configurar pic C.0 como entrada en pull up
Portc.0 = 1
Ddrc.1 = 0                                                  " configurar pic C.0 como entrada en pull up
Portc.1 = 1
Ddrc.2 = 0                                                  " configurar pic C.0 como entrada en pull up
Portc.2 = 1


Btnnext Alias Pinc.0                                        " renombrar al pin C.0 ; boton pulsador
Btnsave Alias Pinc.1                                        " renombrar al pin C.1 ; boton pulsador
Btnshow Alias Pinc.2                                        " renombrar al pin C.2 ; boton pulsador

Dim Cuenta As Byte                                          " variable que va a contar las pulsaciones del boton
Dim Arrvals(4) As Eram Byte                                 " ARREGLO DE VARIABLES DONDE SE GUARDARAN LOS NUMEROS
                                                              " la sentencia ERAM hace que esta arreglo se guarde en la EEPROM del micro.
Dim X As Byte                                               " VARIABLE QUE CONTARA NUMERO DE NUMEROS GUARDADOS

"* g f e d c b a    #
"0 1 0 0 0 0 0 0    0
"0 1 1 1 1 0 0 1    1
"0 0 1 0 0 1 0 0    2
"0 0 1 1 0 0 0 0    3
"0 0 0 1 1 0 0 1    4
"0 0 0 1 0 0 1 0    5
"0 0 0 0 0 0 1 0    6
"0 1 1 1 1 0 0 0    7
"0 0 0 0 0 0 0 0    8
"0 0 0 1 0 0 0 0    9
"0 0 0 1 1 1 1 1    -

"For X = 1 To 4
"   Arrvals(x) = 0                                           " CARGAR CON VALOR 0 A LOS 4 NUMEROS DEL ARREGLO
"Next

X = 0                                                       " EL CONTADOR X INICIA CON VALOR 0
Cuenta = 0

Inicio:                                                     " RUTINA PRINCIPAL
 Gosub 7seg
 If Btnnext = 0 Then                                        " SI SE PULSA EL BOTON NEXT VA A LA RUTINA PROGRAMA
    Goto Programa
 End If
 If Btnsave = 0 Then                                         " SI SE PULSA EL BOTON SAVE VA A LA RUTINA GUARDAR
    Gosub Guardar
 End If
 If Btnshow = 0 Then                                        " SI SE PULSA EL BOTON SHOW VA A LA RUTINA MOSTRAR
   Goto Mostrar
 End If
Goto Inicio

Programa:
 Cuenta = Cuenta + 1                                        " aumenta el valor del contador cada vez que se pulsa el boton
 If Cuenta > 9 Then                                         " si contador mayor a NUEVE vuelve a cero
   Cuenta = 0
 End If
 Gosub 7seg                                                 " VA A LA RUTINA 7SEG DONDE SE MUESTRA EL VALOR POR EL DISPLAY
Goto Inicio                                                 " vuelve a la rutina INICIO


Guardar:
    If Btnsave = 0 Then Goto Guardar                       " PARA EVITAR REBOTES
    X = X + 1                                               " AUMENTA EL CONTADOR X PARA EL ARREGLO ARRVALS
    If X > 4 Then                                           " SI SE TRATA DE GUARDAR MAS DE 4 VALORES MUESTRA LA LETRA E DE ERROR
      Gosub Error
    End If
    Arrvals(x) = Cuenta                                     " guarda el valor EN LA POSICION X DEL ARREGLO ARRVALS
Return


7seg:
 Select Case Cuenta                                         " sentencia CASE que selecciona el dato a enviar por el puerto B segun
  Case 0 : Portb = &B01000000                               " el valor de la variable cuenta (contador)
  Case 1 : Portb = &B01111001
  Case 2 : Portb = &B00100100
  Case 3 : Portb = &B00110000
  Case 4 : Portb = &B00011001
  Case 5 : Portb = &B00010010
  Case 6 : Portb = &B00000010
  Case 7 : Portb = &B01111000
  Case 8 : Portb = &B00000000
  Case 9 : Portb = &B00010000
  Case 10 : Portb = &B00000110
 End Select
 Waitms 200
Return


Mostrar:                                                    "RUTINA PARA MOSTRAR VALORES DEL ARREGLO
   For X = 1 To 4                                           "SE MUESTRA LOS VALORES CON UNA RUTINA FOR
    Cuenta = Arrvals(x)                                     " carga a cuenta con los valores guardados
    Gosub 7seg                                              "muestra los valores guardados
    Waitms 300
    Portb = &B00111111                                      "muestra un guion de separacion entre numeros guardados
    Waitms 200
   Next
   Portb = &B00111111                                       " MUESTRA UN GUION QUE INDICA QUE SE MOSTRO TODA LA CLAVE
   Waitms 500
   X = 0                                                    "volver a inicializar variables
   Cuenta = 0
Goto Inicio

Error:                                                      "RUTINA PARA MOSTRAR ERROR
   Cuenta = 10
   Gosub 7seg
   Waitms 250
Return

End

Listo eso es todo compadres, aca el link para descargar los respectivos archivos:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3895482

Bueno eso es todo por hoy...

SALUDOS COMPADRES.. Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 27 de Noviembre de 2005, 16:36:00

HOLA
GRACIAS OLOTILL VOY A VER SI LOGRO LLEGAR A ESTE Y MEJOR QUE ESTUVIERAS EN EL CONCIERTO ASI ME DABAS MAS TIEMPO. Sonrisa Gigante

ESPERO TE HALLA IDO MUY BIEN.

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 27 de Noviembre de 2005, 16:40:00

HAY SE ME OLVIDO DECIRTE MI MAIL ESTA EN MI PERFIL GRACIAS POR TODO

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 28 de Noviembre de 2005, 09:16:00

Hola Olotill !!! buenisimo!! Sonrisa

Estuve dos dias fuera y ahora que vuelvo a entrar veo que has estado trabajando a full con el bascom jeje, voy a ver si puedo empezar hoy con esto.- Realmente muy interesante! gracias

saludos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 28 de Noviembre de 2005, 09:29:00

Hola:

Perdon que me salga un poco de foco pero queria hacer una pregunta:

Fabian existe alguna instruccion parecida al HIGH - LOW de PBP...? RollEyes

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 28 de Noviembre de 2005, 17:40:00

Hola hermano Gio..

Pues claro que existe las sentecias son SET = HIGH y RESET = LOW, en los ejemplos de parpadeo de leds veras como utilizo estas sentencias como tu lo haces en PBP...

Bueno en la noche coloco otro ejemplillo de doppel ... Sonrisa Gigante

Un abrazo hermanos... saludos desde Ecuador Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 28 de Noviembre de 2005, 21:39:00

Hola hermanos...

Pues por ir en orden haciendo los ejemplos de doppel no me di cuenta que ya habia posteado en la pagina 2, como usar la EEPROM y la utilizacion de un boton de RESET.. Sonrisa Gigante

Pues bien, en este apartado solo incluire el codigo que deberìan añadir en el programa del ejemplo 4... jejeje

En la declaracion de puertos deben colocar un cuarto boton el de reset que podemos colocarlo..

Codigo:
"***AÑADIR EN LA PARTE SUPERIORD DEL PROGRAMA***

Ddrc.3=0                                         "declara el pinc.3 como salida pull up
Portc.3=1

Btnreset Alias Pinc.3                        "renombra al pinc.3 como btnreset

Dentro de la rutina Inicio deberian agregar esto:

Codigo:
" ****DENTRO DE RUTINA INICIO****

If Btnreset = 0 Then                                        " SI SE PULSA EL BOTON RESET VA A RUTINA RESETEAR
    Goto Resetear                                            " va a rutina resetear
 End If

Listo y para finalizar deben agregar la rutina Reset, que simplemente seria..

Codigo:
"***RUTINA PARA RESETEAR****

Resetear:
   For X = 1 To 4                             
      Arrvals(x) = 0                                           " CARGAR CON VALOR 0 A LOS 4 NUMEROS DEL ARREGLO
  Next
  Cuenta=0                                           "cargar valor 0 a variable cuenta
Goto Inicio                                            "ir a la rutina inicio que ira a la rutina 7seg y mostrara el valor 0 en el display de 7 seg

Pues bien eso seria todo, como les decia en los post anteriores se maneja la Eeprom del micro colocando la sentencia:

Dim VAR As Eram Byte (o Bit o single, etc) que esta al inicio del programa...

Bueno hay que tener en cuenta que para la simulacion en proteus pues solo deben aumentar el boton RESET al esquema que pueden descargar desde el link del ejemplo 4..

Bueno, con eso tendriamos completo el ejemplo 4 de doppel y pues manos a la obra con el 5 ejemplo, el manejo del LCD que la verdad en bascom AVR es bastante sencillo su configuraciòn...

Bueno voy a trabajar en el ejemplo y la explicacion...

SALUDOS DESDE ECUADOR Y UN ABRAZO COMPADRES Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 28 de Noviembre de 2005, 22:49:00

Escrito originalmente por olotill
Hola hermano Gio..

Pues claro que existe las sentecias son SET = HIGH y RESET = LOW

Gracias hermano, no revise bien el ejemplo anterior... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 29 de Noviembre de 2005, 21:56:00

bUENO PERDON POR ESAS IMAGENES TAN FEAS, PERO ES LA PRIMERA VEZ QUE SUBO IMAGENES EN EL FORO ASI QUE SABRAN DISCULPAR PERO BUENO, LA IDEA SI SE ENTIENDE LAS PROXIMAS SERAN MEJORES...

SALUDOS

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 10 de Diciembre de 2005, 20:57:00

Buenas Compadres...

Pues bien aca con otro ejemplito que consiste en un contador de 0 a 9 en un display de 7 seg, hay un boton para dar inicio al conteo, lo interesante es que se empieza contando con tiempo de muestra entre numero y numero de 1 seg... al llegar a 9 pues disminuye el tiempo de muestreo entre numeros en 100ms, y asi sigue disminuyendo hasta un tiempo minimo de 100 ms, luego de lo cual el tiempo se resetea y se pone en 1 seg nuevamente ... Rebotado

Bueno no mas lata, aca el codigo y abajo el link para decargar los archivos, que desde este ejemplo ya incluyen el archivo hex...

SALUDOS COMPADRES...

aca el codigo:

Codigo:
"******************************************************
"    CONTADOR 0 A 9 - VARIA TIEMPO DE MUESTRA - UN BOTON
"******************************************************

$crystal = 1000000                                          "cristal interno 1 MHZ ATMEGA9

Ddrb = 255                                                  "configurar puerto B como salida todos los pines en alto 1 logico
Portb = 255

Ddrc.0 = 0                                                  " configurar pic C.0 como entrada en pull up
Portc.0 = 1

Btn Alias Pinc.0                                            " renombrar al pin C.0 ; boton pulsador

Dim Cuenta As Byte                                          " variable que va a contar las pulsaciones del boton
Dim Tiempo As Word

"* g f e d c b a    #
"0 1 0 0 0 0 0 0    0
"0 1 1 1 1 0 0 1    1
"0 0 1 0 0 1 0 0    2
"0 0 1 1 0 0 0 0    3
"0 0 0 1 1 0 0 1    4
"0 0 0 1 0 0 1 0    5
"0 0 0 0 0 0 1 0    6
"0 1 1 1 1 0 0 0    7
"0 0 0 0 0 0 0 0    8
"0 0 0 1 0 0 0 0    9
"0 0 0 1 1 1 1 1    -
Tiempo = 1000

Inicio:

 Do
 Loop Until Btn = 0                                         "rutina que se repite hasta que se pulsa el boton
 Goto Programa                                              "va a la rutina Programa

 Programa:

 Cuenta = Cuenta + 1                                        " aumenta el valor del contador cada vez que se pulsa el boton
 If Cuenta > 10 Then                                        " si contador mayor a diez vuelve a cero
   Cuenta = 0                                               " pone a cero el contador
   Tiempo = Tiempo - 100                                    " disminuye el tiempo de muestra en 100 ms
      If Tiempo < 100 Then                                  " si el tiempo de muestra es menor a 100 ms
         Tiempo = 1000                                      "pone el tiempo de muestra nuevamente en 1 seg
      End If
 End If
 Select Case Cuenta                                         " sentencia CASE que selecciona el dato a enviar por el puerto B segun
  Case 0 : Portb = &B01000000                               " el valor de la variable cuenta (contador)
  Case 1 : Portb = &B01111001
  Case 2 : Portb = &B00100100
  Case 3 : Portb = &B00110000
  Case 4 : Portb = &B00011001
  Case 5 : Portb = &B00010010
  Case 6 : Portb = &B00000010
  Case 7 : Portb = &B01111000
  Case 8 : Portb = &B00000000
  Case 9 : Portb = &B00010000
  Case 10 : Portb = &B00111111
 End Select
 Waitms Tiempo                                              " tiempo de espera para poder visualizar el valor en el display de 7 seg
 Goto Programa                                              " vuelve a la rutina INICIO

Aca el link de descarga:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3947920

LISTO Y NOS VAMOS CONTRA ALEMANIA, VAMOS ECUADOR SI SE PUEDE...

SALUDOS HERMANOS

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 10 de Diciembre de 2005, 21:07:00

Hola Amigos:

Aqui esta mi ejemplo en PBP... a diferencia de Fabian no utilizo el Case sino un vector:

Codigo:
"Programa: Juego de luces
"Giovanni Lafebre
"Cuenca - Ecuador

vec var byte [10]
pos var byte
Seg var word
vec[0]=191
vec[1]=134
vec[2]=219
vec[3]=207
vec[4]=230
vec[5]=237
vec[6]=253
vec[7]=135
vec[8]=255
vec[9]=239

TRISB=%00000000
PORTB=64
TRISA.0=%1
seg=1000

Pulsado:
    if PORTA.0=0 then 
        goto loop
    else
        goto pulsado
    endif
    goto pulsado

loop:
    for pos=0 to 9
        PORTB=vec[pos]
        pause seg
    next pos
    seg=seg-100
    if seg<100 then
        seg=1000
    endif
    goto loop
end

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 10 de Diciembre de 2005, 21:15:00

Hola:

Aqui estan los archivos:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3947951

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 10 de Diciembre de 2005, 21:43:00

Hola amigos:

ahora les propongo el mismo ejemplo anterior pero con un decodificador:

Codigo:
"Giovanni Lafebre
"Cuenca - Ecuador

pos var byte
Seg var word

TRISB=%00000000
PORTB=0
TRISA.0=%1
seg=1000

Pulsado:
    if PORTA.0=0 then 
        goto loop
    else
        goto pulsado
    endif
    goto pulsado

loop:
    for pos=0 to 9
        PORTB=pos
        pause seg
    next pos
    seg=seg-100
    if seg<100 then
        seg=1000
    endif
    goto loop
end

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 10 de Diciembre de 2005, 21:47:00

Holas:

Aqui estan los archivos:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3947982

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 10 de Diciembre de 2005, 22:08:00

que hubo hermanos

Pues el mismo ejemplo del compadre Lord, pero ya saben para AVR...

aca el codigo..

Codigo:

"******************************************************
"
"******************************************************

$crystal = 1000000                                          "cristal interno 1 MHZ ATMEGA9

Ddrb = 255                                                  "configurar puerto B como salida todos los pines en bajo 0 logico
Portb = 0

Ddrc.0 = 0                                                  " configurar pic C.0 como entrada en pull up
Portc.0 = 1

Btn Alias Pinc.0                                            " renombrar al pin C.0 ; boton pulsador

Dim Cuenta As Byte
Dim I As Byte
Dim Tiempo As Word                                          " variable que va a contar las pulsaciones del boton


Tiempo = 1000

Inicio:

 Do
 Loop Until Btn = 0                                         "rutina que se repite hasta que se pulsa el boton
 Goto Programa                                              "va a la rutina Programa

 Programa:

 Cuenta = Cuenta + 1                                        " aumenta el valor del contador cada vez que se pulsa el boton
 If Cuenta > 10 Then                                        " si contador mayor a diez vuelve a cero
   Cuenta = 0
 End If
 For I = 0 To 9                                             " rutina de muestra del numero por el puerto B
   Portb = I
   Waitms Tiempo
 Next
 Tiempo = Tiempo - 100                                      " decremento del tiempo de muestra en 100 ms
 If Tiempo < 100 Then                                       " si el tiempo es menor a 100 ms vuelve a iniciarse el proceso 1 seg
   Tiempo = 1000
 End If

 Goto Programa

ACA EL LINK DE DESCARGA DE LOS ARCHIVOS:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3948016

SALUDOS COMPADRES

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 11 de Diciembre de 2005, 14:35:00

Hola:

Compañeros aqui les pongo un ejemplo para matriz de leds de 7x5. En la matriz se muestra unicamente la letra "A"....

Es un codigo sencillo... cualquier cosa no duden en preguntar... Sonrisa Gigante

Codigo:
"Matris de Leds
"Giovanni Lafebre
"Cuenca Ecuador

TRISA=%00000000
TRISB=%00000000

loop:
    PORTA=%00001
    PORTB=%00000001
    pause 10
    PORTA=%00010
    PORTB=%01110110
    pause 10
    PORTA=%00100
    PORTB=%01110110
    pause 10
    PORTA=%01000
    PORTB=%01110110
    pause 10
    PORTA=%10000
    PORTB=%00000001
    pause 10
    goto loop
end

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 11 de Diciembre de 2005, 14:37:00

Hola:

Los archivos de ejemplo:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3950356

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 11 de Diciembre de 2005, 15:34:00

Hola:

Amigos ahora les pongo un ejemplo que muestra un mensaje de "HOLA" en una matriz de leds....

Codigo:
"Matris de Leds
"Giovanni Lafebre
"Cuenca Ecuador

fil var byte [20]
col var byte [5]
i   var byte
j   var byte
k   var byte

"columnas
col[0]=%00001
col[1]=%00010
col[2]=%00100
col[3]=%01000
col[4]=%10000
"A
fil[0]=%00000001
fil[1]=%01110110
fil[2]=%01110110
fil[3]=%01110110
fil[4]=%00000001
"O
fil[5]=%01000001
fil[6]=%00111110
fil[7]=%00111110
fil[8]=%00111110
fil[9]=%01000001
"H
fil[10]=%00000000
fil[11]=%01110111
fil[12]=%01110111
fil[13]=%01110111
fil[14]=%00000000
"L
fil[15]=%00111111
fil[16]=%00111111
fil[17]=%00111111
fil[18]=%00111111
fil[19]=%00000000

TRISA=%00000
TRISB=%00000000

INICIO:
    GoSub LetraH
    GoSub LetraO
    GoSub LetraL
    GoSub LetraA
    GoTo INICIO

LetraA:
    For k = 0 To 20
        j = 0
        For i = 0 To 4
        PORTA=col[j]
        PORTB=fil
        j = j + 1
        pause 10
        Next i
    Next k
    Return
LetraO:
    For k = 0 To 20
        j = 0
        For i = 5 To 9
        PORTA=col[j]
        PORTB=fil
        j = j + 1
        pause 10
        Next i
    Next k
    Return
LetraH:
    For k = 0 To 20
        j = 0
        For i = 10 To 14
        PORTA=col[j]
        PORTB=fil
        j = j + 1
        pause 10
        Next i
    Next k
    Return
LetraL:
    For k = 0 To 20
        j = 0
        For i = 15 To 19
        PORTA=col[j]
        PORTB=fil
        j = j + 1
        pause 10
        Next i
    Next k
    Return
End

El codigo esta basado en la siguiente idea:

tablas para cada letra y hago subrutinas para cada letra con dos bucles anidados, el primero es el tiempo que permanecera encendida cada letra y el segundo para ir mostrando los valores correspondientes que formaran la letra, todos los valores de las letras estan almacenadas en vectores.... seria bueno guardar todas estas tablas en una eeprom externa... pero esa es la idea, si a alguien se le ocurre algo mejor seria bueno saberlo....

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 11 de Diciembre de 2005, 15:37:00

Hola:

Aqui estan los archivos del ejemplo anterior...

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3950606

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 12 de Diciembre de 2005, 00:31:00

Hola:

Aqui les pongo un ejemplito mas muy sencillo esta ves es un punto que recorre columna por columna, una ves que llega a la ultima incrementa una fila y el punto regresa y luego incrementa una fila y avanza y asi sucesivamente.... Recuerdo un poco que era asi la forma mediante la cual pretendia mostrar mensajes sobre un arreglo de matrices.... si a alguien se le ocurre una idea para desplegar mensajes sobre arreglos de matices.... haganlo saber... Sonrisa Gigante

Codigo:
"Punto en matrices
"Giovanni Lafebre
"Cuenca - Ecuador

TRISA=0
TRISB=0
i       VAR BYTE
j       var byte
vec     var byte [10]

vec[0]=%01111110
vec[1]=%01111101
vec[2]=%01111011
vec[3]=%01110111
vec[4]=%01101111
vec[5]=%01011111
vec[6]=%00111111
j=0
loop:
    gosub ASCENDER
    gosub descender
    goto loop
end

ASCENDER:
    for i=0 to 9
        PORTA=i
        PORTB=vec[j]
        pause 60
    next i
    j=j+1
    if j>=7 then
        j=0
    endif
    return
DESCENDER:
    for i=9 to 0 step-1
        PORTA=i
        PORTB=vec[j]
        pause 60
    next i
    j=j+1
    if j>=7 then
        j=0
    endif
    return

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 12 de Diciembre de 2005, 00:39:00

Hola:

Aqui estan los archivos.... Sonrisa Gigante

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3951698

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 15 de Diciembre de 2005, 21:53:00

Que hubo compadres...

Pues estos dias he andado un poquitin ocupado y por eso el atraso en los ejemplos que dicho sean de paso, me ayudaron bastante para aprender manejo de matrices de leds... el compadre Lord_Lafebre, me acolito en la prog para AVR..

Bueno no mas palabras, vamos con el codigo....

Este es el ejemplo de matriz de leds para mostrar la letra A..

Codigo:
"******************************************************
" MATRIZ DE LEDS  -  LETRA A
"******************************************************

$crystal = 1000000                                          "cristal interno 1 MHZ ATMEGA9

Ddrb = 255                                                  "configurar puerto B como salida todos los pines en 1 logico
Portb = 0

Ddrc = &B11111                                              " configurar pic C.0 como entrada en pull up
Portc = &B00000


 Inicio:

 Portc = &B00001
 Portb = &B00000011
 Waitms 10
 Portc = &B00010
 Portb = &B11101101
 Waitms 10
 Portc = &B00100
 Portb = &B11101110
 Waitms 10
 Portc = &B01000
 Portb = &B11101101
 Waitms 10
 Portc = &B10000
 Portb = &B00000011
 Waitms 10
 Goto Inicio

Aca esta el ejemplo de matriz de leds para mostrar la palabra HOLA..... Trate de hacer el codigo un poco mas corto q el del pana Lord_Lafebre, pero por si acaso tambien deje como comentarios una programacion similar a la de su ejemplo...

Listo compadres aca el codgio de este ejemplo de matriz de leds y la palabra HOLA:

Codigo:
"******************************************************
" MATRIZ DE LEDS  -  HOLA
"******************************************************

$crystal = 1000000                                          "cristal interno 1 MHZ ATMEGA9

Ddrb = 255                                                  "configurar puerto B como salida todos los pines en 1 logico
Portb = 0

Ddrc = &B11111                                              " configurar pic C.0 como entrada en pull up
Portc = &B00000

"******** DECLARACION DE VARIABLES A USAR***********

Dim Col(5) As Byte                                          "VECTOR COLUMNAS
Dim Fila(20) As Byte                                        "VECTOR FILAS
Dim I As Byte                                               "CONTADORES Y VARIABLES AUXILIARES
Dim J As Byte
Dim K As Byte
Dim Cont As Byte
Dim X As Byte
Dim Y As Byte

Col(1) = 1                                                  "COLUMNA 1= 00001
Col(2) = 2                                                  "COLUMNA 2= 00010
Col(3) = 4                                                  "COLUMNA 3= 00100
Col(4) = 8                                                  "COLUMNA 4= 01000
Col(5) = 16                                                 "COLUMNA 5= 10000

"**** LETRA H *****

Fila(1) = &B0000000
Fila(2) = &B1110111
Fila(3) = &B1110111
Fila(4) = &B1110111
Fila(5) = &B0000000

"**** LETRA 0 *****

Fila(6) = &B1000001
Fila(7) = &B0111110
Fila(8) = &B0111110
Fila(9) = &B0111110
Fila(10) = &B1000001

"**** LETRA L *****

Fila(11) = &B0000000
Fila(12) = &B0111111
Fila(13) = &B0111111
Fila(14) = &B0111111
Fila(15) = &B0111111

"**** LETRA A *****

Fila(16) = &B0000001
Fila(17) = &B1101110
Fila(18) = &B1101110
Fila(19) = &B1101110
Fila(20) = &B0000001


Inicio:
   For Cont = 1 To 4                                        " CONT DE LETRA EN ESTE CASO 4 LETRAS : "HOLA"
     For K = 0 To 20                                        " BUCLE DE TIEMPO DE MUESTRA DE CADA LETRA
        J = 1                                               "INDICE QUE INDICA EL INICIO DE CADA COLUMNA
        Select Case Cont                                    " SELECCIONA LOS VALORES LIMITES PARA LAS FILAS SEGUN
         Case 1 : X = 1                                     "EL VALOR DE LA LETRA A A MOSTRAR
                   Y = 5
         Case 2 : X = 6
                   Y = 10
         Case 3 : X = 11
                   Y = 15
         Case 4 : X = 16
                   Y = 20
        End Select
        For I = X To Y                                      " BUCLE QUE MUESTRA CADA LETRA SEGUN LOS LIMITES ANTES ESTABLECIDOS
        Portc = Col(j)                                      " MOSTRAR VALORES DE COLUMNA 1 A 5 EN EL PUERTO C
        Portb = Fila(i)                                     " MOSTRAR LA LETRA POR EL PUERTO B
        J = J + 1                                           " INCREMENTAR EL VALOR DE LA COLUMNA
        Waitms 10                                           " TIEMPO DE ESPERA ENTRE COLUMNAS
        Next
     Next
   Next

" ******************ACA LES COLOCO EL CODIGO SIMILAR AL HECHO POR NUESTRO PANA LORD_LAFEBRE************
" ****************** ESTAN COMO COMENTARIOS POR SI DESEAN UTILIZAR EL CODIGO HECHO POR EL *************



"   Gosub Letrah
"   Gosub Letrao
"   Gosub Letral
"   Gosub Letraa

Goto Inicio




"Letrah:
"   For K = 0 To 10
"        J = 1
"        For I = 1 To 5
"        Portc = Col(j)
"        Portb = Fila(i)
"        J = J + 1
"        Waitms 10
"        Next
"    Next

"Return

"Letrao:
"   For K = 0 To 10
"        J = 1
"        For I = 6 To 10
"        Portc = Col(j)
"        Portb = Fila(i)
"        J = J + 1
"        Waitms 10
"        Next
"    Next

"Return

"Letral:
"   For K = 0 To 10
"        J = 1
"        For I = 11 To 15
"        Portc = Col(j)
"        Portb = Fila(i)
"        J = J + 1
"        Waitms 10
"        Next
"    Next

"Return

"Letraa:
"   For K = 0 To 10
"        J = 1
"        For I = 16 To 20
"        Portc = Col(j)
"        Portb = Fila(i)
"        J = J + 1
"        Waitms 10
"        Next
"    Next
"Return

Y aca el link de descarga de estos ejemplos:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3968769

Bueno eso es todo por hoy, ya nos veremos..

SALUDOS Y UN ABRAZO DESDE ECUADOR Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 19 de Diciembre de 2005, 21:59:00

HOLA

AL FIN PONGO MI PRIMER PROGRAMA Y EJEMPLO EN PBP, ES UN PUBLICK EL CUAL REALIZA UN DESPLAZAMIENTO DE LA PALBRA HOLA, ES MUY SENCILLO ESPERO QUE LES SIRVA. LO HICE BASANDOME EN LOS PROGRAMAS DE LORDLAFEBRE Sonrisa Gigante

CODIGO:
"PUBLICK
"PAOLA09
"COLOMBIA

fil var byte [21]
i var byte
j var byte
k var byte
T VAR BYTE
l VAR BYTE

"A
fil[15]=%00000001
fil[16]=%01110110
fil[17]=%01110110
fil[18]=%01110110
fil[19]=%00000001
"O
fil[5]=%01000001
fil[6]=%00111110
fil[7]=%00111110
fil[8]=%00111110
fil[9]=%01000001
"H
fil[0]=%00000000
fil[1]=%01110111
fil[2]=%01110111
fil[3]=%01110111
fil[4]=%00000000
"L
fil[14]=%00111111
fil[13]=%00111111
fil[12]=%00111111
fil[11]=%00111111
fil[10]=%00000000
fil[20]=%11111111

TRISA=%00000
TRISB=%00000000

INICIO:
gosub Letra
GOSUB ROTA
goto inicio

Letra:
for k=0 to 2
for i=0 to 9 "STEP -1
PORTA=i
PORTB=fil
pause 5
next i
next k
return

ROTA: i=0
T=fil[0]
FOR i=0 TO 19
fil=fil[i+1]
NEXT i
fil[20]=T
return
end

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 19 de Diciembre de 2005, 22:07:00

HOLA

AQUI ENCUENTRAN LOS ARCHIVOS PARA EL PUBLICK

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3983998

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 19 de Diciembre de 2005, 22:21:00

Hola:

Esta muy bien tu ejemplo Pao, recuerdo que es alli hasta donde llegue... ahora veo que estamos en el mismo "swing" seria bueno sacar esto adelante... ya hablaremos para ver que hacer.... voy a buscar el soft que tenia en VB para generar codigo para el pic... o sino me pongo ha hacer otro...

Pero eso dejemoslo para despues y hagamos mas ejemplitos... alguien propone alguno...? Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 20 de Diciembre de 2005, 23:24:00

uhhh como avanza esto!!! grandioso!!

felicitaciones amigos Rebotado

saludos

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 25 de Diciembre de 2005, 13:45:00

hola a todos primero les doy las gracias por lo que estan haciendo en vienestar de todos y segundo desearle unas felices navidad y un prospero año nuevo.

bueno mi inquietud es que deseo conectarle dos matrix de led mas al ej. de paola y no se como hacerlo por que, quiero que el mensajes me salga por todas las matrix igual que el ej. de paola ( que se desplace)...

saludos de BLACKPIC...
gracias a todos.... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 26 de Diciembre de 2005, 16:10:00

Hola amigo..
gracias pero utilizando un pic16f877 o otro que me digas con los 2 (4028), explicame como que daria el bucle...
por que a la realidad no se mucho sobre proton, pbp ...

solo he aprendido algo sobre asm y estoy aprendiendo mas sobre este mundo de programacion amigo te agradeceria la ayuda....

saludos de BLACKPIC...

Gracias a todos... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 26 de Diciembre de 2005, 16:18:00

Hola:

Pues si te estas iniciando en Basic revisa todos los ejemplos de este subforo para que lo entiendas mejor, intenta hacer el ejemplo que tu mismo quieres y postea el codigo aqui si no te funciona para hecharte una mano, ok? Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 26 de Diciembre de 2005, 16:38:00

HOLA

PERDONA NO HABER RESPONDIDO ANTES, TENGO QUE HECHAR UN VISTAZO A LO TUYO PARA VER EN QUE TE PUEDO COLABORAR.

Y NO OLVIDES COMO DIVE GIO SERIA BUENO QUE REPASARAS UN POCO LOS DEMAS EJEMPLOS CON ELLOS YO HE LOGRADO IR AVANZANDO ALGO
Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 26 de Diciembre de 2005, 20:54:00

Que tal compadres, perdon por estar ausente estos dias, es que las fiestas no paran en mi casa Muchas risas

Bueno en estos dias me pongo al dia con el ejemplo de Paola para AVR, ahora para nuestro amigo BlackPIC que se animo a escribir en el post, pues te aconsejo lo mismo que Lord_Lafebre, compadre no hay nada mejor que intentar uno mismo hasta conseguir algun avance asi aprendes mas, y pues en lo que no puedas pues ahi estaremos para ayudarte....

Una cosa, mi querida Pao, a manera de consejo, te pido que para los proximos ejemplos que postees si lo podes hacer con comentarios de lo que cada linea hace, pues se facilitaria muchisimo la comprension del programa, no solo lo digo por mi sino por todos los nuevos usuarios, que espero empiecen a postear sus dudas y/o sus ejemplos....

Bueno eso es todo compadres, y sin antes desearles unas felices pascuas y un feliz año nuevo, pues me despido con un abrazo...

SALUDOS DESDE MI PEQUEÑA PERO HERMOSA TIERRA....... ECUADOR

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 31 de Diciembre de 2005, 20:40:00

Hola amigo lordlafebre bueno quiero decearte un feliz año nuevo a ti y a todos los del foro y quiero que me digas que lenguaje de programacion me recomiendas para comensar con los pic te recuerdo que soy un principiante en la electronica y me gusta la programacion...

Deseo que este año 2006 venga con cosas buenas para todos y tambien este año quiero aprender mas sobre la programacion de pic.. digo con la ayuda de todos ustedes...

bueno tepido que me digas que lenguaje de programacion me recomiendas para de verdad amigo de dicarme a el.... y sacar le probecho....( aprender )..

Saludo..BLACKPIC... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 31 de Diciembre de 2005, 20:54:00

Hola:

Un feliz año para ti tambien BLACKPIC, y con respecto al lenguaje, pues te comento que yo me inicie con asm pero no me gusto, y luego encontre PBP y me gusto, para aprender es muy sencillo, ami me gusta mucho... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 31 de Diciembre de 2005, 21:12:00

Bueno amigo muchas gracias...

otra cosa el otro dia estube mirando tu ej. del, punto en la matrix, yo estoy haciendole algunos cambios para ponerlo alconctrario amigo ( arriba y abajo) y te pido una ayuda.. dime como puedo hacerlo amigo...

y bueno tratare de dedicarme mas al PBP ya que tambien me estube iniciando con el ASM y para mi me lo encuentro facil, pero yo siempre digo me gusta escuchar las opiniones de los demas, aprender de ellos y de mis herrores, ya que los herrores hacen le vantar la cabeza..

saludo...BLACKPIC... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 31 de Diciembre de 2005, 21:19:00

Hola:

BLACKPIC... es muy importante que hasta aqui tengas claro el funcionamiento del FOR si lo tienes claro pues te aconsejo que intentes hacer tu propio codigo, y nos comentes tus problemas, intenta hacerlo tu, pierdele el miedo al Basic... asi se aprende, yo empece asi, cometiendo muuuuuuuchos errores... pero no me dejo vencer facilmente Avergonzado

... y cualquier problema que tengas ya sabes: aqui estamos... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 01 de Enero de 2006, 17:05:00

Hola amigo lordlafebre te explico que estuve mirando por hay algunos ejemplos que colgaste de PBP y están buenos amigos, bueno mi inquietud es que algunos ejemplo no los entendí y tengo duda….

<<<Primero>>>
Inicio:          ‘se puede decir nombre de comienzo
High PORTB.0      ‘pone en un nivel alto el bit RB0 de portB “enciende”
pause 100       ‘le da un retardo de 1 seg.
low PORTB.0       ‘pone en un nivel bajo el bit RB0 de portB “apaga”
pause 100       ‘le da un retardo de 1 seg.
goto Inicio       ‘crea un bucle cerrado con inicio (vuelve a inicio)
end         ‘final del programa..

Lo anterior lo entiendo bien mi problema comienza aquí..

<<<Segundo>>>
I var byte ‘I corresponde a la variable byte…

TRISB=0

Inicio: ‘aquí comienza mi enrede explicame los for
for i=0 to 255
PORTB=i
pause 50
next I
goto Inicio
end

<<<Tercero>>>
inicio: ‘tambien esto amigo sobre los if, then, else
if PORTB.0 = 0 then
high 1
else
low 1
endif
goto inicio
end

saludo de BLACKPIC.... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 02 de Enero de 2006, 14:57:00

Hola:

El for es un bucle que hace n veces alguna accion puede incrementarse o decrementarse.... como te dice la ayuda del PBP

Codigo:
FOR Count = Start TO End {STEP {-} Inc}
   {Body}
NEXT {Count}

The FOR..NEXT loop allows programs to execute a number of statements a given 
number of times using a variable as a counter. Due to its complexity and 
versatility, FOR..NEXT is best described step by step: 

The value of Start is assigned to the index variable, Count. Count can be a 
variable of any type. 
The Body is executed. The Body is optional and can be omitted (perhaps for a 
delay loop). 

The value of Inc is added to (or subtracted from if "-" is specified) Count. If no 
STEP clause is defined, Count is incremented by one. 

If Count has not passed End or overflowed the variable type, execution returns to Step 2. 
If the loop needs to Count to more than 255, a word-sized variable must be used.

El IF es un condicional que ejecuta la accion que esta "dentro" de el mientras la
condicion sea verdadera, de no ser asi omitira eso y seguira a la proxima linea, el
ELSE es un caso contrario que tiene que ir con un IF, es decir, puedes poner un IF
que cumpla cierta condicion y haga algo por ejemplo que sume dos variables si los
dos valores a sumar sean mayores a cero, y el caso contrario (que sean menores)
pues no sumarlas y mostrar un mensaje de error...

Codigo:

" PRO and STD versions
IF Comp {AND/OR Comp...} THEN Label

" PRO version only
IF Comp {AND/OR Comp...} THEN
   Statements...
ELSE
   Statements...
ENDIF

Performs one or more comparisons. Each Comp term can relate a variable to a 
constant or other variable and includes one of the comparison operators. If..Then 
evaluates the comparison terms for true or false. If it evaluates to true, the 
operation after the Then is executed. If it evaluates to false, the operation after 
the Then is not executed. Comparisons that evaluate to 0 are considered false. 
Any other value is considered true. All comparisons are unsigned. Be sure to use 
parenthesis to specify the order the operations should be tested in. Otherwise, 
operator precedence will determine it for you and the result may not be as 
expected.

Si no te queda claro, comentamelo para explicarte mejor... Avergonzado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 02 de Enero de 2006, 17:43:00

hola amigo estube mirando la respuesta qe me diste y de verdad muchas gracias por todo, te comento que entendi algo no a la perfeccion pero algo..

tambien pude entender algo gracias a paola09 por que ella me explico hacerca de los for, if, then, etc.... de lo que no entendia...

bueno voy a tratar de hacer un ejemplo para subirlo a foro... gracias por todo amigo.....

saludos de BLACKPIC.... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 04 de Enero de 2006, 20:06:00

hola como estan bueno como dije a qui pongo mi primer ejemplo en pbp mañana subo todo el circuito completo con la simulacion en proteus.....
esta es la imagen...

aqui les dejo los archivo para descargarlo..
http://rapidshare.de/files/10419419/ej_led.rar.html

saludo de BLACKPIC... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 04 de Enero de 2006, 21:41:00

Hola:

Felicidades por tu primer porgrama.... Bienvenido al Basic....!!!! ya veras como no es el primero que haces... Sonrisa Gigante

... es muy facil.... y pues cualquier cosa... aqui estan los maestros para ayudarnos.... Sonrisa Gigante

PD. me tome la molestia de editar tu post para que se vea la imagen... Avergonzado

(disculpas)

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: PAOLA09 en 04 de Enero de 2006, 21:46:00

HOLA BLACKPIC

ME ALEGRA QUE TE UNAS A LOS QUE ESTAMOS APRENDIENDO ES UN MUY BUEN EJEMPLO, GRACIAS Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 06 de Enero de 2006, 18:25:00

Hola: amigos lo unico que les puedo dar por el momento son las gracias por todo lo que hacer en el foro y amigo no me molesto por que ayas editado mi mensaje..

bueno aqui les dejo otros de mi invento por el momento...
la imagen..
http://rapidshare.de/files/10549002/ej_led_y_button.JPG.html

los archivos..
http://rapidshare.de/files/10548809/ej_led_y_button.rar.html

saludo de BLACKPIC... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 06 de Enero de 2006, 21:11:00

hola amigo lordlafebre por favor dime como puedo pasar de un registro a otro.. por ejemplo del puertA a puertB...

miira este ejemplo..
I var byte
cont var byte[5]

TRISB=0

cont=1
inicio:
for i=0 to 8
PORTB=cont
pause 100
cont=cont*2
next i
goto inicio

quiero hacer que cuando termine en portB el conteo pase a portA dime como lo hago..
saludo de BLACKPIC... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 07 de Enero de 2006, 00:31:00

Hola:

Puedes utilizar el mismo codigo, incluso la misma variable, algo asi:

I var byte

TRISB=0
TRISA=0

cont=1
inicio:
for i=0 to 8
PORTB=cont
pause 100
cont=cont*2
next i
cont=1

for i=0 to 5
PORTA=cont
pause 100
cont=cont*2
next i

goto inicio

Solo sustituyes en donde esta PORTB con PORTA y el bucle lo disminuyes ya que el puerto tiene menos pines....

Suerte...!!! Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 08 de Enero de 2006, 10:21:00

hola amigo y gracias..
ya lo entendi y lo hice funcionar el ejemplo a hora mi curiosidad es la siguiente..

quiero manejar la intensidad de un led con un pic..

y despues este otro ejemplo quiero aprender a manejar en contador interno del pic..

pero primero la intensidad del led y despues te aviso con lo del contador interno del pic..

bueno espero que no se enfaden con migo por que todo lo que hago es en vace a led.. pero es una forma de aprender facil no...

con los pwm que daria haci..
i var byte
pin var byte
duty var byte
cycle var byte
trisb=0

inicio:
for i=0 to 255
portb=i
PWM Pin,Duty,Cycle
PWM PORTB.7,120,100 " Send a 50% duty cycle PWM signal out Pin7 for 100 cycles
pause 100
next i
goto inicio

saludo de BLACKPIC... Rebotado

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 08 de Enero de 2006, 23:08:00

Hola:

Puedes hacer eso utilizando PWM y un for que vaya de 0 a 255 y varias el duty

PWM Pin,Duty,Cycle
PWM PORTB.7,127,100 " Send a 50% duty cycle PWM signal out Pin7 for 100 cycles

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: olotill en 10 de Enero de 2006, 22:28:00

Que tal compadres...

Perdon por quedarles mal todos estos dias, pero he estado un poquitin ocupado, asi que uds. comprenderan......

Bueno en esta ocasion voy a subir un ejemplo hecho en PBP que sirva para manejar 4 matrices de 8x8 con un 16f628 y utilizando registros de desplazamiento 74HC164...

Bueno sin mas palabras aca el ejemplo...

Codigo:
CMCON = 7

fil var byte [34]
i   var byte
j   var byte
k   var byte
T   VAR BYTE
l   VAR BYTE


FIL[0]=%00000001
FIL[1]=%00000000
FIL[2]=%11001100
FIL[3]=%11001100
FIL[4]=%11111111
FIL[5]=%00000001
FIL[6]=%00000000
FIL[7]=%11001100
FIL[8]=%11001100
FIL[9]=%00000000
fIL[10]=%00000001
FIL[11]=%11111111
FIL[12]=%11100111
FIL[13]=%11100111
FIL[14]=%11111111
FIL[15]=%11000011
fil[16]=%10000001
fil[17]=%00101100
fil[18]=%01000000
fil[19]=%01000000
fil[20]=%00101100
fil[21]=%10000001
fil[22]=%11000011
fil[23]=%11111110
fil[24]=%11111000
fil[25]=%11110000
fil[26]=%11001110
fil[27]=%10010000
fil[28]=%11001110
fil[29]=%11110000
fil[30]=%11111000
fil[31]=%11111110
fil[32]=%11111111
fil[33]=%11111111



TRISA=%00000
TRISB=%00000000
I=0

PORTA.1=1

INICIO:
    PORTB=FIL
    GOSUB RELOJ1
    IF I=0 THEN
       PORTA.1=0
    ENDIF
    I=I+1
"    GOSUB RELOJ2
    IF I>33 THEN
        GOSUB ROTA
        I=0
        PORTA.1=1
    ENDIF
GOTO INICIO

RELOJ1:
    PORTA.0=1
    PAUSEUS 700
    PORTA.0=0
    PAUSEuS 700
RETURN

ROTA:  
    i=0
    T=fil[0]
    FOR i=0 TO 33
        fil=fil[i+1]
    NEXT i
    fil[33]=T
    return

END

Este codigo hace desplazar un peque mensaje y un grafico de derecha a izquierda..

Espero que les sirva el ejemplito..... y que bueno que veo que empiezan a postear con dudas y con sus propios ejemplos.... asi da gusto seguir adelante...

Bueno eso es todo por hoy... proximamente subire el ejemplo que estoy desarrollando en BASCOM AVR, para manejar 6 matrices de 5x7...

Aca el link para descargar los archivos.......

http://miarroba.com/foros/ver.php?foroid=348538&temaid=4066778

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 09 de Febrero de 2006, 09:39:00

Hola:

Amigos, aver sia alguien propone algo para seguir avanzando con esto....... alguien propone algun ejemplo.... que sea continuacion de lo que hemos hechoa hasta ahora?... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: joseimaz1 en 13 de Febrero de 2006, 19:16:00

Hola, soy medio nuevo en este foro... principalmente en el lenguaje de programacion PicBasic Pro. Bueno les cuento que ya realize mi propio secuenciador en PBP, y lo hize en proteus para compartirlo con todos y ustedes, y de paso , aprendo, claro... Avergonzado

. Bueno realmente felicito a todos los colegas por el buen material sobre microcontroladores que hay aqui en todopic. Giño

.
aqui les doy la direccion para que se bajen el secuenciador de luces que esta hecho con un micro 16F84 http://ar.geocities.com/jimaz_89/secuenciador16f84.zip ... Un gran saludo...!!! Flash

Aqui el codigo en PBP:

"PRIMERAS PRACTICAS CON PBP
"CREATED BY JIMAZ
"secuenciador de luces
"corre del RB0 AL RB7
"CON EL MICROCONTROLADOR PIC16F84

Jimazsec:
HIGH PORTB.0
PAUSE 100
LOW PORTB.0
PAUSE 100

HIGH PORTB.1
PAUSE 100
LOW PORTB.1
PAUSE 100

HIGH PORTB.2
PAUSE 100
LOW PORTB.2
PAUSE 100

HIGH PORTB.3
PAUSE 100
LOW PORTB.3
PAUSE 100

HIGH PORTB.4
PAUSE 100
LOW PORTB.4
PAUSE 100

HIGH PORTB.5
PAUSE 100
LOW PORTB.5
PAUSE 100

HIGH PORTB.6
PAUSE 100
LOW PORTB.6
PAUSE 100

HIGH PORTB.7
PAUSE 100
LOW PORTB.7
PAUSE 100

HIGH PORTB.0
PAUSE 10
LOW PORTB.0
PAUSE 10

HIGH PORTB.1
PAUSE 10
LOW PORTB.1
PAUSE 10

HIGH PORTB.2
PAUSE 10
LOW PORTB.2
PAUSE 10

HIGH PORTB.3
PAUSE 10
LOW PORTB.3
PAUSE 10

HIGH PORTB.4
PAUSE 10
LOW PORTB.4
PAUSE 10

HIGH PORTB.5
PAUSE 10
LOW PORTB.5
PAUSE 10

HIGH PORTB.6
PAUSE 10
LOW PORTB.6
PAUSE 10

HIGH PORTB.7
PAUSE 10
LOW PORTB.7
PAUSE 10

goto Jimazsec

END

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: BLACKPIC en 13 de Febrero de 2006, 21:25:00

bueno amigo como principiante que tambien soy te doy la vienvenida a pbp. te cuento que con los for tambien puedes hacer el ejemplo que acabas de hacer y este te queda con menos espacio en lineas...

bueno cualquier cosas estamos por aki para ayudarte amigo aunque este un poco alejado de los pic, por que estoy en otras cosas por a hora pero estare visitando el foro...
bueno aki te dejo el linck donde yo colgue algunos ejemplos con for y otros del amigo lordlafebre....

http://miarroba.com/foros/ver.php?foroid=382961&temaid=4270632&pag=5

y la de lord

http://miarroba.com/foros/ver.php?foroid=8826&temaid=4001543

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 13 de Febrero de 2006, 22:39:00

Hola:

Efectivamente como comenta el amigo BLACKPIC, la mejor manera es hacerlo en un bucle y te ahorras toooodo esas lineas de codigo, pero para empezar vamos bien... Sonrisa Gigante

, cualquier cosa por aqui estamos todos los compañeros... Flash

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: joseimaz1 en 14 de Febrero de 2006, 00:58:00

Holas, estoy de vuelta por aqui, muchisimas gracias por responder, bueno si vi tus ejemplos el cual los hacias con el comando FOR que por lo que tengo entendido siempre va acompañado del comando NEXT, pero aun no entiendo del todo su funcionamiento y ley por ahy que es un comando muy importante.... Sonrisa Gigante

... lo que entiendo es que el comando FOR es un contador ¿o me equivoco? pero no entiendo que hace NEXT ¿?¿? Helado

... Espero sus respuesta, gracias!! Le agradezco a lordlafebre y la blackpic por responder y muchas gracias tambien a Doppel y a Fabian (Olotill) que me ayudaron tambien Flash

... Hasta luego-- Vacilando

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: doppel en 14 de Febrero de 2006, 01:31:00

holas!

el comando FOR....NEXT es un loop que hace todo lo que esté dentro determinada cantidad de veces según el valor de la variable que se use como tope y el incremento que se coloque

ejemplo:

Codigo:
For x=1 to 10                                " aca le decimos que lo haga 10 veces
       if boton = 1 then encender    "hace esto 10 veces
next                                               " vuelve a comenzar el for

en el ejemplo X es la variable que se usa para controlar la cantidad de veces que entra en el FOR , y realiza la operacion o las operaciones que se encuentran adentro, cuando x llegue al valor diez sale del FOR y sigue con el programa.-

si usamos FOR x = 1 to 10 va incrementando de 1 a 10 en pasos de 1
tb se pueden hacer decrementos

colocando FOR X=10 to 1 step -1; -2 ;etc indicamos de a cuanto queremos decrementar!!

esto es para Proton!! pero la logica es similar en PBP puede llegar a variar lo del decremento!! consultar el manual con respecto a la sintaxis en PBP

saludos!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 14 de Febrero de 2006, 09:34:00

Hola:

La sintaxis para PBP es la misma.

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: joseimaz1 en 14 de Febrero de 2006, 13:41:00

Holas,,, gracias por responder!!!!, ya hize mi ejemplo con el comando FOR y NEXT. aca se los dejo haber que opinan... Flash

Aqui el link para descargarlo!

http://ar.geocities.com/jimaz_89/secfor.zip

Demonio

el codigo

DEFINE OSC 4

jose var byte "jose en 8 bits

trisb = %11111100 "pongo rb0 y rb1 como salida y los demas pines del puertob en entrada

jimazrep:
for jose=0 to 20 "cuento en la variable JOSE de 0 a 20
high portb.0 "pongo en alto PUERTOB.0
pause 500    "hago una pausa
low portb.0    "pongo en bajo PUERTOB.0
pause 500    "hago una pausa
high portb.1    "lo mismo que lo anterior pero esta vez con el puertob.1
pause 500
low portb.1
pause 500
next jose    "hago que repita 20 veces lo que esta arriba
goto jimazrep "me voy a la etiqueta jimazrep
end       "termino el programa

Gracias por todo!!!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 14 de Febrero de 2006, 14:35:00

Hola:

Que bien que ya hayas hecho tu programa con el For, solo un comentario.... si no defines el cristal que vas a utilizar, el valor predeterminado de PBP es de 4Mhz, cuando utilizas high y low con el puerto B no es necesario que declares los pines como entrada o salida, high y low los hace inmediatamente como salida, cuando te refieras tambien al portb no es necesario utilizar portb.0 sino basta hacer lo siguiente:

high 0 "pone en alto a portb.0
low 7 "pone en bajo a portb.7

eso tambien hace que los pines correspondientes a B0 y B7 sean salidas...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 14 de Febrero de 2006, 14:46:00

Hola:

Otra cosa que se me escapaba, alli el for no te sirve de mucho, ya que al final del for lo regresas a una etiqueta, es decir, el programa inicia en la etiqueta, hace 20 iteracciones en las que enciendes y apagas los leds que tienes en B0 y B1, y luego lo envias nuevamente a la etiqueta, eso funciona de la misma manera sin el for...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: joseimaz1 en 14 de Febrero de 2006, 15:15:00

Gracias nuevamente por responder!!!! Fumador

.. Bueno le asigne los pines RB0 Y RB1 como salida y los demas como entrada, porque si no en el proteus vi que en los demas pines que no utilizaba me kedaban algunos pines en positivos y otros en negativo.... una pregunta.. hace falta definir el micro que vamos a usar o ya cuando lo compilamos lo hace solo.¿?... bueno como dices tienes razon que el for no me me sirve de mucho ally pero la idea era aprender a usarlo Rebotado

... y me parece un comando muy importante...!!!! Voy por mas!!! voy a seguir practicando me parecio muy interesante PBP Sonrisa Gigante

...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 14 de Febrero de 2006, 15:28:00

Hola:

El algunos casos el codigo es copatible, pero lo mejor es que selecciones el microcontrolador que estas utilizando...

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 16 de Febrero de 2006, 09:26:00

Hola:

Amigos me parece que en el proximo ejemplo ya podemos utilizar un LCD, voy a hacer ahora el ejemplo y lo subo en seguida... Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 16 de Febrero de 2006, 10:14:00

Hola:

Bueno aqui pongo mi ejemplo para pic 16F84A y LCD a 4bits.

En la pagina http://www.x-robotics.com/ en rutinas---> LCD 16x2 existe una clara explicacion del LCD, el pinout del mismo y la tabla ascci.

El comando que utiliza PBP para mostrar datos en el LCD es:

LCDOUT Item {,Item...}

Como bien lo dice la ayuda, PBP soporta displays con controlador Hitachi 44780 o compatible, adicionalmente se pueden utilizar los siguientes operadores y comandos:

Alli podemos ver todos los comandos que podemos utilizar para que el LCD haga cierta accion, ejemplo:

LCDOUT $FE,1 "Borra el display
LCDOUT $FE, $C0 " mueve el cursor al inicio de la segunda linea

Para los operadores se utiliza de la misma manera, ejemplo:

lcdout $FE,1,bin4 flag " Borra la pantalla y muestra en el display el valor de flag en un numero binario de 4 bits.

Para poder definir a que pines se quiere conectar el lcd, los bits a utilizar y demas, se debe utilizar las siguientes definiciones al inicio del programa (Se puede utilizar solo las necesarias).

" Set LCD Data port
DEFINE LCD_DREG PORTB
" Set starting Data bit (0 or 4) if 4-bit bus
DEFINE LCD_DBIT 4
" Set LCD Register Select port
DEFINE LCD_RSREG PORTB
" Set LCD Register Select bit
DEFINE LCD_RSBIT 1
" Set LCD Enable port
DEFINE LCD_EREG PORTB
" Set LCD Enable bit
DEFINE LCD_EBIT 0
" Set LCD bus size (4 or 8 bits)
DEFINE LCD_BITS 4
" Set number of lines on LCD
DEFINE LCD_LINES 2
" Set command delay time in us
DEFINE LCD_COMMANDUS 2000
" Set data delay time in us
DEFINE LCD_DATAUS 50

Bueno, mi circuito en Proteus es este:

Y el codigo este:

Codigo:
"Giovanni Lafebre
"Cuenca - Ecuador
"Ejemplo para LCD a modo 4 bits
Define   LCD_DREG   PORTB  "bit de datos del LCD empezando
Define   LCD_DBIT   0      "por B.0 ,B.1, B.2 y B.3
Define   LCD_RSREG   PORTB  "bit de registro del LCD conectar
Define   LCD_RSBIT   5      "en el puerto B.5
Define   LCD_EREG   PORTB  "bit de Enable conectar en el
Define   LCD_EBIT   4      "puerto B.4            

inicio:
    lcdout $FE,1,"HOLA TODOPIC " "borra el lcd y muestra el mensaje.
end

Esto es lo mas basico, solamente muestra un mensaje en el lcd, nada mas por ahora. Sonrisa Gigante

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 16 de Febrero de 2006, 10:19:00

Hola:

Aqui estan los archivos del ejemplo anterior:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=4214116

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: cadaver_alcoholizado en 10 de Marzo de 2006, 15:36:00

holas amigos

os felicito por la iniciativa q han tenido recien acabo de terminar d eleer las 6 paginas d emensajes q hay y me quiero sumar a su causa, ya consegui los softwares y ahora voy a ponerme a practicar los ejercicios que uds han avanzado, luego les escribo para contarles q tal me fue, bueno les comento q a mi me encanta el asembler por su finura y exactitud para desarrollar las cosas, entonces hasta mas tardecito, chau saludos desde Lima Peru!!!!!!!!!!!!!!!!!!!!!!!!!!

Título: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 10 de Marzo de 2006, 22:29:00

Hola:

Cadaver, ya sabes bien venido al Basic, y cualquier cosa estamos por aqui todos los compañeros.

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación e
Publicado por: Nikola_Tesla en 02 de Mayo de 2006, 15:48:48

nos podrian dar un ejemplo para controlar motores con el pwm¿¿¿

saludos!!

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación e
Publicado por: el_barny en 27 de Mayo de 2006, 11:55:51

Hola buenas a todos. Hace muy poco que he empezado con esto y ahora estoy intentando hacer ejemplos. He copiado el ejemplo del LCD y al simular la pantalla se enciende pero no muestra nada. Viendo que eso no era normal, he probado a hacer un programa muy básico al que he conectado un led en el pin rb0 para intentar que parpadee. Mi sorpresa ha sido que en los puertos rb no parpadea mientras que en los puertos ra si que parpadea con el mismo codigo. Utilizo microcode studio, pbp 2.46 y proteus lite. Con el puerto rb esta al principio apagado, luego se enciende y ya no se vuelve a apagar. El código es éste:

inicio:
low portb.0
pause 100
high portb.0
pause 100
goto inicio
end

He probado además a declarar los pines a como entradas y los pines b como salidas pero sigue sin parpadear, se queda fijo encendido y ya no se apaga. A ver si alguien me ayuda. Gracias de antemano

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 27 de Mayo de 2006, 12:13:05

Hola:

El codigo esta bien, fijate si la frecuencia de oscilacion del pic que estas utiliazando es 4 mhz, si todo eso es correcto, entonces la falla es en el proteus, tambien puedes probar a armar ese circuito y te fijaras que debe funcionar.

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación e
Publicado por: el_barny en 27 de Mayo de 2006, 12:31:28

La frecuencia si que es de 4Mhz, y el circuito montado está también bien. Probaré a bajarlo de nuevo y a ver si me funciona. Gracias.

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: Mario en 31 de Mayo de 2006, 02:08:39

Hola.

Muy interesante este tema.

Quisiera participar pero no sé qué es eso del Proteus (al parecer simula).

Este Proteus, ¿simula los programas del µicro?. Lo que quiero decir es que si es como el MicroCode Studio Plus, que es un emulador en hardware (claro que Proteus sería en software).

Una pregunta:

¿Dónde se compra este proteus?

Gracias.

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: Mario en 31 de Mayo de 2006, 02:22:34

O si.

Ya estuve viendo esto del Proteus y su interacción con el PIC (vagamente, no muy profundo).

Cuando lo tenga me pondré al corriente con ustedes (¿dónde se compra?)

Gracias.

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: LordLafebre en 31 de Mayo de 2006, 12:12:24

Hola:

Lo puedes hacer en la pagina de ellos:

http://www.labcenter.co.uk/index_uk.htm

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: Necrobutcher en 01 de Octubre de 2006, 19:14:38

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

saludos

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: navaismo en 05 de Octubre de 2006, 13:35:02

Este no te dara una idea creo que se parece "algo" a lo que quieres click aqui (http://www.todopic.com.ar/foros/index.php?topic=2810.msg22304#msg22304)

Título: Re: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: dago en 07 de Abril de 2007, 23:43:39

Cita de: LordLafebre en 04 de Octubre de 2005, 13:43:00

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:

Título: Re: RE: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: marco1020 en 05 de Diciembre de 2009, 17:28:33

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

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: rascueso en 20 de Marzo de 2011, 11:08:48

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

Título: Re: Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: minimus en 09 de Abril de 2011, 14:40:47

Título: Re:Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: jose rodriguez en 20 de Mayo de 2020, 13:38:08

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

Título: Re:Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: elreypic2 en 20 de Mayo de 2020, 15:59:37

Cita de: jose rodriguez en 20 de Mayo de 2020, 13:38:08

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.

Título: Re:Aprender Pic y AVR con compiladores Basic (Proton, PBP, Bascom) simulación en Proteus
Publicado por: jose rodriguez en 22 de Mayo de 2020, 23:19:00

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 ..... :-/