vb.net求斜率 c语言求斜率

如何用vb画斜率变化的直线

用line命令!固定第一个座标位置,再用斜率计算第二点的座标位置!

创新互联公司为企业级客户提高一站式互联网+设计服务，主要包括成都网站建设、成都网站设计、手机APP定制开发、重庆小程序开发公司、宣传片制作、LOGO设计等，帮助客户快速提升营销能力和企业形象，创新互联各部门都有经验丰富的经验，可以确保每一个作品的质量和创作周期，同时每年都有很多新员工加入，为我们带来大量新的创意。 

如何用计算机求直线的斜率

我来帮你好了，可以用VB编程来解决，至于专门的软件嘛，应该没有，这个功能只是一个小小的程序，我还没有发现有软件会实现这个功能

求一个计算点关于直线对称点的vb代码

思路：

1、直线的斜率k可以求出

2、直线pq的斜率为直线斜率的倒数1/k

3、pq有点、有斜率，可以写出点斜式

4、求原直线与pq的交点（直线方程联立，即二元一次方程组）s

5、求出ps的横向或纵向距离，加倍，就是q

代码（文本框的名字分别为：x,y,a,b,c）:

Private Sub Command1_Click()

If b = 0 Then

'竖线

label1= "Q(" -2 * c / a - x "," y ")"

ElseIf a = 0 Then

'横线

label1= "Q(" x "," -2 * c / b - y ")"

Else

'斜线

k = -a / b

b0 = -c / b

X1 = (y + x / k - b0) / (k + 1 / k) '垂足

Y1 = k * X1 + b0

label1= "Q(" 2 * X1 - x "," 2 * Y1 - y ")"

End If

End Sub

大佬们~VisualStudio中vb.net如何画三角函数图像？

VB系统的坐标原点在左上角，X轴的正方向是水平向右，而Y轴的正方向是垂直向下。所以，要绘制三角函数的曲线，自己可以通过改变点坐标的方法来实现，当然，VB.NET提供了相应的方法可以来实现坐标变换，也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。

下面是我通过自己变换实现的示例，提供参考；我的环境是VB.NET 2010

Imports System.Math

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  '1，获得一个Graphics对象

  Dim MyGraphics As Graphics

  MyGraphics = PictureBox1.CreateGraphics

  '2，定义一个Pen对象，用于绘制图形（轮廓线）

  Dim MyPen As New Pen(Color.Black, 1)

  '3，定义一个Brush对象，用于填充图形（如果需要填充的话）

  Dim MyBrush As New SolidBrush(Color.Orange)

  MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  '1，获得一个Graphics对象

  Dim MyGraphics As Graphics

  MyGraphics = PictureBox1.CreateGraphics

  '2，定义一个Pen对象，用于绘制图形（轮廓线）

  Dim MyPen As New Pen(Color.Black, 1)

  '3，定义一个Brush对象，用于填充图形（如果需要填充的话）

  Dim MyBrush As New SolidBrush(Color.Orange)

  '声明横向和纵向比例变量

  Dim Heng As Integer = 20

  Dim Zong As Integer = 50

  '先获得正弦值，保存到点坐标数组

  Dim MyPoints(700) As Point

  Dim i As Integer

  For i = 0 To 700

      MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)

  Next

  '采用绘制光滑线连接点的方式绘制曲线

  MyGraphics.DrawCurve(MyPen, MyPoints)

End Sub

End Class

显示的效果图：

vb中如何根据一个坐标和斜率编直线方程

知坐标（x0,y0)和斜率k

则有y0=kx0+b,=  b=y0-kx0

所以 方程为 y=kx+(y0-kx0)

要在VB中画出方程图像来，就有点复杂了。以下是代码。部分代码参考网络。已经标注清楚

控件部分：三个文本，两个按键，一个picture，全部不改名。

文本1输入斜率，文本2输入X0,文本3输入Y0。按钮1作图。按钮2清空所作图形。保持坐标轴。如果对VB的坐标轴有疑问，请查阅百度或其它资料。

以下是全部代码：

Const Pi = 3.1415926535 '定义圆周率

Dim a, wor '定义用于在Picture1上的一个位置打印字符函数

Private Function PrintWord(x, y, Word As String)

With Picture1

.CurrentX = x

.CurrentY = y

.ForeColor = RGB(0, 0, 255)

End With

Picture1.Print Word

End Function

'以下坐标代码“借”自 《自己动手做一个数学函数作图器》

'出处：电脑爱好者 2004年02月14日 作者：陈新新 责任编辑：zwg

'

Private Function DrawDot(Px, Py, Color) '定义画点函数

Picture1.PSet (Px, Py), Color

End Function

Sub XY() '建立直角坐标系

Picture1.DrawWidth = 1 '设置线条宽度

Picture1.Cls '设定用户坐标系，坐标原点在Picture1中心

Picture1.Scale (-10, 10)-(10, -10)

Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)

Picture1.Line -(9.5, 0.5), RGB(0, 0, 255)

Picture1.Line (10, 0)-(9.5, -0.5), RGB(0, 0, 255)

Picture1.ForeColor = RGB(0, 0, 255)

Picture1.Print "X" '画 X 轴

Picture1.Line (0, -10)-(0, 10), RGB(0, 0, 255)

Picture1.Line -(0.5, 9.5), RGB(0, 0, 255)

Picture1.Line (0, 10)-(-0.5, 9.5), RGB(0, 0, 255)

Picture1.Print "Y" '画 Y 轴

For lin = -9 To 9

Picture1.Line (lin, 0)-(lin, 0.25)

wor = PrintWord(lin - 0.5, -0.5, Str(lin))

Picture1.Line (0, lin)-(-0.25, lin)

If lin  0 Then

wor = PrintWord(-0.9, lin, Str(lin))

End If

Next lin

Picture1.DrawWidth = 2

End Sub

Private Sub Command2_Click() '清空

XY

End Sub

Private Sub Form_Load()

Me.Show

Me.AutoRedraw = True

Picture1.BackColor = vbWhite

XY

End Sub

'以上代码摘自 

Private Sub Form_Resize()

Picture1.Width = Me.Width * 0.9

Picture1.AutoRedraw = True

End Sub

Private Sub Command1_Click()

Dim x, y, x0, y0, k

Dim b

k = Val(Text1.Text)

y0 = Val(Text3.Text)

x0 = Val(Text2.Text)

b = y0 - k * x0

Dim fangq As String

fangq = "直线：y="  Str(k)  "x"

If k = 0 Then fangq = "直线：y=" '对斜率为0的情况作出处理。

If b = 0 Then

fangq = fangq  "+"  Str(b)

Else

fangq = fangq  Str(b)

End If

For x = -8 To 8 Step Pi / 6000    '作直线

Dot = DrawDot(x, k * x + b, RGB(255, 255, 0))

Next x

If Not k = 0 Then      '输出名称

wor = PrintWord(-b / k - 2, 2, fangq)

Else

wor = PrintWord(5, b, fangq)

End If

End Sub

附运行图