Red de conocimiento informático - Material del sitio web - Cómo dibujar imágenes de funciones simples usando vb

Cómo dibujar imágenes de funciones simples usando vb

Los pasos para dibujar una imagen de función simple en VB son:

(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