interesante (proyecto con pic y led)

[sandra]

listo ya esta correjido
nuevamente gracias 

ok creo que me emocione antes de tiempo boy a revisar el programa a profundidad porque estamos quedando mal con el súper master 

[KARINA83]

pues no se ya probe en la vida real el programa y funciona por demas perfecto.
ahora tambien lo probe sacando esa lineas de alli (las probe en varios lugares ) y no funciona igual es decir no se detiene en el led indicado,se detiene brincando uno mas. popr ejemplo si se preciona cuando va en el munero 4 ,se enciende hasta el 5.
no se,no se .
yo como que veo que no se puede quedar colgado por que siempre al final se va a main.
no se, no se    esta impotencia que siento me estresa y me deprime.
por que por mas que busco y leo no encuentro nadaaaaaa.
saludos 

[dogflu66]

En la simulación del programa que puso navaismo no observe ese fallo, de todas formas te recomiendo que definas sobre papel lo que quieres que haga el programa y lo realices utilizando los nuevos conocimientos, sin usar goto ni delay, ya que seguir con un programa tan mal estructurado para serte sincero me da pereza y a mi entender no progresas en la estructuración del código que es fundamental. De esta forma vas cambiando el chip hacia una estructura de programación básica mas acertada que con el tiempo te permitirá añadirle tus propias particularidades y manías.

[sandra]

Animo karina no te desanimes en todo lo que hemos visto en este hilo tienes lo necesario para que tu programa funcione.
Todo esto es cuestión de practicar y coger experiencia si  para ti tu programa funciona bien pues móntalo y con el tiempo empezaran a aparecer los errores que ahora no ves y es también una forma de aprender.

[KARINA83]

hola,hola pues nada que resulta que ya construi el dispositivo (nada de simulacion) y hasta ahora lleva 3 dias funcionando a la perfeccion cabe mencionar que no lo he apagado para nada y pienso apagarlo hasta el domingo por la noche y la verdad no creo que falle por que 72 horas encendido y no ha pasa nada ni se ha colgado ni se calienta ni nada     
esperemos hasta el domingo y les aviso como funciono el programa maaaal estructurado .
bye,bye 

[sandra]

Karina se que te hemos dado duro y que dan ganas de responder al menos una, pero siempre hay que hacerlo con bases y sobre todo la principal virtud de una persona es la humildad..
Como lo e mencionado siempre todos los que formamos parte de esta comunidad dedicamos parte de nuestro tiempo intentando ayudar a los demás, por lo cual no ganamos nada, mas que la satisfacción de retribuir un poco lo que este maravilloso foro nos a dado, la oportunidad de hacer amigos y en algunos casos mas que amigos hermanos, que aunque la mayoría de las veces nos separa un océano o un continente  para el corazón no hay distancias.
La razón de reiterarte en varias ocasiones que el programa tiene inconsistencias que en algún momento pudieran hacer que funcione erráticamente, o se cuelgue es por que así es. como te mencione estos detalles tal vez no los puedas ver ahora  pero ahí están  contéstame con sinceridad te atreverías a vender el programa que as echo??.
Te lo digo sin el afán de ofenderte  en mis inicios realice varios programas  que juraría funcionaban perfecta mente,  y  cuando los reviso me muero de la vergüenza  por que ahora puedo ver errores del tamaño de una montaña y que de haber instalado dicha aplicación ahora estaría en la cárcel por fraude u  homicidio in prudencial.
De alguna manera al tomarte como mi pupila me ciento responsable por el tono de tu respuesta así que pido una muy sincera y sentida disculpa  a todo aquel que con la única intención de ayudar se allá sentido lastimado u ofendido

[navaismo]

¿Como Sandrita? La respuesta de Karina al menos Yo no la veo ni ofensiva ni arrogante, creo que lo que intenta Kari es probar lo que ha hecho y con entusiasmo compartirlo con nosotros y creo que mas contigo. Para nada pienso que sea una burla o un reto solo que demuestra que por demas loco este el programa funciona como ella quiere.

Tienes mucha razon en las demas cosas que dices, sobre checar el programa, aprender a limpiar rutinas etc. Pero por ahora imagino y recuerdo el entusiasmo que significa hacer un programa tangible, que lleva 72 hrs conectado y funcionando como realmente lo esperaba. a poco no es casi orgasmico ver tu proyecto asi. Hace poco casi "mojo mi pantaleta" -es una expresion eh!!- por ver como pingeaba un PIC y el prog estaba medio mal pero jalo ya despues vino lo que tu dices limpiar la porqueria.

