Cómo dibujar imágenes de funciones simples usando vb
(1) Crear un nuevo proyecto, crear un nuevo Form1 y agregarle un control de imagen y un control de comando
(2) Seleccione Para este control, haga clic derecho en "Copiar", haga clic derecho en "Pegar" en el espacio en blanco de la tabla, seleccione "Sí" en el cuadro de diálogo emergente, cree un control de comando de matriz, después de copiar , aparecerán un total de 7 en la tabla Control de comando;
(3) Copiar código:
Const Pi = 3.1415926535 'Definir pi
Dim a, wor
Atenuar i como entero
Función estática Loge(X)
Loge = Log(X) / Log(Exp(1))
Función final
'Define la función utilizada para imprimir caracteres en una ubicación en Imagen1
Función privada ImprimirPalabra(X, y, Palabra como cadena)
Con Imagen1
.Imagen1.Imprimir "Y"
'Dibujar eje Y
Para lin = -9 a 9
Imagen1 .Line (lin, 0) - ( lin, 0.25)
wor = PrintWord(lin - 0.5, -0.DrawWidth = 2
End Sub
Subcomando privado1_Click(Índice como entero)
Seleccionar índice de caso
Caso 0
Para a = -3 a 3 pasos Pi / 6000
Punto = DrawDot(a, a ^ 2, RGB(0, 0, 0))
Siguiente a
wor = PrintWord(4, 9, "Curva cuadrática y= x^2")
Caso 1
Para a = -9 a 9 pasos Pi / 6000
Punto = DrawDot(a, a, RGB(0 , 0, 0))
Siguiente a
wor = PrintWord(8, 5, "Curva primaria y=x")
Caso 2
Para a = - 9 a 3 pasos Pi / 6000
Punto = DrawDot(a, Exp(a), RGB(0, 0, 0))
Siguiente a
wor = PrintWord(4, 9, "Curva exponencial y=e^x")
Caso 3
Para a = 0,0001 a 9 pasos Pi / 6000
Punto = DrawDot(a, Loge(a), RGB(0, 0, 0))
Siguiente a
wor = PrintWord(8 , 3, "Curva logarítmica y =ln x")
Caso 4
Para a = -10 a 10 pasos Pi / 6000
Punto = DrawDot( a, Sin(a), RGB(0, 0, 0))
Siguiente a
wor = PrintWord
(-5, 2. "Curva sinusoidal y=sen x")
Caso 5
Para a = -10 a 10 pasos Pi / 6000
Punto = DrawDot(a, Cos(a), RGB(0, 0, 0))
Siguiente a
wor = PrintWord(-9, 2, "curva coseno y=cos x")
Caso 6
XY
Fin de selección
Fin de sub
Sub privado Form_Load()
Me.Caption = "¿Función matemática para dibujar gráficos? quot;"
Me.Show
Me.AutoRedraw = True
Picture1.AutoRedraw = True
Comando1(0).Caption = "Curva cuadrática"
Comando1(1).Caption = "Curva cuadrática"
Comando1( 2).Caption = "Curva exponencial"
Comando1(3).Caption = "Curva logarítmica"
Comando1(4).Caption = "Curva sinusoidal"
p >Comando1(5).Caption = "Curva de coseno"
Comando1(6).Caption = "Borrar"
XY
End Sub
Sub Form_Resize() privado
Imagen1.Width = Me.Width * 0.94
Imagen1.Height = Me.Height - (Command1(0).Height * 4 + 100)
Comando1(0).Arriba = Yo.Altura - (Comando1(0).Altura * 2.5 + 100)
Comando1(0).Izquierda = Yo. Ancho * 0,01
Para i = 1 a 6
Comando1(i).Arriba = Me.Altura - (Comando1(0).Altura * 2,5 + 100)
Comando1(i).Izquierda = Comando1(i - 1).Izquierda + 1000
Siguiente
XY
Para i = 1 a 6
Para i = 1 a 6
Para i = 1 a 6
Para i = 1 a 6
End Sub p >