Cómo usar vb para establecer una ecuación lineal basada en coordenadas y pendiente

Conociendo las coordenadas (x0, y0) y la pendiente k

entonces tenemos y0=kxb,=>?b=y0-kx0

Entonces ¿Paño de lana? La ecuación es: y=kx+(y0-kx0)

Graficar la ecuación en VB es un poco más complicado. A continuación se muestra el código. Algunos códigos hacen referencia a Internet. La parte de control ha sido marcada claramente: tres textos, dos botones y una imagen, todos los nombres no han sido cambiados.

El texto 1 ingresa la pendiente, el texto 2 ingresa X0 y el texto 3 ingresa Y0. El botón 1 hace el gráfico. El botón 2 borra el gráfico. Conserva las hachas. Si tiene preguntas sobre los ejes de coordenadas de VB, consulte Baidu u otra información.

El siguiente es todo el código: Const?Pi?=?3.1415926535? 'Definir pi Dim?a,?wor? 'Definir una función para imprimir caracteres en una determinada posición en Imagen1 ¿Privado?Función?ImprimirPalabra (x,?y,?Palabra?Como?Cadena) Con?Imagen1 .CurrentX?=?x .CurrentY?=?y .ForeColor?=?RGB(0,?0,?255) ¿Fin?Con Imagen1.Imprimir? ¿Fin de palabra? Función 'Los siguientes códigos de coordenadas están "tomados prestados" del libro "Crea tu propia función matemática".

Graficador de funciones matemáticas hágalo usted mismo 'Procedencia: ¿entusiastas de la informática?14 de febrero de 2004?Autor: Chen XinxinChen Xinxin Responsabilidad: zwg '/pcedu/empolder/gj/vb/0203/42540.html ¿Privado?Función?DrawDot(Px, ?Py,?Color)?Definir la función DrawDot Picture1.PSet(Px,?Py),?Color End?Crear un sistema de coordenadas cartesianas

Picture1.DrawWidth?=?1?'Establecer el ancho de línea Picture1.Cls?'Establece el sistema de coordenadas del usuario, el origen está ubicado en el centro de Picture1 Picture1.Scale?(-10,?10)-(10,?Picture1.Line?(-10,?0)-(10). ,?0),?RGB (0,?0,?255)Imagen1.Línea?(-9.5,?0.5),?Línea?(10,?0)-(9.5,?-0.5),?RGB(0 ,?0,?255) Imagen1.ForeColor?=?RGB(0,?0,?255) Imagen1.Imprimir?"X"?' Dibujar el eje X Imagen1.Línea?(0,? -Línea?(0, ?-10)-(0, ?10),?RGB(0,?0,?255) Imagen1.Línea?(0.5,?9.5),?RGB(0,?0,?255) Imagen1.Línea?( 0,?10)-(- 0.5,?9.5),?RGB(0,?0,?255) Imagen1.Imprimir?Imagen1.Imprimir?"Y"?'Dibujar eje Y para?-9?A?9 Imagen1 .Línea?(lin,?0 )-(lin,?0.25) wor?=?0.5,-0.5,?Str(lin)) Imagen1.Línea?(0,?lin)-(-0.25,?lin) Si ?lin?<>?0? Entonces wor?=?PrintWord(-0.9,?lin,?Str(lin))

Fin ?If

Siguiente?lin

Imagen1.DrawWidth? =?2

Fin?Sub

¿Privado?Sub?Command2_Click()?Borrar

XY

Fin?Sub

Privado?Sub?Form_Load()

Me.Show

Me.AutoRedraw?=?True

Picture1.BackColor?=? vbWhite

XY

End?Sub

'El código anterior está tomado de ?/pcedu/empolder/gj/vb/0203 /42540.html

Privado?Sub?Form_Resize()

Imagen1.Ancho?=?Me.Width?*?0.9

Imagen1.Ancho?AutoRedraw ?=?True

Fin?Sub

Privado?Sub?Command1_Click()

Dim?x, ?y, ?x0, ?y0, ?k

Dim ?b

k?=?Val(Texto1.)

y0?=?Val(Texto3.Text)

x0?=?Val(Text2.Text)

b?=?y0?-?k?*?x0

¿Dim?Línea recta: y="? & ? Str(k)? &?" x"

If?k?=?0?Then?fangq?=?" Línea recta: y = "?"' maneja el caso donde la pendiente es 0.

Si?b?>=?0?Entonces fangq?=?fangq?

Si no

fangq?=?fangq?&?Str(b)

¿Fin?Si

Para?x?=?-8?to?8?Step?Pi?/?6000'Dibujar una línea recta Dot?=?DrawDot(x, ? k?*?x?+?b,?RGB(255,?255,?0))

¿Siguiente?x

Si?No?k?=?0? Entonces ?'Nombre de salida wor?=?PrintWord(-b?/?k?-?2,?2,?fangq) Else wor?=?PrintWord(5,?b,?fangq)

¿Fin? Si

Fin?Sub

Gráfico de ejecución adjunto

¿Fin?