Pero hombre! perdon, mujer no seas tan dura con tu pupila, ya imagino como seras con tus hijos o tu novio sss :S

Saludos

[KARINA83]

uppps ofendi a halguien? si fue asi pido de la forma mas humilde me perdonen, pero no creo  que alla ofendido a nadie .ummmmm
tal vez aqui  " les aviso como funciono el programa maaaal estructurado " es que si en verdad  yo estoy conciente de que esta maaal estructurado
pero en la practica funciona  F E R F E C T A M E N T E con casi 90 horas ininterrupidas de funcionamiento.
y por el contrario yo estoy eternamente agradecida con todos ustedes y no me atreveria a ofender a nadie absolutamente a nadie.
como creen que voy a moder la mano de un(os) amigo(os).
gracias:
sandra
doppel
firepic
navaismo
dogflu66
en fin  a T O D O S en este foro
y cambiando de tema
 el domingo por la noche les aviso que paso con ese "programa mal estructurado"   perdon con ese programa
bye,bye 

[sandra]

 a poco no es casi orgasmico ver tu proyecto asi. Hace poco casi "mojo mi pantaleta" -es una expresion eh!!- por ver como pingeaba un PIC y el prog estaba medio mal pero jalo ya despues vino lo que tu dices limpiar la porqueria.

Pero hombre! perdon, mujer no seas tan dura con tu pupila, ya imagino como seras con tus hijos o tu novio sss :S

Saludos

Hermano cada quien es libre de tener sus orgasmos como mejor le parezca  y mojar lo que le de la gana aunque yo personalmente te recomendaría algo en algodón   y sin encajes.
Me enorgullece mucho que tengas la confianza de abrir tu corazón y contarnos tus intimidades tuyas de ti.
Nota: solo es broma por aquello de evitar los malos entendidos un abraso

De mi parte no hay problema reconozco que entendí mal la línea mencionada
Maaaaaal  estructurado

[dogflu66]

  , parece que esas dos palabrejas llegaron un poco mas lejos de su importancia real. El que un programa este mal estructurado no quiere decir que no realice su función correctamente, es sabido que si algunas rutinas no terminan de una manera determinada pueden agotar los recursos del sistema ya que no liberalizan memoria o simplemente no liberalizan recursos en general. En tu caso puede que el compilador que usas por características propias tenga una plantilla interna determinada que no permita la absorción de memoria de una de sus rutinas primitivas (recuerda que para nosotros un comando solo ocupa una línea pero internamente puede estar compuesto de muchas instrucciones maquina), pero aun que el programa funcione no deja de ser un uso incorrecto del comando. Y este tipo de recomendaciones no son mas que eso recomendaciones que normalmente se basan en fallos ya cometidos anteriormente por uno mismo y que lo que se intenta es abreviarte el periodo de aprendizaje evitándote curvas en el camino eliminado malos avitos que se adquieren rapidamente y se dejan muy lentamente.

Esto como mejor se ve es con ejemplos:

El modulo UART  de los PIC se utiliza para transferencia serie de datos, este modulo puede trabajar de forma independiente al PIC, cuando trabaja en modo Rx o recepción de datos tiene un pequeño búfer para almacenar los datos que esta recibiendo hasta que el PIC los lea y los procese, en principio no tiene que suceder ningún problema los datos que entran a su búfer el PIC los va sacando de el  y procesándolos de esta forma podríamos decir que hay buena sintonía entre PIC y modulo UART, podrían trabajar en teoría de esta forma indefinidamente. Pero el problema en este caso se tiene cuando los datos llegan al búfer en un momento determinado mas rápido de lo que el PIC los extrae,  esto provoca que el búfer se llene y la respuesta del modulo es la activación de un flag de error y el bloqueo del modulo en modo Rx, hasta que este error sea procesado por una rutina que nosotros programáramos que se en carga de detectar el fallo y corregirlo. Bien,  llegado a este punto podemos trabajar sin  necesidad de  implementar esta rutina y puede que no tengamos problemas nunca o puede que en un momento dado lleguen mas datos de los  que puede procesar el PIC y este modulo quede bloqueado quedando inutilizado nuestro canal de datos de entrada.

Otro ejemplo real, no hace tanto estuve trabajando con una plaquita que entre otras cosas detectaba pulsos en una de sus entradas y los cambiaba de medio transmitiéndolos a otra plaquita, pues cuado ya llevaba como 1 mes trabajando con ellas a punto de dar el visto bueno, resulta que observo que a los 255 pulsos exactos la placa empezaba a hacer cosas raras. Hay que tener en cuenta que lo pulsos eran muy esporádico tan solo algunos pocos a la semana y por supuesto era fallo de soft.  En fin no sé si con estos últimos párrafos aclaro algo o lo lió más.

En  mi tierra hay un refrán que dice “Hacer caso al maestro aunque este parezca tonto” y por supuesto lejos de ser maestro y espero lejos también de tonto.

[KARINA83]

hoooolaaaaa buenos dias a todas y todos  .
pues bien les cuento que que el dispositivo "chamaco bocon" funciono de las mil maravillas despues de casi 120 horas de funcionamiento ininterrupido   
y pruebas y bruebas y pruebas todas exitosas gracias a  todos ustedes .
dogflu gracias muchas gracias por tus consejos los tomare muy en cuenta.

 

[KARINA83]

haaaaaa se casi se olvidaba seria muy bueno que alguien le entrara al torito y pusiera algunos ejemplos de como decirle al micro que deje  lo que esta  haciendo y se valla a otra rutina.
ahora si bye bye y gracias por las lecciones tecnicas y de vida gracias mil   

[sandra]

Que paso karina  que tal si ese trompo te lo echas tu a la uña y entre todos vamos viendo

[dogflu66]

Versión del programa del juego para el Basic del PSI:

Código: Visual Basic

