SoloCodigo

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 en VB6....
http://www.box.net/shared/7mcbn6pxb3

Captura programa Graficando, en este caso un diodo....
http://img269.imageshack.us/img269/9067/capture3igi.png
Espero les guste.

Gracias a F_Tanori, Nebire y Moskito por la ayuda pretada en meses pasados.........Gracias muchas gracias......
Saludos

Holaaaaa:

Bueno solo para los que estuvieron siguiendo toda esta publicación, les dejo como resolví el problema
de la linea que baja por el eje 'Y'.


Lo que hice fue mudar el  (picGraph.CurrentX = ??) de posición. Lo mudé o cambié para el
Private Sub Command1_Click(), eso fue todo.

Se les aprecia a todos gracias....
Bye('_').....

Holaaaa:

Sr. Nebire y compañia:
Se me complicó varias cosas con una impresora fiscal aquí en Venezuela.
Tuve que abandonar un poco. Pero siempre le daba un vistazo al asunto........
Tomando de su programa y otros hice esto y me resultó como este gráfico.



Luego viendo y viendo su programa, se me ocurrió colocar un '+ 3' en este punto:

Resultando la salida exactamente como quiero que se vea, o como debería de ser.



Peeeero, aquí viene la consulta.
Son dos preguntas en un solo post.
1era.- Observar  una linea azul de arriba del PictureBox baja hasta el Circulo(ovalo)
dibujado dentro del picturebox. ¿Alguna Idea como poder eliminar esa linea del eje 'Y'?.

2da.- Observarán el mensaje: El suníndice está fuera del Intervalo.
Claro, es evidente que ese '+ 3', no debería estar allí.
¿Alguna idea de como poder mantenerlo allí?.
Luego yo colocaría una variable, para poder ajustar el valor en el Form1.

Le coloqué el Timer, un Redim, If, For,  otra array y tal......., pero que va, error tras error.
Por favor, no hagan el programa. Díganme más o menos donde coloco el comando, serca de
que función o sub. Es que no quiero parecer un vampiro informático. Que los demás hacen el
trabajo y yo chupando sin hacer nada. Bueno, un parásito como dicen por aquí.

Si me pueden dar un empujón más, se los agradecería de antemano.
De verdad creo que ya falta muy poco para terminarlo.

Le adjunto un .zip con la nueva propuesta o enfoque.

Bye('_')....


Nota: Estos son algunos de los intentos frustrados.

Puede que este usando valores erroneos en el IF, se parece un poco a una pregunta
en una publicación pasada, pero me parece que es diferente al caso actual.

Holaaaa:

Gracias sr. Nebire...Acabo de bajar su codigo voy a estudiarlo y hacer las pruebas pertinentes..
Quiero que sepa que esto no es final de carrera ni nada por el estilo... es aprendizaje personal, que a la final
le quedará a otros que como yo esten en busqueda de algo más allá de lo convencional....

Espero algún día poder devolver, este favor. De alguna manera, sanamente hablando.
Esto ha sido bien duro para un principiante como yo.

Voy a desempaquetar para hacer pruebas...Infinitas gracias por su colaboración....
Ya comentaré en lo que tenga algo, con su propuesta...

Bye('_')...

Hola....Voy a tratar de ir por parte.

Lo que intento hacer es un Trazador de Cuvas en VB6.
Probando un componente con el Octopus, en este caso un condensador (puede ser diodo, dZener, resistencia, etc)
me suministra unos valores para el eje 'x' (Horizontal oscilosc) y otros valores para el eje 'y' (Vertical oscilosc) estos
valores los tomo por el pto. serial del computador los coloco en unos List, los paso a arreglos y dibujo la figura que
el debería representar según unos modelos aproximados ya establecidos.
Ver figuras aproximadas en esta pagina.( Casi al final de la página.)
http://www.techlib.com/electronics/curvetrace.html

Para este momento todas las pruebas estan hechas con el mismo componente, el condensador de 10uF electrolítico.
Los valores numéricos recibidos por rs232 se introdujeron en los diferentes programas.
En mis tantas busquedas por aquí y por allá, vi un comentario de un sr. que le decía a otro, que utilizara
el picture1.pset, para ir graficando punto por punto. Disculpe si rebuzné, pero fue lo que leí.

