Ejemplos en PBP y PROTEUS

[fixxxyto]

Me parece bien bueno este soft, PBP, pero consegui una version demo y ni idea de como se usa, sabes de donde puedo bajarlo, pero una version que ande fino, y de paso, (abusador yo jejeje) me explicas un poco coo funciona. Yo uso el PIC C compiler. Gracias

[LordLafebre]

Hola:

pues algo que te puedo decir es que no acostumbramos en este foro a compartir soft pirata, el como conseguirlo depende de ti, busca por el Emule o algun parecido, con respecto a la ayuda a darte sobre PBP con gusto, habemos muchos aqui 

[PIC-A-SHU]

hola amigos, tengo una consulta:
es proteus 100% confiable, o sea, lo que me arroja la simulacion es lo que pasa en un circuito en la practica??
pregunto porque he logrado simular un tacometro ademas del manejo de servos, osea, me realiza las 2 tareas, pero al llevarlo a la practica tengo problema con los servos, no tienen el mismo comportamiento que en la simulacion, es por eso mi duda, o puede ser que mis servos esten fallando, no lo se.-

bueno agradeceria una pronta respuesta, ya que estoy contra el tiempo para entregar mi tarea, adios.-

[LordLafebre]

Hola:

como todo simulador no es 100% confiable, y con lo que te paso ya sabes que no se puede confiar al 100%, en la realidad hay algunas cosas que influyen, como ruidos y otras cosas, asi que no te sorprendas que tu programa luego de que lo hayas simulado no te funcione igual en la realidad.

[jorge_neco2003]

Que tal Amigos.!!! soy nuevo en el foro y nuevo con el PBP, he echo algunos programas en assembler, pero me falta aprender bastante todavia, así que por el momento lamento no poder aportar mucho, estoy leyendo todo lo que encuentro sobre PBP y agradezco mucho todos los ejemplos de lordlafebre, los cuales espero realizar pronto, cuando comience con las practicas los molestaré con alguna pregunta, Gracias.!!!  y Saludos desde Necochea (Bs.As)

[LordLafebre]

Hola:

Bien venido al foro, y cualquier cosa, aqui estamos todos para ayudar en lo que se pueda.   

[beatAurex1]

AQUI LES DEJO ALGUNOS EJEMPLOS SENCILLOS DE PWM

Device 16F84A
      XTAL 4
      TRISB=%00000000
      PortB=0
      Dim cont as word
      
      X1:  for cont=1 to 255   
      PWM PortB.0,cont,1               'la salida  de pwm esta en  el port.0,el ancho de pulso sera de cont
                                                                            ,el cual r3epresentar
      Next
      goto X1


OTRO EJEMPLO

dim a as word                     
trisa = %00000000                ;salidas
trisb = %11111111             ;entradas               

x1: for a = 1 to 2500
    pwm porta.0,a,1               ;la salida  de pwm esta en  el port.0,el ancho de pulso sera de dato a, el cual r3epresentar
   delayms 5
   next
                           ;un ancho de pulso en un porcentaje incremental.
   for a = 2500 to 1 step-1
    pwm porta.1,a,1
   delayms 5
   next
   goto x1

[Jmedina]

Saludos amigos,

He estado trabajando un poco con el proteus me ha ahorrado mucho tiempo al poder probar los programas antes de quemar el pic.
Tengo un programita con LCD con 3 pulsadores con 1 aparecen las letras del abc con 2 avanzamos para seguir escribiendo y con 3 nos devolvemos para corregir. Esto me funciona  bien   pero le intente agregar otro pulsador para grabar en la Eepron del pic lo que se escribió en pantalla y luego lo desplaza de derecha a izq pero no me funciona ,  no se si pueda poner  aquí el programa para que lo revisen… y compañeros que pena pero como le hago para poner la imagen del circuito aquí en otra ocasión estuve intentado poner un circuito del proteus y no pude.

Gracias a todos.

[LordLafebre]

Hola:

Pon el codigo por aqui para mirarlo, aunque recuerda que el pic proteus no retiene los datos una ves que terminas la simulacion.

[Jmedina]

