interesante (proyecto con pic y led)

[sandra]

Mi padawan ha sido absorbida por el lado oscuro

[sandra]

Skualo mira si esta mal tu desarrollo comenzando por la línea ALL_DIGITAL=true  esta línea  configura como puertos digitales  a los puertos analógicos cuando el PIC cuenta con ellos  el f84 no los tiene.
Checate el ejemplo que viene en el manual del protón funciona a la perfección
Checalo y luego comentas si tienes dudas

[KARINA83]

perdon por no haberme reportado antes  ya saben como es esta vida  cuando crees que los problemas estan lejos en realidad esta a la vuelta de la esquina
( tuve que hir a ver a mi abuelo que esta muuuyyyy enfermito pero ya estoy aqui).
por favor les ofresco mil disculpas y no me he pasado al lado oscuro ni tampoco quiero que piensen que soy mala agrecida.
me perdona madrina? me perdonan todas y todos?
 

[firepic]

Kari, de mi lado no hay nada que perdonar. Todos tenemos ocupaciones y problemillas de vez en cuando. Ojalá que tu abuelo se recupere pronto!    Y qué fino que regresaste por aquí! Es bueno tenerte de nuevo en el foro! 
Un cordial saludo, nos leemos! 

[sandra]

Padawan  no te preocupes todos aprendemos algo de los demás, y yo peque de impaciencia  aunque un grito diciendo que ibas a estar off lain no abría estado mal.
Pues bien ponte al día con los ejemplos nuevos el ejemplo del monedero te va interesar por que es más o menos lo que querías hacer.
Los boy a dejar unos días la salud me ha pegado una mala pasada  y me han encargado varios estudios así que estos días serán de clínica y laboratorio, como los odios siempre e tenido fobia al color blanco y el olor a hospital.
Espero que esto no sea más que un mal rato.
Asta pronto 

[firepic]

Espero que te mejores pronto sandrita! Para tenerte de vuelta por aquí!
Cuídate mucho, saludos! 

[KARINA83]

sandrita que te mejores pronto y ojala ( o no? ) que esa enfermadad sea de esas enfermedades que a los pocos meses hay que ponerle nombre 
y pues bien  aqui les tratare de comentar el ejemplo de sandra linea a linea a ver que tal quedo espero me corrijan en donde este mal.




Device 16F84A                            'el micro que se esta utilizando
XTAL 4                                       'frecuencia del oscilador
TRISA=%00000001                     'configuracion del puerto a : 1=entradas y 0=salidas (recomiendan que los pines que no se utilicen
                                                 'hay que configurarlos como salidas)
PORTA=%00000000                    ' ponemos en cero todo el ptoa
TRISB=%00000000                     'configuracion del ptob (en este caso todo salidas)
PORTB=%00000000                    ' ponemos en cero todo el ptob


Symbol pulso=PORTA.0               'pomemos un alias a ra0(pin 17 de pic16f84a)este pin en adelante se llamara pulso
Symbol buzer=PORTA.1              'ponemos un alias a ra1 (pin 18 )este pin se llamara buzer
Symbol digito=PORTB                 'ponemos un alias a todo el puertob (pin´s 6,7,8,9,10,11,12 y 13) todo el pto se llamara digito
Dim suma As Byte                      'suma sera una varible del tipo byte (puede ser de 0 a 255)
suma=0                                     'ponemos en cero la variable suma
Dim numero As Byte                   'numero sera una variable del tipo byte
numero=0                                  'ponemos en cero la variable numero

loop:                                          'nombre de la etiqueta
If pulso=0 Then                          'si pulso (el pin 17) es igual a cero entonces
Inc suma                                   'incrementa la variable suma
numero=suma                           'la variable numero es igual a la varible suma
LookUp numero,[63,6,91,79,102,109,124,7,127,103,0],digito         'le da un valor constante(63,6,91,79....) a la variable numero y lo
                                                                                                'muestra en digito (puerto b) 