Pienso que los programas que me muestran la linea diagonal (Calculadora, Excel y VB6), me están mostrando
lo que es, para los datos suministrados a ellos. No puede haber error en los tres, graficando lo mismo.
Yo los veo erroneos, porque no muestra esa especie de circulo o elipse en este caso del condensador.
Pero sé que algo estoy haciendo mal. No sé que es, pero lo estoy haciendo mal.
Por eso le comentaba que tenía que entender como un osciloscopio manejaba internamente esos datos, cuando grafica
esas figuras caracteristicas de cada componente.
Si coloco en VB6 funciones sin() y Cos(), me muestra el circulo, pero todos los valores para otros componentes, me los mostrará
en circulo también. Si coloco lista de valores numéricos de un zener, me mostrará un circulo en lugar de la curva
caracteristica del zener.

Entonces lo que debo hacer es suministrar los datos adecuados, para que VB6 me grafique la figura que corresponde a cada
componente, según la lista de valores numéricos suministrados de dicho componente.
De verdad he estado dando vueltas en circulo y no he salido de allí. Cada intento que he efectuado en los diferentes
programas, me lleva a lo mismo.

En base a que valores manejo 'x' e 'y', según entiendo tu pregunta: voltios(x) y mvoltios(y). No sé si fue lo que
me preguntaste. Oh me confundió tu pregunta. Lo del factor tiempo lo tomo del 6.28 radianes que son los 360º del circulo.
A veces pienso que esto me está volviendo loco...Jajajaja

Te voy a dejar la lista de datos que recibo del condensador, tanto para el horizontal(x), como para el vertical(y).
Una hoja de excel con una prueba loca, no se rian de eso por favor.
Puede que me esté ahogando en un vaso de agua y esto no pueda efectuarse sino, en un osciloscopio solamente.

Puede que sea lo de graficación tridimencional y no paramétrica o dispersión. Ya no sé ni que será, Jajajaja.
Yo utilizé lo de paramétrico por la calculadora gráfica y leía que el osciloscopio representaba las figuras de
Lissajous. Pensé que paramétricamente era el camino, puede que de allí venga mi confución.

Me averguenza ocupar el tiempo de ustedes, en esto. Pero si logran entender algo, denme un rumbo y trataré de ir por
allí. Porque hasta hoy he dado vueltas en circulo, sin grandes avances.

Por ejemplo, si lo que debo es tratar de ir por el PSET, díganme reordena todo para trabajar con PSET. Si es tridimensinal,
me ire por allí. Si logran ver mi error, de verdad pido que me orienten y seguiré ese rumbo.

Espero haber sido más claro en mi exposición.
De antemano muchas gracias por gastar su valioso tiempo, conmigo....se aprecia en gran manera.

Sr. F_Tanori: Los datos nuevos estan en los  .txt del zip. No recuerdo si los cambié. Al principio hice prueba con un zener.
Pero desde que escribí lo del condensador, solo he trabajado en base al condensador 10uF.

Bye('_').....

Holaaaa:

Disculpen lo fastidioso.
Pero ya logré entender por qué no me muestra la figura en el picture1 del VB6 programa como debe ser.

Lo entiendo teoricamente.
Es un problema con V/div, en un osciloscopio real selecciono el v/div a un valor
apropiado tanto para el X como para el Y, en el modo XY.
El diseño que estoy efectuando no tiene implementado esto, el reto ahora en implementar eso, para que la
figura se vea en forma correcta o adecuada.

Bye('_').....

Holaaaa:

Gracias sr. m0skit0 por su explicación trate de colocar -1 y -2 para reducir el tamaño del indice,
pero me daba error igual. De verdad estaba complicado, pienso que hubiera tardado mucho en
descubrir como hacerlo. Pero su explicación estuvo excelente.

Bueno sr. Nebire, más que ayuda, usted me dió un empujón. De verdad, copie y pegué el código,
me funcionó perfecto. Gracias por 1Millón^1Millónx1000^Gracias.

Le aseguro, que voy a estudiar bien detalladamente su propuesta antes de proseguir. Y trataré de
entender que estaba haciendo mal. En excel, me lo dibuja una tanto diferente, pero es cuestión
de ajustes.

