Enhorabuena... Y mi primer proyecto...

[joebar]

... a todos por esto fabuloso foro, hace unos años hice mis pinitos con los PIC's pero no en Basic, y eso me obligó a retirarme ya que no conseguía mucho, ahora que os he encontrado me he animado a retomar el tema, ya conseguí los programas necesarios (Proteus, Mikrobasic, etc., etc.) y ya tengo en mente mi primer programa (por necesidad) se trata de un temporizador programable en minutos y segundos, representando tanto el tiempo seleccionado como el tiempo regresivo en LCD, por lo que os voy a necesitar  ... pero antes quisiera presentaros el planteamiento de como lo quiero hacer para que me digáis si es posible o no, si me voy a encontrar con muchos problemas o simplemente no se puede realizar tan "sofisticadamente", desde luego creo que es un gran reto pues a priori es muy ambicioso, con muchos detalles a tenr en cuenta y una presentación en LCD completita, el LCD será un 4x20, he elegido este porque ya lo tengo (retroiluminado), la aplicación como he mencionado es un temporizador con aplicación fotográfica, para hacer fotos de larga exposición...

En fin no os quiero aburrir, repetir mis felicitaciones por el gran trabajo que hacéis y la ayuda que prestáis, aquí se aprende... 

En breve os pondré con más detalles lo que pretendo hacer y espero recibir vuestra opinión...

Saludos.

[LordLafebre]

Hola:

Pues yo tengo en mente ahora algo como eso, quiero hacer un temporizador para tocar un timbre para cambio de hora en un colegio, pero yo programare con Protón +, se algo de MKB y te puedo ir orientando en algo asi como el resto de compañeros, asi que comentanos mas, y que es lo que tienes por aqhora para partir de alli. 

[navaismo]

Hola amigos que les parece este timer hecho de retazos de otros programas que he hecho en PBP.

aqui el codigo en PBP por supuesto se puede pulir y optimizar y agregar lo que quieran, pero les puede dar una idea.

Código: C#

1. '****************************************************************
2. '*  Name    : timer de pedaceria.pbp                            *
3. '*  Author  : Max E. Reyes Vera Juárez                          *
4. '*  Notice  : Copyright (c) 2006 Protegido por leyes de Autor   *
5. '*          : All Rights Reserved                               *
6. '*  Date    : 23/10/2006                                        *
7. '*  Version : 1.0                                               *
8. '*  Notes   :                                                   *
9. '*          :                                                   *
10. '****************************************************************
11.  
12. DEFINE LCD_DREG   PORTD
13. DEFINE LCD_DBIT   4
14. DEFINE LCD_EREG   PORTC
15. DEFINE LCD_EBIT   4
16. DEFINE LCD_RSREG  PORTC
17. DEFINE LCD_RSBIT  5
18.  
19. ADCON1 = 7
20. OPTION_REG.7 = 0
21.  
22. TRISA = 255
23. TRISB = 255
24. TRISC = 0
25. TRISD = 0
26.  
27.  
28. H VAR PORTB.0
29. L VAR PORTB.1
30. ENTER VAR PORTB.2
31. EXIT  VAR PORTB.3
32. x  VAR PORTC.0
33.  
34. TIME    VAR WORD
35. T       VAR WORD
36. SL      VAR WORD
37. RL      VAR BYTE
38. TL      VAR BYTE
39. I       VAR WORD
40.  
41.  
42. INICIO:
43.   TIME=0
44.   TL=0
45.   T=0
46.   I=0
47.   PORTC=0
48.  LCDOUT$FE,1,"Ingrese el  "
49.  LCDOUT$FE,$C0,"Tiempo en minutos   "
50.  GOSUB PAUSA
51. GOTO INICIO
52.  
53. MASTIEMPO:
54.  IF EXIT=0 THEN BREAK
55.  IF L=0 THEN
56.   GOSUB MENOSTIEMPO
57.  ENDIF
58.  
59.  IF H=0 THEN
60.   PAUSE 130
61.    IF H=0 THEN
62.     TIME=TIME+1
63.      TL = TIME
64.     LCDOUT$FE,1,"TIEMPO DE:"
65.     LCDOUT$FE,$C0,"    ",DEC TL,"MINs"
66.     IF L=0 THEN MENOSTIEMPO
67.    ENDIF
68.  ENDIF  
69.  
70.  IF TIME>=500 THEN
71.    TIME=0
72.  ENDIF
73.  
74.  IF ENTER=0 THEN
75.  Tl=(TIME*60)
76.  GOTO DOIT
77.  ENDIF
78. GOTO MASTIEMPO
79.  
80. MENOSTIEMPO:
81.  IF EXIT=0 THEN BREAK
82.  IF H=0THEN
83.   GOTO MASTIEMPO
84.  ENDIF
85.  
86.  IF L=0 THEN
87.   PAUSE 130
88.    IF L=0 THEN
89.     TIME = TIME - 1
90.     TL = TIME
91.     LCDOUT$FE,1,"TIEMPO DE:"
92.     LCDOUT$FE,$C0,"    ",DEC TL,"MINs"
93.     IF H=0 THEN MASTIEMPO
94.    ENDIF
95.  ENDIF
96.  
97.  IF TIME <0 THEN
98.   TIME = 500
99.  ENDIF
100.  
101.  IF ENTER=0 THEN
102.  TL=(TIME*60)
103.  GOTO DOIT
104.  ENDIF
105. GOTO MENOSTIEMPO
106.  
107. PAUSA:
108.  FOR I=0 TO 20
109.   IF H=0 OR L=0 THEN
110.    GOTO MASTIEMPO
111.   ENDIF
112.   PAUSE 100
113.  NEXT I
114. RETURN
115.  
116. DOIT:
117.  
118.  FOR I=0 TO TL
119.   t=((TL-i)/60)+1
120.   LCDOUT $FE,1,"TIEMPO DE: ",DEC TIME," Mins"
121.   LCDOUT $FE,$C0, "RESTANTE:", DEC T, "Mins"
122.   IF EXIT=0 THEN BREAK
123.   PAUSE 778
124.  NEXT I
125.  
126.  LCDOUT$FE,1,"HECHO!!!!"
127.  HIGH PORTC.0
128.  PAUSE 1500
129. GOTO INICIO
130.  
131. BREAK:
132.  PORTC=0
133.  TIME=0
134.  i=0
135.  T=0
136.  TL=0
137. GOTO INICIO
138. END

