Prometi a mi colegio que entregaria un trabajo de graficos.
Pense que sabia hacerlo.Pero no
no se que hacer !!!
haci que decide buscar ayuda
estoy tratando hace un monton un trabajo
sobre un programa que haga graficos de cordenadas de X e Y
logre poco con un libro de programación que tengo.pero no logre lo que buscaba.Ayudenme porfass
!!!
es un programita que dibuja en un picturebox graficos.
esto es lo que saque del libro:como lo saque del libro y estoy muy desesperado no pude decifrarlo por eso no tiene comentarios.perdonen
Option Explicit
Dim X0 As Integer
Dim X1 As Integer
Dim X As Single
Dim Y As Single
Dim c
Dim PosX As Integer
Dim PosY As Integer
Private Sub cmdDibujar_Click()
PosX = 0
PosY = Picture1.Height / 2
X0 = Val(lblX0)
X1 = Val(lblX1)
c = 1
If X0 = 0 Then X0 = 1
Picture1.DrawWidth = 2
For X = X0 To X1 Step c
Y = -Y * 4: Y = Y / Picture1.Width + PosY: PosX = X + (Picture1.Width / 2)
Picture1.PSet (1 + PosX, 1 + Y)
Next X
End Sub
Private Sub Form_Activate()
Picture1.DrawWidth = 1
Picture1.Line (0, Picture1.Height / 2)-(Picture1.Width, Picture1.Height / 2)
Picture1.Line (Picture1.Width / 2, 0)-(Picture1.Width / 2, Picture1.Height)
End Sub
Private Sub HSX1_Change()
lblX1 = HSX1.Value
End Sub
Private Sub HSX0_Change()
lblX0 = HSX0.Value
End Sub
Mostrar Mensajes
