vbnet画sin的简单介绍

VB.NETsin曲线

Dim Points1(30) As Point

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

Timer1.Enabled = True

Timer1.Interval = 200

For i = 0 To 30

Points1(i) = New Point(i * 45, Math.Sin(i) * (PictureBox1.Height - 50) / 9)

Points1(i).Offset(-450, Math.Abs(Points1(i).Y - (PictureBox1.Height - 50) / 9) * 3.55 + 43)

Next

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static j As Long

j = j + 1

PictureBox1.Image = x_y(PictureBox1, j)

End Sub

Private Function x_y(ByVal pic As PictureBox, ByVal x As Long) As Bitmap

Dim b As New Bitmap(pic.Width, pic.Height)

Dim g As Graphics = Graphics.FromImage(b)

Dim c

Dim j

g.Clear(Color.YellowGreen)

Dim p As New Pen(Color.WhiteSmoke)

p.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(p, 20, pic.Height - 20, 20, 10)

g.DrawLine(p, 20, pic.Height - 20, pic.Width - 20, pic.Height - 20)

Dim i As Double

Dim bs As New SolidBrush(Color.Red)

Dim po As New Point

g.DrawString(-2, Me.Font, bs, 12, pic.Height - 18)

po.X = 0

po.Y = pic.Height - 45

For i = -1.6 To 4 Step 0.4

g.DrawString(Math.Round(i, 1), Me.Font, bs, po.X, po.Y)

g.DrawLine(p, po.X + 18, po.Y + 5, po.X + 20, po.Y + 5)

Dim p1 As New Pen(Color.Blue)

p1.DashStyle = Drawing2D.DashStyle.Dash

g.DrawLine(p1, po.X + 28, po.Y + 5, pic.Width - 20, po.Y + 5)

po.Y -= (pic.Height - 50) / 9

Next

po.X = 20

po.Y = pic.Height - 20

For c = 0 To 14400 Step 1200

If (c / 1200) 0 Then

g.DrawString((c / 1200) + x, Me.Font, bs, po.X - j, po.Y + 5)

End If

g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)

po.X += (pic.Width - 50) / 12

Next

For i = 0 To Points1.Count - 1

Points1(i).Offset(45, 0)

Next

If x Mod 6 = 0 Then

For i = 0 To Points1.Count - 1

Points1(i).Offset(-270, 0)

Next

End If

g.DrawCurve(Pens.Red, Points1)

'For i = 0 To Points1.Count - 1

'g.DrawString(Math.Sin(i), Me.Font, Brushes.Red, Points1(i))

'Next

Return b

End Function

大佬们~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.net中绘制一条 sin波形曲线，纵轴是峰值，横轴是时间，刚才你教我那个是单独画一条sin曲线，

根据时间变化绘制的，即时的，或许可以用chart图表控件，百度会出现微软网站的资料。

sin曲线永远是哪个样子，你是怎么变化？一般的移动，可以用offset控制向左平移，右边则增加点，看上去应该是在移动

关于vbnet画sin和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。