No pasaré al siguiente proceso, sin haber comprendido bien todo este aporte. Para mi, es muy
valioso. Es como un tesoro, llevo casi un año recopilando por aquí por allá, porque no terminaba
de entender como I/V o corriente versus voltaje, operaba matematicamente dentro del osciloscopio.
No tiene idea de todo lo que he leido. Anoche soñe toda la noche con señales senoidales, la pasé
requete mal.

Nuevamente: Gracias por 1Millón^1Millónx1000^Gracias.  

No tengo palabras para tanto agradecimiento. Le juro que lo estudiaré al milimetro.

Bye('_')....

Holaaa:

Sr Nebire saludos..
De verdad no sé como explicarle tantas cosas.   -
Comenzaré con decirle que tengo 44 años no soy un muchacho. Es duro todo este aprendizaje.
De verdad pensé que tenía cubierto lo del ploteo en el picture en forma paramétrica.
Dibujaré todo el gráfico entero y luego lo borro y lo vuelvo a dibujar con nuevos datos. Es la idea.
Pero ayer me dí cuenta que lo que tengo es muy vago y sino he publicado algo más es para no confundir.
-
En cuanto a  lo del ingles es mala costumbre de mi parte. En los foros de ingles me dicen lo mismo.
¿Porque comentas en ingles y español.? Jajaja No lo sé. Mala costumbre pienso.
También puede ser porque trabajo mucho en base a ensayo y error. Pruebo esto y aquello una y otra vez.
No lo hago con criterio de un programador experto, ya que no lo soy. Eso es evidente  

De verdad, verdad trataba de ser lo más claro posible, por eso coloco imagenes para poder hacerme entender.
Disculpen si cometí un error o hice una omisión de algo. Siempre publico en principiante porque pienso
que siempre seré un principiante.

Le prometo tratar de ser más específico, porque tendré que abrir otra publicación en cualquier momento.
Ya logré colocar esos list en unos array o arreglos ahora me toca tomarlos para la parte paramétrica.
Pronto me verá otra vez.

Disculpe de todo corazón, lo malo. Viejo es Viejo.

Bye('_')....

Holaaaa:

Gracias sr. m0skit0 tampoco funciona, a sido duro esto. Pero ya logre algo.
--
Ya pude, pero de otra manera.. Todo lo que aparece en el Text1 Multilinea lo pude colocar en el List1 de esta manera.
Hoy trataré de utilizar el MID, Rigth o Left con el List1, a ver que me resulta.
Así esta quedando el código de la parte de entrada.

En un rato pego una captura de la imagen......



Bye('_')....

Ahora acabo de entender, el Split(sData, " ").
Si es correcto no hay un espacio vacio, pero el signo negativo entra en algunos numeros en otros no.
Pero esta bien.
Voy a eliminar lo que quita la tabulación y agragarle un espacio sr. Tanori usted es un cerebro, un cerebro, yo soy pinky jajajaja.

Voy a probar, luego le comento.....Gracias, gracias, gracias

Perdón dice:

El subindice está fuera de intervalo.. Disculpen pero ando colapsado.

Holaaa:

Vamos a tener que esperar a qe lo implemente, me da un error. El programa hace exactmente lo que buscaba.
Pero cuando lo incorporo al mio me da erros de indice en:    Derecha = valores(0) y  Izquierda = valores(1).
-
No estoy seguro si tengo quec olocar un timer en mi form, ando un tanto atiborrado de cosas.

Bueno estaré intentandolo....

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

Holaaaa:

A ver IAO. Explícame por qué haces esto:

Código: Visual Basic

1. Text2 = Right(Text2, 6) & Right(sData, 6)
2.  

Bueno sr. m0skit0, a ver como le aclaro eso. La data que me ingresa actualmente quedó
en este formato: "     0.1-00.1  "  lo que trato es de tomar todos los -00.1 y colocarlos en
el text2. Pero si coloco solo el primer  Right(sData, 6) se me queda mostrando un valor -00.03 en
la primera linea de text2, si coloco el otro Right(Text2, 6) me cambia los valores según entren
("-00.1 -00.03  00.08 ..... ") pero siempre en la primera linea.
----
Por allí leí que es imposible hacer eso en un TextBox(desplazamiento) estoy indagando sobre los ListBox,
pero bestiale es más enredado y estoy analizando para hacer pruebas.
----
Sr. F_Tanori, gracias por el ejemplo voy a hacer las pruebas luego les comentaré.

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