Bueno compadre Lafebre te comento que lla mefunciono el programa  , era solo un error de escritura en la instruccion lcdin... pero bueno como no todo es perfecto solo me funciono bien en la simulacion , en el circuito solo puedo escribir los mensajes, pero cuando undo el boton para que lo grabe en la EEPROM y lo despliege de derecha a izq so lo se desplazan las casillas en negro, no se que pueda ser pues en proteus funciona bien, de todos modos aqui pongo el codigo a ver si encuentran algo.


'device = 16f84                  ' declaramos pic a usar
Define osc 4

DAT VAR BYTE
DATO VAR BYTE
MEMO VAR BYTE                       
Y VAR BIT
X VAR BYTE
Z VAR BYTE
NUM VAR WORD
JHON con $fe

DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 2
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1

LED VAR PORTB.0
BUTON1 VAR PORTA.1
BUTON2 VAR PORTA.2
BUTON3 VAR PORTA.3
BUTON4 VAR PORTA.0 
 
INI:

LCDOUT JHON,1
PAUSE 700
LCDOUT JHON,$0F
PAUSE 2000
LCDOUT JHON,$0E
PAUSE 1000


PULSAR:
HIGH LED
PAUSE 200
LOW LED
IF BUTON1=0 THEN ALFA
IF BUTON2=0 THEN DERE
IF BUTON3=0 THEN IZQU
IF BUTON4=0 THEN GRABA

GOTO pulsar   


ALFA: NUM=0
      HIGH LED 
      PAUSE 400
      IF X=28 THEN X=0
      LCDOUT $FE,$10
      LOOKUP X,[" ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"],NUM
      LCDOUT,NUM
      X=X+1
      GOTO PULSAR
     
DERE:
      HIGH LED
      PAUSE 400
      X=0
      LCDOUT $FE,$14
      GOTO PULSAR
     
IZQU:
      HIGH LED
      PAUSE 400
      X=0
      LCDOUT $FE,$10
      GOTO PULSAR

GRABA:
      MEMO=$7F
      DAT=0
EEPR: MEMO=MEMO+$01
      DAT=DAT+1
      IF MEMO=$90 THEN DEZPLA
      LCDIN MEMO,[DATO]
      WRITE DAT,DATO
      GOTO EEPR
     
DEZPLA:
        PAUSE 100
        LCDOUT $FE,$0C
        PAUSE 50
        LCDOUT $FE,$7
        LCDOUT $FE,1
MOVI:   MEMO=0                   
        DAT=$00
        LCDOUT $FE,$90
        FOR Z=0 TO 15
        DAT=DAT+$01
        READ DAT,MEMO
        LCDOUT,MEMO
        PAUSE 400
        NEXT
        GOTO MOVI
END

[Jmedina]

Bueno toco responderme yo mismo jeje.

Les comento que al programa anterior le quite la parte de los pulsadores y le agregue una rutina para teclado hex, utilize el 16f877 y la simulacion en proteus funciono bien, y cuando lo monte tabien  LO que no se es porque con el  f84 no funciono, si alguno tiene alguna idea le agradeceria la info.

[electroloco666]

Que tal amigos del foro basic por los ejemplos mostrados yo le spongo uno donde de utiliza el ADC del PIC es un 16f877A el cual es un control de temperatura para poder controlar un ventilador deacuerdo a  un valor fijado (referente_ejm. 40°C )y comparando con un sensor LM35 el que muestra el valor en una pantalla LCD el valor de temperatura medido en el ambiente y me realiza la compracion y activa o desactiva mi sistema de calefaccion.
Pues lo malo q tiene moi programa  es que no poses decimales y varia en el LCD de 2 en 2 grados °C     aunqeu he leido varios temas referentes a estos no logre naa no se tak vez me falte mas programacion pero lo logrado x mi persona ahi le spongo y habe ris podias mejorarlo pa los decimales y el error de los valores cuento con su gran experiencia.. para lo novatos este program si sirve para muchas cosas, q no necesiten precision...



