Programación General > Visual Basic para principiantes
Grafico Parametrico en PictureBox
Nebire:
--- Cita de: "IAO" --- estuve indagando sobre el PICTURE1.PSET
--- Fin de la cita ---
utilizar pset o Line, sólo significa cuantos puntos dibujas de golpe, nada más...
--- Cita de: "IAO" --- Sobre la frecuencia, puedo leerla en el osciloscopio.
--- Fin de la cita ---
bien, con eso es suficiente...
--- Cita de: "IAO" --- me mostró esa doble linea diagonal pero hacia la izquierda. Solo cuando moví
los controles del Chanel A (Horizontal) hacia la parte de los milivoltios, fue que pude ver el ovalo, o semi esfera
caracteristica de la figura de los condensadores.
--- Fin de la cita ---
En las pruebas que he hecho se alternan esas líneas hacia un lado y otro, por lo que he modificado todo el programa original, estableciendo la frecuencia.
Los valores de verticales los tomo como valores absolutos, los valores horizontales los tomo como relativos, llevan el incremento del factor tiempo ...
He comprimido lo que tengo hecho hasta el momento, y lo subo para que puedas hacer pruebas y verifiques si ahora se parece más...
... mañana o el domingo en otro momento le hecho otro vistazo...
IAO:
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('_')...
IAO:
Holaaaa:
Sr. Nebire....esta mejora es infernal :good: .....Jajaja como diría uno diabólica :devil: ....Jajaja
Es impresionante todo ese código, he logrado entender como un 25% de todo..
Le comento que he hecho varias pruebas, y en algunas casos efectivamente me dá el casi circulo
buscado con el condensador de 10 uF.
---
Pero, siempre hay un pero, coloqué los valores de un zener y me dió un circulo también..
Voy a efectuar una recopilacion de datos nuevos, con otro zener, un diodo normal y alguna resistencia
a ver como me vá el asunto. Seguiré estudiando su código a ver que puedo modificar. De hecho que modifiqué
el valor del scroll para que me aceptara hasta 70(estaba en 500), porque pienso que nunca aumentara la frecuencia, puede que si disminuya, pero pienso que no aumentará.
Me había llevado el frecuencimetro al trabajo, pero hoy haré más pruebas que luego le comentaré más
ampliamente.
Bye('_').....
IAO:
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:
--- Código: Visual Basic ---Private Function Ploting(ByVal t As Single) As Single 'Draw a sine wave graph using a User ScaleMode For k = 0 To List1.ListCount - 1 List1.Selected(k) = k List2.Selected(k) = List1.Selected(k) Cord(k).X = Cord(k).X Cord(k).Y = Cord(k).Y -----------------------OJO OJO AQUI--------------------- picGraph.Line -(Cord(k + 3).X, Cord(k).Y / 10), vbBlue Next t = t Ploting = tEnd Function 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.
--- Código: Visual Basic --- i = 3 If Cord(k).X = Cord(k).X Then Cord(k).X = Cord(k + i).X------------------------------------------------------------------------- ix = Val(k + 3) If ix > k + 3 Then ix = k + 3 picGraph.Line -(Cord(ix).X, Cord(k).Y / 10), vbBlue
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.
IAO:
Holaaaaa:
Por Fin.....Ya logré incluir el mal parido '+3'.....Pero en otra parte, antes del picGraph.Line ....
Aquí, es esta parte del código. Para los que sigan este hilo de locura.....
--- Código: Visual Basic --- Private Sub Form_Load() Call DibujaEntorno i = 3 For k = 0 To List1.ListCount - 1 Cord(k).X = Val(List1.List(k + i)) '''<----OJO OJO AQUI Cord(k).Y = Val(List2.List(k)) NextEnd Sub Se muestra el grafico sin el error 9 del subindice.....
Bueno solo queda la line vertical azul que se une al circulo, que no tengo ni la mas minima idea.
Nos vemos.....
Bye('_')...
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa