Ejemplos en PBP y PROTEUS

[LordLafebre]

Aqui encontraran los archivos en proteus y pbp...!

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

[LordLafebre]

7.-) Display

El mismo contador con un display pero ahora con un vector en el cual almacenaremos los valores correspondientes a cada numero (Para los dos ejemplos el Display es de Anodo Comun)



vec var byte [10]
pos var byte
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

loop:
    for pos=0 to 9
        PORTB=vec[pos]
        pause 500
    next
    goto loop
end

[LordLafebre]

Aqui estan los archivos.... (Display 2)

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

[LordLafebre]

8.-) DISPLAY

Un contador ascendente y descendente



vec var byte      
num VAR BYTE    
TRISB = 0        

prog:
    for vec=0 to 9    
        lookup vec,[191,134,219,207,230,237,253,135,255,239],num
        portb=num
        pause 500
    next vec  
    for vec=9 to 0 step -1    
        lookup vec,[191,134,219,207,230,237,253,135,255,239],num
        portb=num
        pause 500
    next vec  
goto prog
END

[LordLafebre]

9.-) Contador con Pulsantes

Este es un contador ascendente y descendente....posee dos pulsantes que sirven para subir y bajar el conteo:



vec var byte      
num VAR BYTE

TRISA = %00000011  
TRISB = 0        

cmcon=7
vec=0
PORTB=64

inicio:
    if PORTA.0=0 then
        vec=vec+1
        lookup vec,[0,191,134,219,207,230,237,253,135,255,239],num
        portb=num
        if vec>=10 then
            vec=0
        endif
        pause 200
    endif
    if PORTA.1=0 then
        vec=vec-1
        lookup vec,[0,191,134,219,207,230,237,253,135,255,239],num
        portb=num
        if vec<=1 then
            vec=11
        endif
        pause 200
    endif
goto inicio
END

[LordLafebre]

Aqui los archivos del ejercicio del Display y los pulsantes

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

[LordLafebre]

10.-) CONTADOR CON PULSANTES

A diferencia del anterior que el conteo se la hacia cuando se pulsaba aqui es conteo es automatico y los pulsantes sirven para elegir si se quiere que el conteo sea ascendente o descendente...



vec var byte      
num VAR BYTE
flag var byte

TRISA = %00000011  
TRISB = 0        

cmcon=7
vec=0
flag=1

inicio:
    if PORTA.0=0 then
        flag=1
    endif
    if PORTA.1=0 then
        flag=0
    endif
    if flag=1 then
        gosub subir
    endif
    if flag=0 then
        gosub bajar
    endif
goto inicio

Subir:
        vec=vec+1
        lookup vec,[0,191,134,219,207,230,237,253,135,255,239],num
        portb=num
        if vec>=10 then
            vec=0
        endif
        pause 200
        return
Bajar:
        vec=vec-1
        lookup vec,[0,191,134,219,207,230,237,253,135,255,239],num
        portb=num
        if vec<=1 then
            vec=11
        endif
        pause 200
        return
end

[LordLafebre]

Aqui los archivos del ejepmlo del contador con los pulsantes...

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

[electronando]

no tendran por alli ejemplitos manejando el i2c en proteus y eso de serin2, shifting esos tipillos de comandos con el proteus creo se puede simular no, haber si alguien los pudiese colgar

[vitervi]

Hola a todos,

Pregunta facil:

Para armar el PROTEUS con estos ejemplos necesito el PIc pero al pic tengo que ponerle algo mas, VCC, GND.....

Gracias

[LordLafebre]

Hola:

No tiene los pines de VCC y GND, el simulador asume como si el pic ya estubiera "alimentado"...

[vitervi]

Hola a todos,

No puedo bajarme el primer ejerccio que hay, como lo puedo hacer para bajarlo.

Y perdon por preguntar siempre.

Gracias

[LordLafebre]

Hola:

Rapid share lo ha borrado.... voy a subir el ejemplo al almacen del foro y luego te paso el link...

[LordLafebre]

Hola:

Ya esta, ya colgue el ejemplo en el almacen del foro, revisa nuevamente el link para que lo descargues...

En estos dias voy a subir los otros ejemplos que tengo...

[LordLafebre]

Hola:

Para los que les interese aqui seguimos con mas ejemplos en compiladores Basic y simulacion en Proteus...

http://miarroba.com/foros/ver.php?foroid=382961&temaid=4270632&ultimomsg=si#ultimomsg