Mensaje Privado (Desconectado)
RE: Ejemplos en PBP y PROTEUS
« Respuesta #5 : 29 de Julio de 2005, 07:35:00 »
Responder con cita
5) BOTONES Y LEDS
Este tiene dos botones el uno sirve para subir y el otro para bajar:
i var byte
cont var word
cmcon=7
TRISB=0
TRISA=%00000011
cont=1
PORTB=cont
inicio:
if PORTA.0=0 then
cont=cont*2
PORTB=cont
if cont>=256 then
cont=1
PORTB=cont
endif
pause 200
else
cont=cont
endif
if PORTA.1=0 then
cont=cont/2
PORTB=cont
if cont<=1 then
cont=256
endif
pause 200
else
cont=cont
endif
goto inicio
endEstoy haciendo los ejemplos del tema 'ejemplos PBP y proteus'... Los estoy calando pero en 16F88 y no jalan para nada , los calo en el 16f628 y jala bien (a veces).En fin, la pregunta es porque???
yo le seguiré buscando por mi cuenta no crean ke me voy a atener a ustedes :x.... :D :mrgreen: jeje es broma, es que ya he visto que no les gustan los flojos que quieren todo en la manita y en bandeja de plata ;-) zax, see ya.
select case pins
case 2
goto ford
case 1
goto chevrolet
case 3
goto sbec2_5
case 128
goto sbec_y_pcm3_0
case else
end select
pause 500
goto inicioMuy good :mrgreen: Sin querer llegué a mi mismo msj :P
Una consultilla nomás, pq ahí la llevo.
En el simulador de picaxe existe un comando llamado PINS el cuál lo que hace es leer el puerto A. Pues bien, en pbp obvio no hay una correspondencia directa sin embargo me vienen algunas ideas en la cabeza. Podría declarar if's con portA.0=1 AND portA.1=1 etc, aunque me va a consumir mucha memory, no? Otra sería...ehm...no, no se me ocurre otra :mrgreen: Hago la consulta en vivo pq en unos minutos retomo el programa :?..... espero me dén algunas ideas ya que en cuetión lo que debo reemplazar es el CASE de:Código: [Seleccionar]select case pins
case 2
goto ford
case 1
goto chevrolet
case 3
goto sbec2_5
case 128
goto sbec_y_pcm3_0
case else
end select
pause 500
goto inicio
PD: Sorry por alejarme un pokito del hilo, es que este tiene mas atención :mrgreen:
PD2: Si ven estoy haciendo la rutina para un probador de computadoras automotrices, así es que en cuanto lo depure para no depender del PICAXE pues se los paso al costo con diagramas y todo, eso no es problema....(bueno, siguiendo la filosofía)....les paso los archivos importantes ya ya le buscan acerca de los conectores y demás, así lo recomiena dogflu66 jiji :mrgreen:zax, gracias.
select case portA
case 1
goto uno
case 2
goto dos
case 3
goto tres
case else
end select
'pause 500
goto inicioMuy good :mrgreen: Sin querer llegué a mi mismo msj :P
Una consultilla nomás, pq ahí la llevo.
En el simulador de picaxe existe un comando llamado PINS el cuál lo que hace es leer el puerto A. Pues bien, en pbp obvio no hay una correspondencia directa sin embargo me vienen algunas ideas en la cabeza. Podría declarar if's con portA.0=1 AND portA.1=1 etc, aunque me va a consumir mucha memory, no? Otra sería...ehm...no, no se me ocurre otra :mrgreen: Hago la consulta en vivo pq en unos minutos retomo el programa :?..... espero me dén algunas ideas ya que en cuetión lo que debo reemplazar es el CASE de:Código: [Seleccionar]select case pins
case 2
goto ford
case 1
goto chevrolet
case 3
goto sbec2_5
case 128
goto sbec_y_pcm3_0
case else
end select
pause 500
goto inicio
PD: Sorry por alejarme un pokito del hilo, es que este tiene mas atención :mrgreen:
PD2: Si ven estoy haciendo la rutina para un probador de computadoras automotrices, así es que en cuanto lo depure para no depender del PICAXE pues se los paso al costo con diagramas y todo, eso no es problema....(bueno, siguiendo la filosofía)....les paso los archivos importantes ya ya le buscan acerca de los conectores y demás, así lo recomiena dogflu66 jiji :mrgreen:zax, gracias.
Es correcto, la forma de leer o escribir en un puerto es como lo mencionas, if porta.0=1 then bla bla .
Incluso puedes hacer que la referencia a algún pin del puerto sea más significativa
Porta.1=motor (no se ase de este manera lo que pasa que ya no recuerdo bien como hacerlo , en protón es con symbol y en pbp creo que con var).
Por otra parte no veo la necesidad de que sustituyas el case ya que en Basic también es balido.
TRISA = %11111011 'defino puerto A como entradas
TRISB = %00000000 'defino puerto B como salidas
'adcon1=142
ANSEL = %00000000
'cmcon=7
portb=0
'portA=0
'Pause 500
programa:
select case portA
case 1
goto uno
case 2
goto dos
case 3
goto tres
case else
end select
'pause 500
goto programa
uno:
high 0
pause 2000
low 0
pause 500
goto programa
dos:
high 1
pause 500
low 1
pause 500
goto programa
tres:
high 0
pause 500
high 1
pause 500
high 2
pause 500
high 3
pause 500
high 4
pause 2000
portb=0
pause 500
goto programa