SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: MeGaS en Domingo 9 de Diciembre de 2007, 20:35

Título: Graficar Puntos En Visual Basic
Publicado por: MeGaS en Domingo 9 de Diciembre de 2007, 20:35
Hola amigos, soy nuevo en este foro, y me gusto mucho esta completo, yo soy un totalmente novato para esto pero me hice de un programa que calcula el equilibrio de fuerzas con vectores

pues todo el calculo ya esa bien pero ahora mi problema es la graficada

va a graficar solamente teniendo en cuenta el angulo, pero declare mis variables F1 que es la magnitud y a1 que es el angulo

y con simples matematicas encontramos que el punto Y=f1sina1 y para X=f1cosa1

como lo grafico que codigo utilizo, ayuda con este novato

Gracias por su atencion
Título: Re: Graficar Puntos En Visual Basic
Publicado por: Nebire en Lunes 10 de Diciembre de 2007, 03:49
Puedes usar la función 'pset' (set point) es una propiedad vinculada al formulario y a los controles picturebox.

Su uso es el siguiente objeto.pset [step  opcional] (x,y), color
si pones el step los valores de x e y son relativos a las coordenadas actuales, si no se indica step, las coordenadas x e son absolutas. en color debes definir un color de varias formas: usando constantes de quickbasic antiguo (sólo 16 colores), usando un valor de tipo long (trango  0-16.777...) o usando la función rgb que es bastante cómoda donde defines valores para el rojo, verde y azul individualmente con valores de byte (0-255)

Un ejemplo; haz un nuevo proyecto coloca un picturebox sin cambiar su nombre, en el código pega lo siguiente y pulsa la tecla f5  para ejecutarlo, luego pulsa dentro del picture, o mueve el ratón... :

Código: Text
  1.  
  2. Private Sub Picture1_Click()
  3.     For i = 1 To 1000
  4.         Picture1.PSet (i, 20 + i), RGB(22, 44, 210)
  5.     Next
  6. End Sub
  7.  
  8. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  9.     Picture1.PSet (X, Y), RGB((X Mod 256), 80, (Y Mod 256))
  10. End Sub
  11.  
  12.  

nota que si pones encima una ventana, luego el dibujo ha desaparecido, el gráfico no es persistente, para evitar esto debes activar la propiedad 'autoredraw'=true del control picturebox.

Cuando quieras salvar el dibujo a un fichero de imagen añade un botón y coloca el siguiente código:
Código: Text
  1.  
  2. Private Sub Command1_Click()
  3.     Dim ruta As String
  4.    
  5.     On Local Error GoTo falloGuardar
  6.     ruta = "c:\midibujo.bmp"
  7.     SavePicture Picture1.Image, ruta
  8.    
  9.     MsgBox "La imagen se guardó en la ruta: " & ruta, vbInformation, "Imagen guardada..."
  10.     Exit Sub
  11.    
  12. falloGuardar:
  13.         MsgBox "Falló el intento de guardar la imagen en la ruta: " & ruta, vbCritical, "Imagen no guardada..."
  14. End Sub
  15.  
  16.  

También puedes usar los métodos 'line y 'circle' ... para leer puntos usa 'point'.
Título: Re: Graficar Puntos En Visual Basic
Publicado por: Epa en Miércoles 27 de Febrero de 2008, 07:44
Buenas

Si sigues interesado en el tema, creo que seria mas conveniente usar lineas.
Si tienes el modulo y el angulo, facilmente puedes sacar el extremo del vector. Y con el punto de aplicacion y el extremo puedes dibujar una linea.
Ten en cuenta que en las pcs el eje Y esta invertido, por lo que debes invertir todos los valores de y.
Y para centrar el origen usas las propiedades scaletop y scaleleft, que sirven para desplazar el origen.
Otro punto a notar es que las funciones seno y coseno en vb funcionan con radianes.