Sound buzer,[10,10]                   'produce un sonido de x nota(frecuencia) y x tiempo ([10,10])y lo presenta por ra1 (pin 18)
buzer=0                                     'pone a cero buzer
If suma >= 9 Then                      'si la variable suma es superior o igual a 9 entonces
suma=0                                     'suma tomara el valor de cero
numero=0                                  'y tambien la variable mumero tomara el valor de cero
EndIf                                         'se cierra el comando if...then
While pulso=0                            'ejecuta declaraciones mientras la condición sea verdadera en este caso si pulso (ra0 pin 17) es cero
DelayMS 1                                 'entoces hay una pausa de 1 milisegundo
Wend                                        'cierra el comando while...wend
EndIf                                        'cierra el comando if...then
GoTo loop                                 'va a la etiqueta loop

End                                           'fin del programa



saludos 

[firepic]

Qué tal Karinita! Me parece que has hecho un buen trabajo! 
Por mi parte sólo aclararía un poco más el comentario de la función lookup. Por ejemplo: ¿por qué esos valores? ¿de qué depende la asignación? Cuestión de hacer un poco más entendible la cosa. Pero creo que lo demás lo veo muy bien.
Un saludote, te cuidas! 

[KARINA83]

hola  por fin despues de varios dias con el foro que se cae a cada rato pude postear
gracias firepic por tus obsevaciones con respecto lookup pues bien lo endiendo mas o menos asi:


LookUp numero,[63,6,91,79,102,109,124,7,127,103,0],digito         'le da un valor constante(63,6,91,79....) a la variable numero y lo
                                                                                                'muestra en digito (puerto b)
                                                                                                 estos numeros en binario encienden los segmentos el el display por ejemplo
                                                                                                  el 6 = 00000110 los unos encienden los segmentos  B y C  que juntos forman el uno
                                                                                                  el 91 = 01011011  ==================== A,B,G,E y D ==========  DOS
                                                                                                  etc,etc............


(criticas y comentarios bienvenidos)



saludos y que sandrita  haya mejorado (hechale ganas madrina)
bye 

[sandra]

Padawan  así es ahora modifica el comentario en el ejemplo para que quede mas claro así también date cuenta que yo no utilizo el comando buton  para el monedero .sino  el if con una pequeña rutina anti rebote con while seria interesante que quedara comentado en el ejemplo.
Vas muy bien solo hay que corregir unos detalle que ya mencione

[sandra]

Pues bien  resulta que mi padecimiento no será bautizado no se si es bueno o malo así que para no pensar prefiero seguir con el ejemplo anterior. Lance la idea de que con el monedero se podría seleccionar una bebida, según el precio y como nadie lo desarrollo pues lo ago yo, insisto esto es un desarrollo  súper básico. Este ejemplo no toma en cuenta entre otras cosas que pasa si se comete un error al intentar seleccionar una bebida, con un precio distinto al que le fue asignado.
El procedimiento es el siguiente, existen 3 pulsadores lata1, lata2, lata3. En el monedero se ingresa el valor de la bebida deseada., y continuación se pulsa el botón de la lata que elegimos, el programa confirma con un sonido que él  numero de monedas y la lata que seleccionamos corresponden reinicia contador, portb  y comienza el ciclo por siempre jamás

[sandra]

Padawan  ya tienes otro ejercicio para seguir practicando cabe aclarar que no te conformes con entender los ejemplos modifícalos en base a las fallas que tengas es como se aprende.
Hay varias maneras de atacar un problemas mas adelante pondré un ejemplo de la maquina  expendedora resuelto desde otro Angulo para que quede mas claro

[KARINA83]