'****************************************************************
'*  Name    : control de temperatura.BAS                           *
'*  Author  : [Jimmy Jefferson]                                     *
'*  Notice  : Copyright (c) 2006 [select VIEW...EDITOR OPTIONS]     *
'*          : All Rights Reserved                                   *
'*  Date    : 01/08/2006                                            *
'*  Version : 1.0                                                   *
'*  Notes   : este es un control de temperatura encendiendo o       *
'*          : apagando un ventilador conectado en D.7 del 16f887A   *
'*          : el cual hace una comparacion con un valor fijo (52 ºC)*
'*          : y el otro es el del sensor lm35 el cual dara la       *
'*          :orden del aperacion a ejecutar... pero tienes un % de error de 2 ºC*
'****************************************************************

VENTILADOR  VAR      PORTD.7

DEFINE OSC 20
' Definir los registros y bits del LCD
DEFINE  LCD_DREG        PORTB 'D0,D1,D2,D3-4,5,6,7
DEFINE  LCD_DBIT        4
DEFINE  LCD_RSREG       PORTE 'E0-RS
DEFINE  LCD_RSBIT       0
DEFINE  LCD_EREG        PORTE 'E1-E
DEFINE  LCD_EBIT        1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50

' Definir los parametros del ADCIN
DEFINE  ADC_BITS        8       ' Setear el numero de bits del resultado
' Defenir variables de los resultados de la conversion
ADC1   VAR BYTE   


TRISA = %11111111   ' Setear el puerto A como entrada
ADCON1 = %00000100   ' Setear el puerto A como analogico
Pause 500                       ' Espera de .5 segundos

LCDOut $fe,1, " LM 35  "
LCDOut $fe,$c0,"PIC 16f877"
Pause 1500
LCDOut $fe,1, " CONTROL DE"
LCDOut $fe,$c0,"TEMPERATURA"
Pause 1500
INICIO:
     LCD:
         IF adc1>=52 Then ' activa nu ventilador si el valor del ADC1 es mayor o igual a 52 ªc
            High VENTILADOR
         Else
         Low VENTILADOR   ' apaga si es menor al valor determinado
         EndIF
   
         
   LCDOut   $fe, 1   ' Limpiar el LCD
   ADCIN 0, adc1   ' Leer el primer canal del ADC
   adc1=adc1*2
   LCDOut $fe,1, " sensor "
   LCDOut $fe,$c0, "TEMPERATURA=",#adc1   ' muestra la lectura de la temeperatura en ªc
   PAUSE 150
   
GOTO INICIO

el sensor estan el el portA.0 del pic y va directo ... tengo la simulacion en proteus pero no se como colgar en los mensajes ... y unas imagenes...
pues me despido saludos...

Jimmy J.J.

[hsen]

Que tal compadre Hsen..


Para solucionar tu problema tienes 2 salidas... o usar una variable long word.... o lo que yo haria manejar una variable para unidades, decenas, centen, miles, etc... asi estas variables solo llegarian a un maximo valor de 9.... lo que si te tocaria modificar el codigo que posteo mi compadre Giovanni, para ya no usar la sentencia DIG, sino tocar los valores de unit para el display 1, decenas para el 2 y asi sucesivamente...

bueno compadre, espero que te haya quedado claro la idea...sino pues aca estamos para ayudarte.. y pues cuenten con mis poca ayudad que les puedo brindar....

un abrazo y suerte

[hsen]

Muchachos:pido disculpas puesto que no domino bien esto de los chats.Los PCs,me vuelven loco .
Estoy preguntando sobre un post viejo sobre como hacer un contador  con 5 display de 7 seg.y como no me da la variable
word.
Me indican usar una variable para unidades,decenas.centenas etc.
Agradeceria poteen un ejemplo aunque sea de dos o tres display para entender  bien la idea y llegar a hacer uno de
5 display que necesito
Muchas gracias

[LordLafebre]

Muchachos:pido disculpas puesto que no domino bien esto de los chats.Los PCs,me vuelven loco .
Estoy preguntando sobre un post viejo sobre como hacer un contador  con 5 display de 7 seg.y como no me da la variable
word.
Me indican usar una variable para unidades,decenas.centenas etc.
Agradeceria poteen un ejemplo aunque sea de dos o tres display para entender  bien la idea y llegar a hacer uno de
5 display que necesito
Muchas gracias

Hola:

Hombre... tomate la molestia de por lo menos leer este mismo tema, retrocede una página y encontraras un ejemplo como el que necesitas.