interesante (proyecto con pic y led)

[firepic]

Y pues si no quiero a adelantar las golondrinas pero existe la posibilidad de que deje de estar entre ustedes así que  en lo posible intentare ayudar en lo que pueda  para retribuir de alguna manera todo lo que me andado. haaaaa me invade la nostalgia al recordar la primera ves que entre por aquí buscaba de forma desesperada algún otro modo de programar que no fuera asm

Guao Sandra, qué tristeza causa el que digas esas palabras...   
Es un honor tenerte por acá! Saludos! 

[sandra]

Pues así es esto queridos amigos estoy analizando una desinteresada y amorosa propuesta matrimoniosa (desinteresada y amorosa aja si como no aunque dicha propuesta resuelve mis muy numerosos problemas   también es cierto que la propuesta contiene una larga lista de condiciones .  como ven soy amada y aceptada incondicional mente como soy aja

Pero bueno eso es harina de otro costal código quiero ver código

[sandra]

f

[KARINA83]

ummmmm no asi no se vale no le pidas permiso y sigue aqui en el foro luego te digo el truco 
pues bien a ver que le parece madrina:




'****************************************************************
'*  Name    : 7 pulsadores y 1 led                              *
'*  Date    : 28 de julio de 2008                               *
'*  Notes   :  Doppel 2008 - ejemplo para todopic               *
'*          :  www.todopic.net                                  *
'* modificacion: KARINA83  (CON CARIÑO PARA SANDRA)             *                     
'****************************************************************
       
 
'**********************definicion de variables*******************
 x var Byte  'variable del for
nveces var byte
'************** defino alias a los diferentes puertos/pines***************
Symbol boton1 = PORTB.0     'defino boton en el puerto PORTB.0
Symbol boton2 = PORTB.1
Symbol boton3 = PORTB.2       'le pongo alias a los puertos desde B0 hasta B3
Symbol boton4 = PORTB.3
Symbol boton5 = PORTB.4
Symbol boton6 = PORTB.5
Symbol boton7 = PORTB.6
Symbol led = PORTB.7      'defino LED en el puerto PORTB.7

'**********************definicion de puertos************************
TRISB = %01111111         'defino entrada de botones y todas salidas
PORTB = 0                 ' pongo el puerto a "0"
 
'*********************pongo las variables a "0"**********************
x=0        'inicio todas las variables en "0"


'*************************comienzo del programa********************
inicio:
     if boton1 = 1  then  uno
     if boton2 = 1  then  dos
     if boton3 = 1  then  tres
     if boton4 = 1  then  cuatro
     if boton5 = 1  then  cinco
     if boton6 = 1  then  seis
     if boton7 = 1  then  siete
      GoTo inicio                       ;1 GOTO
     
uno:     
      if boton1=1  then    ;1 destello
      nveces = 1
      gosub destellos
       ENDIF
       
     
dos:   
      if boton2=1  then    ;2 destellos
       nveces = 2
       gosub destellos
        ENDIF
       
tres:
      if boton3=1  then      ;3 destellos
      nveces = 3             
      gosub destellos
        ENDIF
cuatro:
      if boton4=1  then     ;4 destellos
      nveces = 4
      gosub destellos
        ENDIF
cinco:
      if boton5=1  then    ;5 destellos
      nveces = 5
      gosub destellos
        ENDIF
seis:
      if boton6=1  then    ;6 destellos
      nveces = 6
      gosub destellos
        ENDIF
siete:
      if boton7=1  then    ;7 destellos
      nveces = 7
      gosub destellos
        ENDIF                               
       
destellos:
     For x=1 To nveces         'enciendo nveces el led a 300ms
           led = 1
           pause 500
           led = 0
           pause 500
     Next
         X=0
       
                 
        GoTo inicio   'vuelvo a inicio    ;2 GOTO  Y SOLO 2 !!!!!
                 
End      'fin del programa





y solo 2 GOTO  estoy aprendiendo buenos modales?
y funciona
(y ya me prepare mis orejitas para los jalones )
y lo que tu decidas que sea para bien SANDRITA
besos ,abrazos y agradecimientos bye.

[sandra]

Bueno vamos por partes como diría el destripador el primer  goto lo puedes  cambiar por
La sentencia while wend, tan bien es un bucle  aunque puedes hacer maravillas con el , es una lastima que en el Basic para pic no este el do while wend pero bueno esa ya es otra historia.
El ultimo goto  elimínalo no tiene razón de ser, espero que me explique porque.
Cuando entras a la subrutina repites la condición que origino que llegara ahí esto esta mal almenos que quieras tener el dedo pegado al botton para que funcione.
Lo correcto es
If  portb.0= 1 then   gosub  parpadea 1 ves


Parpadea 1 vez:
Parpadeo=1
Gosub parpadeo

Aunque esto toda vía se puede simplificar no te complico mas.

Ahora  tal vez no me explique bien alo que yo me refería a que  cambiaras el button por el if es que crearas una rutina anti rrebote algo así

If portb.0= 1 then
Suma=suma+1
Delayms 10
While portb.0=1  ‘tiene que esperar a que deje de mandar rebotes o   sueltes el botón..
Delayms 10
Wend
endif

Con esto de que el foro se cae no da tiempo de mirar bien el ultimo goto cámbialo por retur  que es lo correcto regreso de subrutina

[sandra]

Haber aunque te desviaste de lo que originalmente estabas asiendo la corrección que pongo a continuación es bastante didáctica  aunque no e podido probarla mi grabador
Sufrió quemaduras de 3 grado y poner tantos botones en el proteus me da flojera
Debe de funcionar  si no funciona prometo que me caso




'**********************definicion de variables*******************
Device 16F84A
XTAL 4
 x var Byte  'variable del for
nveces var Byte
'************** defino alias a los diferentes puertos/pines***************
Symbol boton1 = PORTB.0     'defino boton en el puerto PORTB.0
Symbol boton2 = PORTB.1
Symbol boton3 = PORTB.2       'le pongo alias a los puertos desde B0 hasta B3
Symbol boton4 = PORTB.3
Symbol boton5 = PORTB.4
Symbol boton6 = PORTB.5
Symbol boton7 = PORTB.6
Symbol led = PORTB.7      'defino LED en el puerto PORTB.7

'**********************definicion de puertos************************
TRISB = %01111111         'defino entrada de botones y todas salidas
PORTB = 0                 ' pongo el puerto a "0"
 
'*********************pongo las variables a "0"**********************
x=0        'inicio todas las variables en "0"


'*************************comienzo del programa********************
While  1=1
     If boton1 = 1  Then 
     nveces=1
     GoSub destellos
     EndIf
     If boton2 = 1  Then 
     nveces=2
     GoSub destellos
     EndIf
     If boton3 = 1  Then
     nveces=3
     GoSub destellos
     EndIf
     If boton4 = 1  Then
     nveces=4
     GoSub destellos
     EndIf
     If boton5 = 1  Then 
     nveces=5
     GoSub destellos
     EndIf
     If boton6 = 1  Then 
     nveces=6
     GoSub destellos
     EndIf
     If boton7 = 1  Then
     nveces=7
     GoSub destellos
     EndIf
 Wend                      ;1 GOTO
     
'uno:     
      'if boton1=1  then    ;1 destello
      'nveces = 1
      'gosub destellos
       'ENDIF
       
     
'dos:   
      'if boton2=1  then    ;2 destellos
       'nveces = 2
       'gosub destellos
        'ENDIF
       
'tres:
      'if boton3=1  then      ;3 destellos
      'nveces = 3             
      'gosub destellos
        'ENDIF
'cuatro:
      'if boton4=1  then     ;4 destellos
      'nveces = 4
      'gosub destellos
       ' ENDIF
'cinco:
      'if boton5=1  then    ;5 destellos
      'nveces = 5
      'gosub destellos
        'ENDIF
'seis:
      'if boton6=1  then    ;6 destellos
      'nveces = 6
      'gosub destellos
        'ENDIF
'siete:
      'if boton7=1  then    ;7 destellos
      'nveces = 7
      'gosub destellos
        'ENDIF                               
       
destellos:
     For x=1 To nveces         'enciendo nveces el led a 300ms
           led = 1
           pause 500
           led = 0
           pause 500
     Next
         X=0
       
                 
        Return
                 
End      'fin del programa

[KARINA83]

haaaaaaaaa si funciona perfectamente pero................
NO NOS DEJEEESSSSSS por fa si?
no importa que me jales las orejotas 
MADRINA no te vallasssssss
MUCHACHAS Y MUCHACHOS  de este foro necesito su ayuda para que sandra no nos deje
que se quede , que se quede,que se quede.     

[sandra]

Chin  no contaba con que funcionara    por que no lo pude probar 

[KARINA83]

buenas tardes madrinita como puedo decirle al programa que:
si portb.1=0 , portb.2=0 y portb.0=1 ; nveces sea =  15 (por decir algo)
es que se me esta ocurriendo que nveces se pueda programar mediante dipswichts con 2 RB´s (se podria  nveces = 1 a 32 ?)

[firepic]

Bueno estuve de un viajecito y por eso no había vuelto... me alegra ver todos sus post! Karina, felicitaciones! Estás progresando muchísimo!
Y como siempre Sandrita, excelente trabajo! Qué alegría sigas lado a lado con el foro!     

Me veo tentado a dar un comentario sobre lo que pregunta Karina, pero creo que ella prefiere tu ayuda sandrita... así que, Karina, te dejo en las mejores manos. 

Pero seguiré el hilo a ver qué tal se desarrolla todo... ok un cordial saludo! 
Nos leemos! 

[sandra]

Anda  hijo mió no nos dejes solas que mira que yo no me las se todas  :?dos cabezas piensan mejor que una y tres  aun mejor asin que a participar que este  hilo no es exclusivo de  nadie.
Hay   esta niña me mete en cada lió  déjame pensar conectando neuronas haaaa ya  ta
La mejor solución es que conectes los  dipswichts   a un puerto de 8 bits por ejemplo el portb
Así le puedes dar un valor desde 0 hasta 255 milisegundos.
Aquí si ya estas entrando a lo bueno
Te  pongo el tip

Portb=nveces ‘ aquí le estas diciendo que lea el portb y lo que tenga lo ponga en  nveces si el dip esta a             
                       Todos a uno nveces  tendrá 255
De la otra forma no es factible aunque con el if también se pueden ase cositas estudia esto
If portb.0 =0 and portb.1=1 then
Bla
Bla
Endif

If portb.0=0 or portb.1=1 then
Bla
Bla
endif

nota:   Tendrás que probar pero creo que lo correcto es nveces =portb además que tendrás que tener cuidado por que una cosa es que lea los dip al arranque del programa y otra muy distinta que quieras poder cambiar el valor de los dip durante la ejecución del programa


Otra nota  esta niña me trae mareada   también si no quieres ocupar todo el puerto con los dip puedes leer únicamente la parte baja del puerto conectando los dip de rb0 a rb3 y lo lees así
Nveces=portb.lowbyte ‘ con esto le dices que te lea la parte baja

[firepic]

Gracias Sandrita, pues entonces por acá estaré en lo que pueda ayudar... aunque no creo que sea mucho en comparación con vos que ya tienes más experticia con esto de los micros... pero estoy para servir...
A ver qué responde Kari de lo que le has explicado excelentemente.
Saludos! 

[KARINA83]

perdon por dirigirme solamente a mi madrina SANDRITA perdon,perdon.
quien quiera dar su opinion es totalmente bienvenida (asi tengo mas tela de donde cortar).
adelante TODAS Y TODOS enpapenme TODOS con sus conocimientos por favoooooorrrrrrr.
gracias



**********************definicion de variables*******************
 x var Byte  'variable del for
 nveces var byte
 
buffer_boton1 var Byte  ' buffer usado por el boton



 
'************** defino alias a los diferentes puertos/pines***************
Symbol boton1 = PORTB.0     'boton1 es mi unico pulsador
symbol RB1 = PORTB.1       
symbol RB2 = PORTB.2      'BR1,RB2 Y RB3 son mis 3 dip sw
symbol RB3 = PORTB.3
 
Symbol led = PORTB.7      'defino LED en el puerto PORTB.7
 
'**********************definicion de puertos************************
TRISB = %00001111         'defino entrada de botones y todas salidas
PORTB = 0                 ' pongo el puerto a "0"
 
'*********************pongo las variables a "0"**********************
x=0        'inicio todas las variables en "0"


'*************************comienzo del programa********************

       
inicio:
       pause 10
     
       Button  boton1,1,40,5,buffer_boton1,1,sw   
       GoTo inicio
sw:
    WHILE 1=1
     if  RB1=0 and RB2=0 and RB3=0 and boton1=1 then   
       nveces=1
       gosub titilar
       endif
     if  RB1=0 and RB2=0 and RB3=1 and boton1=1 then   
       nveces=2
       gosub titilar
       endif
     if  RB1=0 and RB2=1 and RB3=0 and boton1=1 then   
       nveces=3
       gosub titilar
       endif
      if  RB1=0 and RB2=1 and RB3=1 and boton1=1 then   
       nveces=4
       gosub titilar
       endif
      if  RB1=1 and RB2=0 and RB3=1 and boton1=1 then   
       nveces=5
       gosub titilar
       endif
      if  RB1=1 and RB2=0 and RB3=1 and boton1=1 then   
       nveces=6
       gosub titilar
       endif
      if  RB1=1 and RB2=1 and RB3=0 and boton1=1 then   
       nveces=7
       gosub titilar
       endif
      if  RB1=1 and RB2=1 and RB3=1 and boton1=1 then   
       nveces=8
       gosub titilar
       endif
       WEND
         
             
 
titilar:
     For x=1 To nveces        'enciendo  nveces el led
           led = 1
           pause 500
           led = 0
           pause 500
           Next
           x=0
           
           goto inicio   'si dejo este goto no es nesesario apagar y encender
                         'todo el dispositivo cuando cambie los dip sw de posicion,
                         ' si lo quito tendria que apagar el circuito y volver
                         ' a encenderlo para que el cambio de los dip sw surtan efecto
End     




listas mis orejotas grandotas y coloradas para mas jalones

[firepic]

Buen trabajo Kari, felicitaciones!
Seguidamente algunas observaciones:

1- Esta parte del código:

titilar:
     For x=1 To nveces        'enciendo  nveces el led
           led = 1
           pause 500
           led = 0
           pause 500
           Next
           x=0
          
           goto inicio   'si dejo este goto no es nesesario apagar y encender
                         'todo el dispositivo cuando cambie los dip sw de posicion,
                         ' si lo quito tendria que apagar el circuito y volver
                         ' a encenderlo para que el cambio de los dip sw surtan efecto
End     

Ya esto te lo había mencionado sandrita anteriormente, ese "goto inicio" no debería ir allí. Te explico a continuación.
"Titilar" es una subrutina que se ejecuta y luego al final deberías añadir un "return", para que vuelva al sitio del programa de donde fue llamada. Esto porque estás usando -correctamente- el "gosub titilar". O sea, se espera que entre en titilar y salga, así que si colocas el return, el "goto inicio" nunca se ejecutará. Entonces quedaría así:

Código: FreeBasic

1. titilar:
2.      For x=1 To nveces        'enciendo  nveces el led
3.            led = 1
4.            pause 500
5.            led = 0
6.            pause 500
7.            Next
8.            x=0
9.      return

Ahora bien, aquí hay una acotación importante que debe hacerse. El verdadero ciclo infinito que ejecutará el micro, es este:

Código: FreeBasic

1. inicio:
2.        pause 10
3.      
4.        Button  boton1,1,40,5,buffer_boton1,1,sw  
5.        GoTo inicio

El detalle es que cuando "Button" detecta que se presiona el pulsador, salta a "sw", y esto es un salto incondicional, no una llamada a subrutina como en el caso de "titilar". Entonces el "goto inicio" debería ir al final de "sw". Así:

Código: FreeBasic

1. inicio:
2.        pause 10
3.      
4.        Button  boton1,1,40,5,buffer_boton1,1,sw  
5.        GoTo inicio
6. sw:
7.     'WHILE 1=1
8.      if  RB1=0 and RB2=0 and RB3=0 and boton1=1 then  
9.        nveces=1
10.        gosub titilar
11.        endif
12.      if  RB1=0 and RB2=0 and RB3=1 and boton1=1 then  
13.        nveces=2
14.        gosub titilar
15.        endif
16.      if  RB1=0 and RB2=1 and RB3=0 and boton1=1 then  
17.        nveces=3
18.        gosub titilar
19.        endif
20.       if  RB1=0 and RB2=1 and RB3=1 and boton1=1 then  
21.        nveces=4
22.        gosub titilar
23.        endif
24.       if  RB1=1 and RB2=0 and RB3=1 and boton1=1 then  
25.        nveces=5
26.        gosub titilar
27.        endif
28.       if  RB1=1 and RB2=0 and RB3=1 and boton1=1 then  
29.        nveces=6
30.        gosub titilar
31.        endif
32.       if  RB1=1 and RB2=1 and RB3=0 and boton1=1 then  
33.        nveces=7
34.        gosub titilar
35.        endif
36.       if  RB1=1 and RB2=1 and RB3=1 and boton1=1 then  
37.        nveces=8
38.        gosub titilar
39.        endif
40.        goto inicio       '<<<< Aquí
41.        'WEND

De esta forma, en caso que se detecta que es presionó el pulsador, salta a "sw" y vuelve al ciclo infinito original.

2- Fíjate que en el código anterior he comentado el "WHILE 1=1". Me parece que no debería ir allí, pues ese código no es un ciclo infinito, se ejecuta una sola vez para monitorear el estado de los switchs. Si quieres implementar lo que te mencionó sandrita al principio, de cambiar goto por ciclos, puedes implementarlo en el ciclo inicial del programa, aquí:
 

Código: FreeBasic

1. inicio:
2.        while 1=1
3.            pause 10
4.            Button  boton1,1,40,5,buffer_boton1,1,sw  
5.        wend

De esa forma puedes evitarte un goto. Esperaré el comentario de sandrita, ella tiene más experiencia con el basic, yo no estoy seguro de si esa forma de usar el while es correcta, aunque la lógica parece indicar que sí. Ultimamente trabajo en C y se usa "while(1)" pero ya eso es otra cosa.

3- Los if con tantas operaciones lógicas AND te hacen el programa muy ineficiente y poco óptimo. Yo aconsejaría que leas el puerto y lo guardes en una variable, luego a esa variable le apliques una máscara para evaluar sólo los bits que te interesan... en tu caso estás usando RB1, RB2, RB3... entonces podrías hacer algo así como:

Código: FreeBasic

1. valor_puerto=portb
2. valor_puerto=valor_puerto+%11110001 ' guardas el valor de los tres bits que te interesan, lo demás será 1.
3.                                                      ' estas dos líneas las colocarías al inicio de "sw", antes de los if.
4.  
5. if(valor_puerto=%11110011) then         ' aquí por ej. estoy evaluando si RB1=1
6. '
7. 'codigo
8. '
9. endif

4- En todos los if de la rutina "sw" tienes la evaluación boton1=1, lo cual también es repetir código innecesariamente.
Creo que es mejor colocar esa evaluación en un if macro que anide al resto de las evaluaciones para los switchs.
Algo así:

Código: FreeBasic

1. sw:
2. if(boton1=1)then
3. '
4. '
5. '
6. 'todas las evaluaciones de los switchs
7. '
8. '
9. '
10. '
11. endif
12. goto inicio

Creo que esos son todas mis observaciones. Disculpen lo largo, pero quise ser lo más claro posible.
Un cordial saludo a todos!
Nos leemos! 

[sandra]

firepic Me quito el sombrero magistral explicación te as tirado las musas de la programación te han inspirado.
Karina  mal muy  muy  mal  hay que  replantear todo el programa 
La forma correcta es leyendo un puerto del pic  un puerto del pic es un registro de 8 bits por tanto  podemos leer o escribir en el .
Para que me entiendas tómalo como si fuera un contador binario de 8 bits (ojo no lo es pero para que se entienda vale) si  yo pongo como entrada el portb  y luego pongo el bit 0 asea ra0 a 1 y luego leo el portb  que tengo  00000001 asea un 1 en decimal
00000001=1
00000010=2
00000011=3
Se entiende
Lo de los  and y or solo  fue para que supieras que se pueden estructurar condiciones más complejas que en algunos casos funcionan bien por ejemplo cuando programas una alarma.
Pero en este caso no es el camino.
Ahora este hilo esta abierto a todo el que quiera participar lo comencé con mucho cariño para mi paisana por que no quiero que sufra lo mismo que yo  cuando comencé  pero
También sabía que muchos como ella que  recién comienzan   entrarian a leer los poco o mucho  que podamos aportar y no me equivoque llevamos 500 visitas