Velleman HPS40 VB6 Codigo.

[IAO]

Holaaaaa:

Hice un pequeño programa en VB6 para recibir datos del osciloscopio HPS40.
Pienso que puede funcionar con cualquier equipo que mande formato ASCII.

Me dió muchos problemas....,
Solo les comentaré que tenía que activar el RTS del puerto serial en el programa de VB6.
Por ese detalle del RTS, no me recibía nada. Todo lo demás estaba bien.

Bueno espero le sea de ayuda a alguien.


Código VB6 recibiendo datos HPS40 Scope


Otra cosa más, el recibe la info en sentido inverso,  -1.543 al recibir es 345.1- Jajaja que locura...
debo corregir eso. No sé como, pero en unos días lo acomodo.


Bye('_')......





  

[jfmateos2]

A mí me vendrá muy bien IAO (cuando sea capaz de encontrar tiempo para volver a usar el osciloscopio). Muchas gracias.

[jfmateos2]

Por cierto, ¿sabes que aquí http://www.velleman.be/be/en/download/files/ tienes el software para el velleman incluida la librería vb-run verdad?

[IAO]

Holaaaa:

Sr. jfmateos2:
Como está, bueno espero que bien. Sabía que tú y otro compañero que compró uno, podría necesitarlo
en algún momento.
Si, yo bajé esos programas pero quería hacer algo diferente. Cuando lo termine lo publico aquí mismo.
Ni te imaginas lo que pasé para poder ver el código ascii en el TextBox.
Fue una odisea como la novela de Omero.
Mejoralo cuando puedas ese código es todo tuyo. Cuando estaba trabajando me recordaba de ustedes y decía
ellos lo pueden llegar a necesitarlo también.  .
-
Por otra parte, hice las pruebas hace un rato con un Multimetro Digital: Marca UNI-T, Modelo: UT70B,
cambié unas cositas y listo, 8 meses intentandolo y hoy ya recibo la data ascii.
Lo que cambié en el M.Digital fue esto:

Código: [Seleccionar]

......
    MSComm1.CommPort = 1 'para COM1 ó 2 para COM2
'''Make sure DTR line is UP
    MSComm1.DTREnable = True  '''<----- If not True don´t work.
'''Make sure RTS line is Up ---> Very Important
    MSComm1.RTSEnable = False '''<----- If not False don´t work.
    MSComm1.Settings = "2400,o,7,1"
    MSComm1.PortOpen = True
........

Me parece que sr. flacoclau tiene uno parecido, espero le pueda servir también.
Les comento que todo el truco está en el DTREnable y RTSEnable, fijense que
en el de HPS40 está configurado diferente.

Bueno es todo......
Con todo cariño para ustedes, por un feliz año nuevo Jojojojojo

Bye('_').....

Repito: Pienso que puede funcionar con cualquier equipo que mande formato ASCII.
Solo hay que saber jugar con RTS y DTR.

[IAO]

Holaaaaa:

Ya logré recibir la data en forma correcta, no invertida. Era una tontería.

Código: [Seleccionar]

En el código donde aparece
Text1.Text = sData & Text1.Text & vbCrLf
Cambielo por esto:

Código: [Seleccionar]

Text1.Text = Text1.Text & sData '& vbCrLf

Ahora recibe los datos en forma adecuada. 123.35  --> 123.35 al recibir en VB6.
Es válido tanto para el D.Multimeter como para el Osciloscopio.

Bye('_').....

[IAO]

Holaaaaa:

Es una tonteria, pero quería que vieran como va quedando..Falta pero pronto terminaré.



Bye('_')....

[Slalen]

Hola IAO!!!

Como a Jfmateos me va a venir muy bien!!

Muchas gracias!!!!

¿Has probado a unir el RTS y el CTS en el conector?

Normalmente, si lo haces, engañas al puerto y no tienes que implementar el RTS.

Lo dicho, muchísimas gracias

[IAO]

Holaaa:

Hola compañero Slalen:
Es un gusto que les pueda servir en su momento. De verdad no he probado y ni sabía
lo de unir RTS con CTS, pero le prometo que realizaré pruebas a ver que tal.
Mientras menos código hay. pienso que es mejor.  .

Ya voy a comenzar la parte de los gráficos en el picture y pensé que estaba cubierto,
pero ayer me dí cuenta que la cosa se me va a poner bien pelua.
Ya veremos...hay que esperar un poco.

Bye('_')....

[IAO]

Holaaaaaa:


Okey después de meses ya terminé este programita ayer.
Es muy básico, pero funciona. Se requiere más conocimientos para dejarlo fino, fino.
Está funcionando, pueden modificarlo a su gusto. Es todo suyo
Dentro del Zip hay un Documento en word. Para entenderlo un poco mejor.
Fuente del Programa VB6....

Aquí una captura del Programa....
Captura programa Graficando....

Espero les guste.
Saludos

[jfmateos2]

Muchas gracias IAO, me vendrá muy bien porque creo que el programa que venía con el osciloscopio sólo permitía capturar un número de muestras limitado.
Gracias por compartirlo.

[IAO]

Hola jfmateos2.....

Si solo quieres recibir datos y tomarlos o copiarlos desde un TexBox, usa este programa:
Recepción Modo Binario
Solo tienes que parar o detener tu mismo la comunicación con el botón Stop.
El HPS40 debe estar modo Binary. Funciona bien.

Aquí esta un programa hecho por un ruso en delphi7, es mejor que original de Velleman.
Te lo recomiendo ampliamente.....
HPS40 Ruso

Esta es la página del Ruso, dale un vistazo con el traductor de google..le adaptó un USB al propio osciloscopio.
Pagina Web del Ruso HardLock

Bueno, espero te sea de utilidad......

[PalitroqueZ]

Grande Ruben, y como repiten por aquí: Gracias por compartirlo con todos. 

[Slalen]

muchas gracias!!

Acabo de volver de marruecos y dentro de un rato me voy a salamanca, hasta septiembre no podré probarlo

[flacoclau]

Me parece que sr. flacoclau tiene uno parecido, espero le pueda servir también.

Gracias Iao por acordarte, pero el mío no tiene puerto
Saludos amigo!!

[IAO]

Hola....

Bueno PalitroqueZ.... Aqui andamos para darnos una manita.... Esto no es nada pero me dió batalla.
Ese MsComm de VB6 es medio diabólico. Te comento que más abajo coloco el link de uno que hice en FreeBasic,
super sencillo, sin tanto perolero que usa el VB6 y trabaja bien. Te invito a que veas el código.
A Jfmateos2  y  Slalen,  aparte del fuente hay un ejecutable. Pero si dudais de mi, pueden bajarse 
el FreeBasic, compilarlo y modificarlo a su gusto. Es tan sencillo que me gusta más que el de VB6.
De verdad quedé mas enamorado de FreeBasic. Lo adoro.

flacoclau lo lamento, pero lo tenia en mis pensamientos cuando pase la información para el Multimetro UNI-T.
Bueno para otros más servirá.

Aqui está el link para el fuente y ejecutable.
 Fuente Ejecutable

Una captura de una de las tantas pruebas, en etapa de desarrollo, no se había finalizado.


Espero les sea de utilidad.....Aunque sino les es útil, por lo menos se aprende algo nuevo....


Saludos a todos, se les quiere..... Bye('_')....