TODOPIC
Microcontroladores PIC => * PROYECTOS * => Mensaje iniciado por: IAO en 28 de Agosto de 2007, 19:46:55
-
Hola a todos.
Les comento que pensaba hacer un DataLogger con los componentes que describí en el encabezado de este mensaje.
La idea era recibir los datos en la calculadora HP50g.
He pasado más de tres meses en intentos de todo tipo.
Hice pruebas con RS232, con ADC0804, con la HP50g, con HyperTerminal, con VB.
La verdad de todo es que: me harté de esto.
Esta funcionando pero falta por terminar.
Les voy a pasar el Esquemático y el .asm para el Pic 16F84. Y otras cosas de VB, FreeBasic y HP50g.
Si alguien gusta hacer algo con esto, puede serguirlo. Yo no voy a perder un cabello más en esto.
En realidad se los queria dejar finalizado, pero que vaca gorda. Estoy demacrado y mi vida vale más que esto.
El domingo 26-08-2007 lo puse a funcionar.
Se los voy a pasar a pedazos. Hoy una cosas y mañana otras.
Aquí puedes bajarte el .asm y el .dsn para simular en proteus.
http://www.box.net/shared/brgensu732
Bueno, saludos afectuosos.
Bye('_')
-
Hola:
Sr. JC40: Saludos. :)
Si hay un poco de decepción, frustración y más. Acostarme a las 1:00 Am levantarme a las 4:00 Am por casi un més. Para darme cuenta que estoy
en el principio de todo y el avance fué poco. Es de lo peor. Bueno si me viera como estoy desbaratado con ojeras y sin dinero por dedicarme tanto a
algo que es solo para aprender y enseñar a otros, no tiene ningun otro fin.
Pero que más da. Debo hacer otras cosas, soy cabezadura. Si continuo sé que lo terminaré, pero al paso que voy quedaré como un cadaver. Que lo aproveche otro,
de verdad, tengo hasta taquicardia por la desesperación de terminarlo. Quiero estar en PAZ conmigo mismo es lo más sano. :-)
;_____________________________________________________________________________________________________________
Ok. Por otra parte les dejo aquí el código en FreeBasic de un programa que envía un array(arreglo) a la HP50g via serial y los 3 programas de
la HP50g que: Solicita los Datos, los Recibe, y los Grafica o Plotea como ustedes lo vean mejor.
Se que el gráfico generado en la HP50g es un tanto diferente al que se envió del programa , pero sirve para demostrar la idea principal que era:
generar con un programa la forma de una onda, transmitirla por rs232 y graficarla.
Aquí le coloco un par fotos:
http://bp1.blogger.com/_MjmgxJ7iCEk/Rq9OBt_iuqI/AAAAAAAAACQ/6ivmosygeGI/s1600-h/IMAG0001.JPG
http://bp3.blogger.com/_MjmgxJ7iCEk/Rq9kDN_iurI/AAAAAAAAACc/j1maGVoAeHU/s1600-h/IMAG0003.JPG
Aquí les coloco el código del programa en FreeBasic, me imagino que alguien más experimentado podrá pasarlo a VB.
Para VB creo que solo le haría falta hacer el FORM un par de botones y alguna otra cosilla más.
'============================================================
Dim ampl As Single 'Vpeak
Dim sample_rate As Integer 'samples/sec
Dim samples As Integer 'samples for entire waveform
Dim f_start As Integer 'start frequency in Hertz
Dim f_stop As Integer 'stop frequency in Hertz
Dim f1 As Single 'normalized f_start
Dim f2 As Single 'normalized f_stop
Dim pi As Double
Dim sweeptime As Single 'sweep time in seconds (Recorrido)
Dim a As Double 'intermediate calculation
Dim b As Double 'intermediate calculation
Dim index As Integer 'sample counter
Dim signal(index) As Double 'voltage for output to DAC driver
Dim key1 As String
'''-Set variables
pi = 3.1415927
f_start = 1000
f_stop = 5000
ampl = 1 '1 'for simplicity
sweeptime = 3 '0 '60 '3 'seconds
'''-Need enough samples at high end to get a reasonable sine wave
' assume 10 samples/cycle at f_stop
sample_rate = 1000 'f_stop * 10
'''-Multiply sample rate by sweep time to get total number of samples
samples = sample_rate * sweeptime
'''-Normalize start and stop frequencies
f1 = f_start / sample_rate
f2 = f_stop / sample_rate
'''-Calculate intermediate variables
a = 2 * pi * (f2 - f1) / samples
b = 2 * pi * f1
'''-Opens the Port COM1. Waits number 1 from HP50g.
'''-The parentheses are necessary.
Open Com ("COM1:9600,N,8,1,CD0,CS0,DS0,OP0") For Random As #1
Color 12
Print "Wait number '1' to begin"
key1 = Input$(1,#1)
If key1 = "1" Then
'''-Generate array of voltages that form a swept sine wave
For index = 0 To 10 '128 'samples - 1 '
signal(index) = ampl * Sin(a * index ^ 2 / 2 + b * index)
Print #1,signal(index), '<<-Print all array
Next index
Close #1
Else
End If
'''-To see the mathematical formula. (In graphics mode).
'''-They don't work together.
'screen 12
'xmax = 600 : ymax = 200
'For index = 1 To 128 'samples - 1 '
'signall = ymax/2- ampl * Sin(a * index ^ 2 / 2 + b * index /ymax)_
' *ymax/4 :color 10 'green color
'PSET (index,ymax+signall)
'Next index
'''-Add your code to send array signal(index) to your driver
'Print signal(index), '<<-Print all array here not worked
'PSET (index,ymax+signall)
Color 15
Print : Print : Print
Print "End of Program"
Close #1
Sleep
End
Aquí tienes el codigo para la HP50g creo que funciona con una HP48g y con la HP49g. Respeta el nombre de los programas.
Al ejecutar el programa PING el ejecuta los otros programas por sus nombres. (Solo escribo para el que no sepa mucho.)
@PING <-----Nombre del primer programa
« Erase DRAX 9600
BAUD 0 PARITY 5 @ serial port initialization
STIME "1" XMIT @ send an "1" To start sample
If
Then RCV @
Else ERRM @ Error
End
»
»
@=============================
@RCV <-----Nombre del Segundo programa
« BUFLEN DROP 1 256
For A 1 SRECV @ For Loop To receive 256 bytes of Data
If
Then NUM @ convert String To Int
Else ERRM @ Error
End
Next DEPTH LIST
DUP SIZE DRW @ process into list To Input To DRW
CLOSEIO @ Close serial port And clean Input buffer
»
@=============================
@DRW <-----Nombre del Tercer programa
« 4 - buf buflen
« 1 buflen
For I I 2 / RB @ process verticle coordinate
63 buf I Get
If
Then 128 @ If top half add 128
Else 0
End buf I 1 +
Get + 4 / - RB 2 @ fit To LCD Screen Field
LIST PIXON { # 0d # 0d }
PVIEW 2 @ turn on corresponding pixel
Step 7 FREEZE @ freeze display
»
»
Espero lo disfruten, si supieran lo amargo que ha sido todo esto. Parece sencillo, pero llegar hasta aquí uno solo, sin compañeros de estudio
sin un profesor, solo buscando y preguntando en los foros, es candela pura.
Se les aprecia mucho. Si hay otras cosas más, se las haré llegar.
Bye('_').
.
-
Hola IAO.
Te felicito por el trabajo realizado, me recuerda cuando me ponia como un loco hacer programas con mi Hp48g. En la parte de transmisión llegué a escribir un pequeño programa (en rpl de usuario) para transferencia de datos en la computadora, no llegué a terminarlo porque presentaba problemas de corrupción de datos y al ejecutar el archivo en la calculadora, sencillamente ésta se 'colgaba'. (faltaba agregar una rutina CRC). en aquella época resultaba un poco dificil conseguir información sobre la programación y había que estar 'tirando flechas' por todos lados hasta que funcionaba.
-
Pero donde esta el problema??? En Conecta el PIC a la calculadora?? Yo he conectado mi PIC16F84A hace años con la HP49G que es la que tengo. También programe en su tiempo muchas cosas para la calculadora, animaciones y demas... aaa Que tiempos aquellos, en los que la familia pagaba todo y uno solo se dedicaba a aprender y estudiar de todo..... Bueno, De vuelta a nuestros tiempos, De programar Hp ya nada me acuerdo, De conectar el PIC a la HP si algo recuerdo.
-
Holaaaa:
Sr. PalitroqueZ:
Gracias, pero te comento que todavía es dificil encontrar información, la que consigues es para la 48g y la mayoría no trabaja con la HP50g.
Por culpa de unos SYSEVAL de la HP48g que no son compatibles. Solo espero que el joven que tome esto, tenga el camino más despejado,
y no tenga que tirar tantas flechas como nosotros. :D
Sr. PICmouse:
El problema esta en mi corazón, mi cabello, mis nervios. Es más personal que cualquier otra cosa. Todas las pruebas que hice, trabajan.
Hay que darle más operatividad al 16F84. Lo escogí por lo pequeño, ya que pensaba realizarlo, llevarlo a lo tangible.
El domingo me prometí que si lograba hacer la conversión y que saliera algo por el VTERM, lo dejaría hasta allí. Como dos horas después
lo había realizado, y desde luego lo deje así.
Tengo dos dias, durmiendo mejor. Tengo los cachetes mas rosados. El corazón me late más normal. No es broma me estaba matando con esto.
Y de pana, panita o amistad, amistosa no lo voy a continuar, se lo aseguro. :mrgreen:
Es como tu dices, cuando a uno le pagan todo puedes estudiar. Pero cuando llega el no trabajas no comes, la cosa cambia. Tengo 40 años, no soy
un bebé, tengo que cuidarme. Bueno soy un bebé pero viejo. :D
Se les aprecia.
Bye('_').
-
Holaaaa:
Aquí les dejo otros 2 programas en FreeBasic, tipo Consola del DOS. Lo puedes pasar a QBasic, creo que
no hace falta ninguna modificación al pasarlo a QB, no recuerdo bien.
'Esto es para mandar algo por el Pto. Serial. En la HP50g ejecuto RCV2 despues de mandar
'el valor por este programa.
'----------------------------------------
AQUI:
CLS : CLOSE
PRINT "PRUEBA DE SALIDA SERIAL"
OPEN Com "COM1:9600,N,8,1,CD0,CS0,DS0,OP0," FOR RANDOM AS #1
INPUT "ENTER NUMBER 0 TO 255"; A
PRINT #1, CHR$(A);
Close #1
GOTO AQUI
SLEEP 500
END
@RCV2 <----Nombre del Programa HP48/50g
<< "1" XMIT BUFLEN DROP SRECV
DROP >>
Este otro programa en FreeBasic también.
'Esto es para Recibir algo por el Pto. Serial.
'Lo conecte a la HP50g envie caracteres y funcionó bien.
'----------------------------------------------
DIM A AS String
CLS : CLOSE
PRINT "PRUEBA DE RECEPCION SERIAL"
PRINT:PRINT
OPEN Com ("COM1:9600,N,8,1,CD0,CS0,DS0,OP0,RS") FOR RANDOM AS #1
'==============================================
INICIO:
PRINT " Show Character "
'''-Si envío una "Z" por el serial, aquí se recibe
A = INPUT$(1,#1) '''-El (1,) es la cantidad de caracteres a recibir y debe
''' seguir recibiendo hasta que el numero de caracters sea igualado. En este caso es uno, no hay nada más.
L = len(A)
'''-Aqui se muestra el valor del "Z" recibido pero en integer
Print "Numeric Value", ASC(A)
PRINT " ASCII Value", Chr(ASC(A))
Print "Cadena",A
print "Largo de A",L
PRINT:PRINT
PRINT "Fin Programa"
sleep
CLOSE #1 : SYSTEM
END
@ENV2 <----Nombre del Programa HP48/50g
«
OPENIO
@ Esta "A" debe estar entre comillas puede ser cualquier caracter pero
@ debe estar entre comillas
"A" XMIT
CLOSEIO
»
También los probé con el HyperTerminal y funcionaban bien. No me dieron tantos problemas.
Cuidense.
Bye('_').
-
Holaaaaa:
Con esto pienso que se tiene practicamente todo lo necesario, para hacer pruebas por RS232 y HP50g.
Link-Hp50g (http://bp1.blogger.com/_MjmgxJ7iCEk/Rp4QADp1DMI/AAAAAAAAAA4/mCQNcOZjljs/s1600-h/HP50Serial-Wire.BMP)
Saludos.
Bye('_').
-
offtopic
Es interesante la evolución que ha tenido la calculadora de ese fabricante, recuerdo haber visto la 38g que era de un color verdoso, después la 48g con su incomparable carcasa robusta (cosa que he leido que le critican a la actual 50g) y hablando de ésta última, ¿es verdad que posee conector para memorias SD? de ser así se abre el espacio de memoria para guardar datos.
siempre tendré buenos recuerdos de la 48g porque fué la primera cosa que compré cuando empecé en la uni y que me costó meses de esfuerzos ahorrando para obtenerla (casi todos en el salón tenian una). Es mas hasta me acuerdo del típico olor que traia (el olor a nuevo jeje).
-
Un compañero me comentó hace un par de años que el equipo humano que desarrolló las 48G se había excindido de Hewlett-Packard y que ahora desarrollamaban por su cuenta, pero no soy capaz de encontrar información al respecto (quizás estaba equivocado).
-
Holaaaa:
Sr. PalitroqueZ:
Es correcto tiene memoria SD o MMD. La 48 es un encanto pero pienso yo, que la 50g se la llevó por lo cachos. USB, Serial, IR, Más ram, mejor LCD,
es un animal de maquina que yo casi no puedo entenderlo. Le comento que bajaron de precio. Cuando compré la mía me salió en 860 Mil Bs.
equivalente a unos US$ 400. Ahora estan en 450 Mil Bs. y bajando.
No tengo la pagina de el proyecto de la nueva HP, que suspendieron no recuerdo la causa. Pero es para quedarse loco.
Cambia todo el comcepto de la HP, porque parecia una Palm.
Bueno, nos vemos compatriota.
Bye('_').
-
Hola:
Sr. jfmateos2:
Disculpa que posteamos juntos y no vi tu mensaje.
Pero hasta donde yo lei, hay gente que trabajan por su cuenta pero siguen haciendole trabajos de Progrmación a la HP.
Según los cerebros en eso: HP le toma de 2 a 3 años para lanzar un nuevo modelo al mercado, y el mayor tiempo se lo
consume la parte programada.
Imagine todo la problemática. Y uno llora porque en 3 meses el proyecto, no adelanta una tontería. :D
Bye('_').
-
Hola IAO.
Si que te afecto este proyecto. Yo recien empiezo con los microcontroladores tengo 25 años y a la electrónica la tengo como hobbie. En este momento estoy finalizando un proyecto que me lleva mucho tiempo, al principio me dió muchos dolores de cabeza y antes de tirar todo a la basura dejaba pasar unos días (hasta una vez paso mas de dos meses, por bronca y por falta de tiempo).
Mi consejo es que te tomes un par de días, lo tomes con calma y busca un tiempito para dedicarte al proyecto y ese tiempo lo debes cumplir al pie de la letra por ejemplo: de 09:00 a 12:00 hs. Una cosa importante es descansar. Hay que evitar trabajar por las noches y mas cuando es algo para estudiar y practicar. Mi trabajo es de noche, casi todos los días, y cuando no trabajo, trato de descansar bien. Parece que estas enojado y las peores deciciones se toman de mal humor. Relájate y luego decide.
Saludos. :-/ :-/
-
Holaaaa:
Sr. PalitroqueZ:
Es correcto tiene memoria SD o MMD. La 48 es un encanto pero pienso yo, que la 50g se la llevó por lo cachos. USB, Serial, IR, Más ram, mejor LCD,
es un animal de maquina que yo casi no puedo entenderlo. Le comento que bajaron de precio. Cuando compré la mía me salió en 860 Mil Bs.
equivalente a unos US$ 400. Ahora estan en 450 Mil Bs. y bajando.
No tengo la pagina de el proyecto de la nueva HP, que suspendieron no recuerdo la causa. Pero es para quedarse loco.
Cambia todo el comcepto de la HP, porque parecia una Palm.
Bueno, nos vemos compatriota.
Bye('_').
entonces es cierta la información que leí en un foro, debe ser una maravilla.
saludos compatriota
-
Holaaaa:
Sr. Leon Pic:
Trataré de seguir su consejo. Voy a descansar, a buscar de Dios y de cuando en cuando bajaré a la
tierra infernal a ver como termino el proyecto. :D
Sin ofensas es broma.
Bye('_'). :-)
-
Pues lo que decis no es broma. La tierra es un pre infierno, la única manera es en buca o estar con DIOS.
Saludos. :-/ :-/
-
Holaaaaa:
Aqui les dejo un programa que captura de la HP unos datos y Otro que lo grafica en Excel(Hecho originalmente por MarioGuillote).
Programa VB para HP48/50g (http://www.box.net/shared/7c61beg7j8)
No está muy bien terminado, pero es funcional y operativo.
Si quieres leer más sobre esto, lo publique con más detalles en este foro:
Foro adictoshp (http://www.adictoshp.org/modules/newbb/viewtopic.php?viewmode=flat&type=&topic_id=7350&forum=14)
Este foro está con problemas para entrar, igual que este foro.
Se les aprecia mucho, chao.......
Bye('_').
-
por cierto te quería preguntar IAO, que hay del emulador para la hp-50, ¿ya está disponible?
he estado buscando la página de Sebastian Carlier pero no la consigo..
-
Holaaaaa:
Si Pali..z. Aqui te dejo el link para que bajes el HPUserEdit 5.0. Este tiene la HP50 y el editor es super bueno.
Bueno instalalo es super bestial, también emula la 48g.
HPUserEdit Beta (http://www.gaak.org/hpuser/download.php)
Es de lo mejor que hay. No te arrepentirás mi pana te lo aseguro.
Bye('_').
-
IAO Super genial lo que ha hecho me gusto eso, me lo voy a copiar porque luego lo necesito para saber mas de las Señales Seriales
me lo pongo en favorito genial IAO :-)
Un gran saludo
-
Holaaaaaa:
Sr. stk500:
No lo copie.
Eso es suyo. :D
Yo lo que más quisiera es que: algunos con más tiempo lo amplien y mejoren todo esto.
Pienso que abrí un camino para que otros pierdan menos tiempo en el intento inicial y se
enfoquen más al desarrollo de algo más profundo.
Eso es más suyo que mio, mejórelo o modifiquelo a su gusto. Para mi será una satisfacción.
Saludos.........
Bye('_').
-
IAO en el HPUserEdit Beta la ROM de la 50 como que es la misma que la 49, solo le cambiaron la imagen de la calculadora, supongo que deben ser similares
-
Holaaaa:
Si Pali..z, básicamente es lo mismo, pero al momento de llamar la ROM, que trae el emulador de la 50g es diferente.
También hay una sitio, no recuerdo donde es ahora, que bajas la última versión de la rom para la 50g la version 10.7 y trae
la opción de la ROM para el emulador. Cuando puedas si te interesa un poco hay unos programas en la página de w.gaak.org/
que son demás de bestiales, y en la propia página de w.hpcalc.org/ te sorprenderías de la cantidad de software.
Tiene algunas varias mejoras internas, pero es lo mismo en el fondo. Con la 48g no sucede igual, si hay enormes diferencias.
Pero las diferencias las puedes notar más, cuando las tienes en la mano. En el emulador, casi no las distingues.
Espero te haya gustado ese UserEdit, para mí ese Sr. Roger Broncano de Perú, es madre cerebro. :-/ :-/
el actualizó la versión beta hace unos días, deberías intentar bajar la nueva versión beta 3.
Saludos y abrazos amistosos.....
Bye('_').
-
Holaaaa:
Les dejo unas Simulaciones para la comunicaciòn entre el Proteus y HP50, por el puerto serial rs232.
No quiero explicar mucho. Aqui estàn los link.
El programa VSPD.exe(Virtual Serial Port Driver). Con el puedes crear puertos virtuales seriales,
para comunicar con el real, haciendo un Add Pair(Juntando un Par). Y comunicas el Programa HPUserEdit y Proteus Isis.
Les muestro la captura de que me funcionò.
Captura Comunicando Isis y HpUserEdit por Rs232 (http://img357.imageshack.us/my.php?image=captura2kt6.jpg)
Primer Ejemplo ISIS-HPcal. (http://www.box.net/shared/jgtf4eb6s0)
En el simulador hay que conectar un cable más al circuito, para que la HP50 real o Simulada pueda recibir los datos.
En la imagen está la conexión que se debe realizar.
Conexiòn Adicional al ISIS, para que la HP50 Reciba Data. (http://img364.imageshack.us/my.php?image=captura3du3.jpg)
El pin RXD del Monitor "SALIDA" debe conectarse un cable al pin 3 TXD del conector del Puerto Serial.
Los dos a conectar estan al final de la foto.
Programa Mejorado HPUserEdity el Bin del Primer Ejemplo. (http://www.adictoshp.org/modules/newbb/dl_attachment.php?attachid=1217686457&post_id=39960)
Aqui està link del ejemplo 2, 3, 4.
Captura Segundo Ejemplo. (http://img178.imageshack.us/my.php?image=captura1hz8.jpg)
Segundo Ejemplo ISIS-HPcal (http://www.box.net/shared/vsghj968sg)
Captura Tercer Ejemplo. (http://img81.imageshack.us/my.php?image=captura3pw0.jpg)
Tercer Ejemplo ISIS-HPcal (http://www.box.net/shared/7q7x5ek8wg)
Esto es para comunicar la HPcalc con un programa de VB6.
Programa en Visual Basic, que recibe nùmeros 0 al 9 enviados por la HPcal y mueve un nivel de los 9.
Hay un gràfico con unos circulos, era para hacerlos rotar, pero se me complicò demasiado y decidì dejarlo por un rato.
Cuarto Ejemplo VB6-HPcal. (http://www.adictoshp.org/modules/newbb/dl_attachment.php?attachid=1217852599&post_id=39994)
Programa VB6 Mejorado. Circulo Girando. (http://www.box.net/shared/nwgkgdq0wk)
Tengo un quinto ejemplo, que voy a tratar de sorprenderlos. Voy a tratar, porque es difìcil la cosa esta.
Pero intentar no està de màs. Les adelanto que serà como un voltimetro con Grob(Grafico) y todo eso
es un reto, como quede asì se los pasarè, bien o mal. No estoy seguro como se verà.
Bye('_').....
-
Holaaa:
Aqui les tengo el ejemplo quinto prometido.
Ejermplo 5 con Grafico (Grob) (http://www.box.net/shared/1gkhdxat4p)
Tienen el Archivo del Simulador a 2400,8,n,1.
Tienen 2 archivos para el HPUserEdit, el grob del supuesto voltimetro y el bmp.
(Sustituir los archivos .hpe por los que estan en el .zip adjunto al final)
La HP48/49/50 debes configurarla a 2400,8,n,1 para que funcione bien con esta simulaciòn.
Modifiquè muchas cosas en el .asm fuente del simulador, quitè coma, cr, lf y otras cosas.
Captura Imagen Ejemplpo 5 (http://img79.imageshack.us/my.php?image=capturazl6.jpg)
Hay un tres(3) que se me cuela en la lectura, no supe como eliminarlo.
Està demás de sencillo.
Se debe ejecutar el programa por cada lectura deseada.
No está diseñado para tomar el dato en forma continua o permanente.
No Muestra el valor de voltaje porque hay que hacer una conversión de hexadecimal a decimal.
Está trabajando y con el modo gráfico, es simple pero funcional.
En el .zip esta el programa para la HP48/49/50, funcionando como se muestra en
la Captura arriba.
Pienso que es todo con respecto a este tema.. Se les aprecia mucho.....
Bye('_').
-
Hola a todos ...
Tengo un problema y a lo mejor alguien me puede dar alguna idea ...
Estoy haciendo una sistema de adquisición de datos con el ADC0804, con el que he trabajado con la Apple.
Por razones de memoria y resolución, deseo hacerlo con la PC.
Los datos los puedo adquirir a través del COM1 usando la conexión RS232.
Mi pregunta es como puedo enviar señales para un chip de 8 bit de entrada para obtener ahora
la señal digital -> analógica ?
Supongo que es a través del mismo puerto direccionando al chip que quiero controlar ...
José Gregorio
-
Próximamente saldrá una versión del SDK para calculadoras hp
http://www.unparche.com/?p=131
Tienes IAO alguna novedad sobre el proyecto RS232 con calculadoras HP
PD: proyecto RS232 con calculadoras HP Y TI
http://sense.net/~egan/skb/
http://hackspire.unsads.com/wiki/index.php/Hardware#RS232
http://hackspire.unsads.com/wiki/index.php/Memory-mapped_I/O_ports#90020000_-_Serial_UART