Autor Tema: Graficos con Picture.Line  (Leído 2091 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado batmand

  • PIC16
  • ***
  • Mensajes: 103
Graficos con Picture.Line
« en: 10 de Noviembre de 2005, 05:49:00 »
Hola a todos, hace rato que no aparezco por el foro, pero ahora que disminuyo un poquito el laburo otra ves estoy con mis proyectos.

Tengo un PIC que me envia 4 datos cada 30 segundos, y los estoy metiendo en 4 text.box diferentes. Ahora estoy intentando graficarlos, pero no puedo modificar muchas cosas.

En algun lugar del programa defino YY, para que le vaya sumando uno, y asi lo uso como eje x que va aumentando con cada recepcion.

Pero no se como cambiar las propiedades de una sola linea, sin cambiar las otras (para que cada linea tenga un color diferente, por ejemplo)

Otro problema es que me grafica puntitos, no una linea continua. Y tampoco se como modificar las propiedades del Picture.Box, por ejemplo para establecer una escala que vaya acorde con mis datos.

Y para colmo el VB que tengo no tiene el archivo de ayuda!!!!!!!!!!!!!

Bueno, si alguien puede ahorrarme tiempo, se lo agradezco, y si encuentro la solucion antes, la pongo aca para que les sirva a otros.

Aca les pongo el codigo para que vean como lo estoy haciendo, me base en las recomendaciones de Nocturno y Colores2 que vi en otros hilos.

  CantRecibidos = CantRecibidos + 1

  "Dato = Asc(Puerto.Input)
Dato = Asc(Puerto.Input)
  Select Case CantRecibidos
    Case Is = 1
      Dato0 = Dato * 0.024902
      Picture1.Line (YY, Dato0)-(YY, Dato0)
   " Dato0 = Dato
    Case Is = 2
      Dato1 = Dato * 0.024902
      Picture1.Line (YY, Dato1)-(YY, Dato1)
      "Dato1 = Dato
    Case Is = 3
      Dato2 = Dato * 0.024902
      Picture1.Line (YY, Dato2)-(YY, Dato2)
    "Dato2 = Dato
    Case Is = 4
      Dato3 = Dato * 0.024902
      Picture1.Line (YY, Dato3)-(YY, Dato3)
 "Dato3 = Dato
     
      CantRecibidos = 0
    YY = YY + 1

Gracias de antemano, y aguante este foro, que es el mejor!!!!!!!!!!!!

Desconectado batmand

  • PIC16
  • ***
  • Mensajes: 103
RE: Graficos con Picture.Line
« Respuesta #1 en: 10 de Noviembre de 2005, 12:07:00 »
Bueno, despues de romperme la cabeza un buen rato averigue algunas cosas:

El color se cambia super facil, solo se pone despues de la coma el color vb, o tambien lei por ahi que se puede poner como Long el valor de RGB

Quedo asi:

If Archivo = Fechact Then
    CantRecibidos = CantRecibidos + 1
    Dato = Asc(Puerto.Input)
  Select Case CantRecibidos
    Case Is = 1
      Dato0 = Dato * 0.024902
      Picture1.Line (YY, Dato0)-(YY, Dato0), vbRed
    Case Is = 2
      Dato1 = Dato * 0.024902
      Picture1.Line (YY, Dato1)-(YY, Dato1), vbBlue
    Case Is = 3
      Dato2 = Dato * 0.024902
      Picture1.Line (YY, Dato2)-(YY, Dato2), vbGreen
    Case Is = 4
      Dato3 = Dato * 0.024902
      Picture1.Line (YY, Dato3)-(YY, Dato3), vbBlack
     

Tambien logre que la linea me salga pareja, sin puntitos, modificando las propiedades de ancho del picture.box

Lo que hasta ahora no logro es poner una escala concreta en el sentido vertical (eje Y) para poder poner lineas y que cuando recibo los datos tenga una especie de grilla.

Cuando lo logre les aviso

chau,.chau


Desconectado LordLafebre

  • Moderador Global
  • DsPIC30
  • *****
  • Mensajes: 3529
    • Micros & micros
RE: Graficos con Picture.Line
« Respuesta #2 en: 10 de Noviembre de 2005, 12:59:00 »
Hola:

Batmand en el almacen te colgue un ejemplo que hice ya hace alguuuuuuuun tiempo y te puede servir de guia.... es para graficar funciones de hasta 7º grado, y tiene todo lo que necesitas.... alli tambien esta como hacer lo que quieres... divide el Picture en cuatro cuadrantes incluso puedes elegir la escala a la que quieres....

Revisalo a ver que te parece:

http://miarroba.com/foros/ver.php?foroid=348538&temaid=3830259

Suerte...!!! Sonrisa Gigante


 

anything