1. Define CONF_WORD = 0x3f09  'configuracion de bit
2. Define CLOCK_FREQUENCY = 4  'frecuencia de trabajo
3. '************* Adaptado by COS para PSI *************************
4. '******** Juego: Quien pulsa la tecla más rapido ****************
5. '****************************************************************
6. '*  Name    : UNTITLED.BAS                                      *
7. '*  Author  : KARINA RICO                                       *
8. '*  Notice  : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
9. '*          : All Rights Reserved                               *
10. '*  Date    : 08/09/2008                                        *
11. '*  Version : 1.0                                               *
12. '*  Notes   :                                                   *
13. '*          :                                                   *
14. '****************************************************************
15. 'device = 16f628a
16. 'reminders = False
17. 'Config intrc_osc_noclkout, _  'Internal Oscillator
18. 'wdt_off, _  'Enable watch dog timer
19. 'pwrte_on, _  'Enable power up timer
20. 'mclre_off, _  'Enable MCLR pin
21. 'boden_off, _  'Enable brown out detect
22. 'lvp_off, _  'Disable Low voltage programming mode
23. 'data_cp_off, _  'Disable data code protect
24. 'cp_off  'Disable code protect
25. 'reminders = True
26. 'watchdog = off
27. 'xtal = 4
28. '---------------
29. 'Define SIMULATION_WAITMS_VALUE = 1  'Ignora los valores de WaitmS
30. '---------------
31. AllDigital  'los pin como I/O digitales
32. TRISA = %00010110  'configura puerto A
33. TRISB = 0  'configura puerto B
34. PORTA = 0  'Estado pin de puerto A
35. PORTB = 0  'Estado pin puerto B
36. '---------------
37. Dim i As Byte  'contador luces de progreso de juego
38. Dim pausa As Word  'establece el tiempo de pausa
39. Dim x As Byte  'contador parpadeo luces de fin de juego
40. Dim tecla_off As Bit  'anula/permite lectura de teclas durante la pausa
41. Dim blink_off As Bit  'anula/permite parpadeo de led fin tiempo del juego
42. '---------------
43. Symbol prof = PORTA.4  'renombra el puerto
44. Symbol alu1 = PORTA.1  'renombra el puerto
45. Symbol alu2 = PORTA.2  'renombra el puerto
46. '---------------
47. main:
48.         tecla_off = 1  'activa lectura de teclas durante las pausas
49.         blink_off = 1  'activa el parpadeo de fin de juego
50.         If prof = 1 And alu1 = 0 And alu2 = 0 Then Gosub cont  'activa partida
51. Goto main
52. End                                              
53. '----Subrutinas---
54. '-----------------
55. cont:  'control trayectoria del juego
56.         i = 0
57.         PORTA = 0  'apaga luces de proceso de tiempo del juego
58.         PORTB = 0  'apaga luces de proceso de tiempo del juego
59.         pausa = 2000  'determina una pausa en mSeg.
60.         Gosub m_pause  'hace la pausa anterior, salto con retorno
61.         While i < 10  'bucle, se repite mientras i es menor que 10
62.                 Select Case i  'segun el valor de i, se toma una acción
63.                         Case 0
64.                                 PORTA.3 = 1  'enciende led menos significativo tiempo juego
65.                         Case 1
66.                                 PORTA.0 = 1
67.                         Case 2
68.                                 PORTB.0 = 1
69.                         Case 3
70.                                 PORTB.1 = 1
71.                         Case 4
72.                                 PORTB.2 = 1
73.                         Case 5
74.                                 PORTB.3 = 1
75.                         Case 6
76.                                 PORTB.4 = 1
77.                         Case 7
78.                                 PORTB.5 = 1
79.                         Case 8
80.                                 PORTB.6 = 1
81.                         Case 9
82.                                 PORTB.7 = 1  'enciende led más significativo tiempo de juego
83.                 EndSelect  'acota select case
84.                 pausa = 2000  'carga el tiempo a contar en el timer
85.                 Gosub m_pause  'hace pausa, salto con retorno
86.                 If alu1 = 1 Then Gosub eexit1  'pulsó jugador 1
87.                 If alu2 = 1 Then Gosub eexit2  'pulsó jugador 2
88.                 If i = 9 And blink_off = 1 Then Gosub blink  'si llegamos al ultimo case sin pulsar
89.                 i = i + 1  'contador control case y bucle
90.                 If blink_off = 0 Then i = 10  'termina bucle while
91.         Wend  'acota bucle While i
92. Return                                            
93. '-----------------
94. eexit1:  'al pulsar jugador 1
95.         PORTA.6 = 1  'activa led jugador 1
96.         tecla_off = 0  'anular lectura de teclas durante la pausa
97.         blink_off = 0  'anula blink
98.         pausa = 2000  'determina el tiempo de pausa
99.         Gosub m_pause  'hace pausa, salto con retorno
100. Return                                            
101. '-----------------
102. eexit2:  'al pulsar jugador 2
103.         PORTA.7 = 1  'activa led jugador 2
104.         tecla_off = 0  'anular la lectura de teclas durate la pausa
105.         blink_off = 0  'anula blink
106.         pausa = 2000  'determina la pausa
107.         Gosub m_pause  'hace la pausa, salto con retorno
108. Return                                            
109. '-----------------
110. blink:  'parpadeo led por fin del case, se agoto el tiempo de juego
111.         tecla_off = 0  'anular lectura de teclas durante la pausa
112.         For x = 0 To 10  'cabecera bucle
113.                 PORTB = 255  'luces indicadoras de tiempo de juego a on
114.                 PORTA = 9  'lices indicadoras dde tiempo de juego a on
115.                 pausa = 200  'determina una pausa
116.                 Gosub m_pause  'hace la pausa, salto con retorno
117.                 PORTB = 0  'luces indicadoras de tiempo de juego a off
118.                 PORTA = 0  'luces indicadoras de tiempo de jeugo a off
119.                 pausa = 200  'determina una pausa en mSeg.
120.                 Gosub m_pause  'hace la pausa, salto con tenorno
121.         Next x  'acota for x
122. Return                                            
123. '-----------------
124. m_pause:  'rutina de pausa especial, timer por soft + teclas
125. 'pausa = 1  'acorta el tiempo de la simulacion
126.         While pausa > 0  'mientras se de la comparacion, bucle
127.                 WaitMs 1  'delayms 1  'pausa, base de tiempos de referencia 1mSeg.
128.                 pausa = pausa - 1  'incrementa contador, lleva el tiempo
129.                 If tecla_off = 1 Then  'controla la lectura de teclas durante la pausa
130.                         If alu1 = 1 Or alu2 = 1 Then pausa = 0  'si es cierto termina while
131.                 Endif  'fin del if anterior
132.         Wend  'acota el while
133. Return  'retorna al programa                      
134. 'Fin

[sandra]

Pues bueno mi participación en este hilo con los ejemplos que había prometido queda pendientes asta que  tenga la posibilidad de armar un programador definitivo y estable
(pcb y toda la cosa) ya me arte de la maldita placa perforada
Y el proteus nunca me ha gustado así que  asta muy pronto (espero)