graficos
como o cual es la funcion para generar la grafica de seno, coseno en V.B.
Haz un proyecto nuevo, coloca un botón de comando y pega el sig. código:
Private Sub Command1_Click()
Dim c As Single
AutoRedraw = True
For c = -7 To 7 Step 0.01
PSet (c * 1000, 1500 - Sin(c) * 1000)
Next
End Sub
Te va a graficar una onda seno. La función es Sin, la del coseno no me acuerdo pero busca Sin en la ayuda y van a aparecer las otras.
Lo del Autoredraw es sólo para que la imagen no se pierda al cambiar de ventana, lo puedes poner en tiempo de diseño si quieres.
Saludos,
Javier
Private Sub Command1_Click()
Dim c As Single
AutoRedraw = True
For c = -7 To 7 Step 0.01
PSet (c * 1000, 1500 - Sin(c) * 1000)
Next
End Sub
Te va a graficar una onda seno. La función es Sin, la del coseno no me acuerdo pero busca Sin en la ayuda y van a aparecer las otras.
Lo del Autoredraw es sólo para que la imagen no se pierda al cambiar de ventana, lo puedes poner en tiempo de diseño si quieres.
Saludos,
Javier