y una screen de como se ve




Aun tiene bugs por ejemplo se alcanza a ver durante unos segundos un numero superior al que es, y la pausa todavia no esta ajustada para el minuto pero lo pueden arreglar facil.

Saludos

[LordLafebre]

Hola:

En mi caso utilizare un RTC porque debo llevar el registro de las horas, a ver si para mañana subo el esquema que voy a utilizar.

[Mario]

Oye Lord,

¿se puede simular el DS1307 o DS1302 en Proteus?

[LordLafebre]

Hola:

Claro que se puede, el DS1307 tengo en la version 6.9 SP3, en la 6.7 solo estaba el DS1302, solo he simulado con el DS1307 y funciona bien.

[jjpic77]

bueno  aqui les mando una imagen de un reloj usando el ds1302 el pic16f84 un poco rudimentario por lo que uso display de 7 segmentos pero bueno algo es algo espero que les agrade tambien le mando el hex para que lo prueben por. ah estoy usando el 7448 y el 74138 adicionales
                                            espero que les sirva

[LordLafebre]

Hola:

Gracias por los archivos jjpic77 es lindo ver que alguien se estrena en el foro compartiendo algo con los demas, de verdad muchas gracias...!!! 

[joebar]

Hola compañeros, estoy intentando probar el circuito de navaismo, ¿alguien me puede decir como copiar el programa aqui publicado y pegarlo en mi editor (microcode)?, se que puede ser una pregunta tonta... pero no se como llevarmelo, un copiar/pegar no lo hace correctamente, ya que me incluye todo el codigo en una sola línea ???, porfa una ayudita...

Saludos.

[joebar]

Bueno me contesto yo mismo... seleccionamos todo el codigo y pegamos en word, grabamos como "sin formato.txt", renombramos el nombre cambiando la extensión "txt" por "pbp" y listo, ya se puede abrir con el Microcode...

Saludos.

[joebar]

A ver... tengo dudas para mi preocupantes, después de leer bastante he localizados todo tipo de programas para el desarrollo de aplicaciones con PIC's y programarlos en Basic (que es el lenguaje de programación que más he usado), pero a la hora de probar dichos programas mediante ejemplos para ir acostumbrandome a ellos, resulta que a la hora de escribir el programa, depurarlo y compilarlo me dan errores de versiones y otros, igual o similar errores me ocurre con el Proteus, os ruego me orientéis a que programas utilizar de la lista que más abajo especifico (que es lo que tengo) y así descartar programas que solo me marean, mi intención es escribir en Basic, compilar y simular para después programar el PIC y como no disfrutar  ... Espero vuestra ayuda para empezar a practicar y comenzar mi proyecto. Muchas gracias por adelantado...

Lo que tengo...

PIC Basic Pro 2.46 (que incluye el MicroCode Studio 2.1.0.6)
Proton Plus 30 Ide SE
Otro Proton Pl (que incluye el PicBasic Plus 2.1.3)
Mikrobasic 5.0.0.0 (Mikroelectronica)
Proteus Professional 6.6 SP1 (ISIS, ARES, Gerbit)

Saludos.

[navaismo]

Pues todo lo que tienes es excelente para hacer lo que quieras.

Sobre los errores de versiones, con el PBP no debe de haber problemas siempre y cuando las instrucciones que uses no esten muy nuevas o muy viejas por ejemplo creo que la instruccion PEEK, POKE ya no es valida para El PicBasic Pro pero si para el PicBasic.

Para ver un ejemplo de PBP en Proton tendrias que reeditarlo ya que este tiene una sintaxis diferente.

Lo de los ejemplos del Proteus es muy comun, ya que no todos tenemos la misma version y no soportan versiones mas nuevas o viejas de los DSN que tu ISIS maneja. Pero se soluciona haciendo tu el esquematico.

En MKB existen muchos muchos bugs, como es que si copias y pegas un codigo puede que no te lo compile, solucion teclearlo uno a uno. Hay registros que no reconoce, A veces aunque compile bien el programa no funciona. (como la libreria de LCD a 8 bits).

Pero por lo demas si le dedicas un poco de tiempo a reeditar para cada compilador todo ira marcahndo muy bien.