hoooolaaaaaaa a todos y en especial a mi madrina sandrita .
que barbara que ejemplasos pones sandrita  ahora mismo estoy tratando de hacerlo en un pic16f877 para que por los otros puertos se puedan activar los motores
o solenoides para que entregue las latas (aver como me sale) y mas botones para mas latas y precios en cuanto lo termine y pruebe lo posteo(por que ya extraño mis jalones de orejas  )tal vez me tarde unos dias pues tengo algo de trabajo(2 televisores  sony que me estan volviendo loquita  .
madrina: un abrasototote y ya mejorate todo es mental...... ahumm,ahumm.........
haaaaa y a todos los que lean estos pots que dejen  sus opiniones
abrazos y besos 

[KARINA83]

hola a todas y todos epero no se molesten por salirme un poquitin de los ejemplos de sandrita pero me urge solucionar este problemilla.
pues resulta que me mandaron llamar a la escuela de mi hermano que es una secundaria yo pense que me hiban a dar una queja pero no, resulta que que el chamaco les dijo a los profesores que su hermana sabia algo de electronica y quieren que les haga un dipositivo para un cocurso de preguntas y respuestas,
es decir botones y leds, el dispositivo consta de 12 leds y 3 botones  los botones se distribuyen asi :  boton para que el profesor lo presione cuando termine de hacer la pregunta .boton1 es presionado si el alumno numero 1 sabe la respuesta,  boton2 es presionado si el alumno numero 2 sabe la respuesta.
los 10 leds comiensan a encerder uno a uno cuando el boton del profesor es activado
si alguno de los 2 alumnos activa su boton (boton1 o boton2) la secuencia se detiene  y se enciende el ledgana1 o ledgana2 y asi se queda hasta que el boton del profesor es nuevamente activado y se repita el proceso.
aqui les dejo el codigo que he echo pero no puedo  interrunpir el proseso de secuencia .
espero me ayuden .




  Device = 16F877A
  XTAL = 4
 
 
       
 
'**********************definicion de variables*******************

 Dim buffer_boton As Byte  ' buffer usado por el boton
 Dim buffer_boton1 As Byte
 Dim buffer_boton2 As Byte
 Dim time As Word
 Dim x As Byte


 
'************** defino alias a los diferentes puertos/pines***************

Symbol boton = PORTD.0
Symbol boton1 = PORTD.1
Symbol boton2 = PORTD.2
Symbol relay = PORTA.0
Symbol ledgana1 = PORTA.1
Symbol ledgana2 = PORTA.2
Symbol led = PORTD.3
Symbol led1 = PORTD.4
Symbol led2 = PORTB.0
Symbol led3 = PORTB.1
Symbol led4 = PORTB.2
Symbol led5 = PORTB.3
Symbol led6 = PORTB.4
Symbol led7 = PORTB.5
Symbol led8 = PORTB.6
Symbol led9 = PORTB.7

'**********************definicion de puertos************************
TRISA = %00000000
PORTA = 0
TRISB = %00000000         
PORTB = 0
INTCON = %00100000                 
TRISE = %00000000
PORTE = 0
TRISC = %00000000
PORTC = 0
TRISD = %000000111
PORTD = 0
'*********************pongo las variables a "0"**********************




'*************************comienzo del programa********************
inicio:
           
            DelayMS 10
       
          Button  boton,1,40,5,buffer_boton,1,sec
'          Button  boton1,1,40,5,buffer_boton1,1,inter1
'          Button  boton2,1,40,5,buffer_boton2,1,inter2
          GoTo inicio
         
'inter1:         
         
'         on interrupt goto  nivel1
       
'inter2:
                 
'        enable  interrupt sec
'       gosub nivel1a     
'nivel1:
       
'       ledgana1 = 1
       
     
       
       
'nivel1a:
       
'      ledgana2 = 1   
         



     
                                                                   
     
'GoTo inicio           
     
 


         
sec:
        PORTA=0
        PORTB=0
        PORTD=0   
        time = 2000
       
       
         relay = 1
         DelayMS time
   
         led = 1
         DelayMS time
           
         led1 = 1
         DelayMS time
           
         led2 = 1
         DelayMS time
           
         led3 = 1
         DelayMS time
           
         led4 = 1
         DelayMS time
         
         led5 = 1
         DelayMS time
         
         led6 = 1
         DelayMS time
         
         led7 = 1
         DelayMS time
         
         led8 = 1
         DelayMS time
         
         led9 = 1
         DelayMS time
         relay = 0
         GoSub delay
         
delay:         
     
       
           For x=0 To 10     
           PORTB = 255
           PORTD = 24
           DelayMS 200
           PORTB = 0
           PORTD = 0
           DelayMS 200
           Next         
         
         GoTo inicio
 
     

End




saludos   

[sandra]

Hay  hija mía  como te metes en líos esto va hacer un poco mas complicado empezando por que no entiendo bien el proceso que intentas.
1 porque el profesor tiene que apretar un botón por ejemplo en los programas de concurso únicamente los concursantes activan el botón.
2  porque los diez leds deben comenzar a encender uno a uno.
Mientras déjame checar haber que encuentro en tu programa y a ese chamaco tápale la bocota