VB系统的坐标原点在左上角,X轴的正方向是水平向右,而Y轴的正方向是垂直向下.所以,要绘制三角函数的曲线,自己可以通过改变点坐标的方法来实现,当然,VB.NET提供了相应的方法可以来实现坐标变换,也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现.
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
? ? Dim MyPen As New Pen(Color.Black, 1)
? ? Dim MyBrush As New SolidBrush(Color.Orange)
End Sub
? ? '声明横向和纵向比例变量
? ? '先获得正弦值,保存到点坐标数组
? ? Dim i As Integer
? ? Next
? ? '采用绘制光滑线连接点的方式绘制曲线
? ? MyGraphics.DrawCurve(MyPen, MyPoints)
End Class
显示的效果图：
用vb画出简易函数图像的操作步骤为：
（1）新建一个工程,新建一个Form1,在上面添加一个picture控件和一个command控件；
Dim a, wor
Dim i As Integer
Static Function Loge(X)
Loge = Log(X) / Log(Exp(1))
End Function
'定义用于在Picture1上的一个位置打印字符函数
Private Function PrintWord(X, y, Word As String)
With Picture1
.CurrentX = X
.CurrentY = y
End With
Picture1.Print Word
Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
Sub XY() '建立直角坐标系
Picture1.DrawWidth = 1 '设置线条宽度
Picture1.Cls
'设定用户坐标系,坐标原点在Picture1中心
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Print "X"
'画 X 轴
Picture1.Print "Y"
'画 Y 轴
If lin 0 Then
End If
Next lin
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Next a
Case 1
Dot = DrawDot(a, a, RGB(0, 0, 0))
Dot = DrawDot(a, Exp(a), RGB(0, 0, 0))
Dot = DrawDot(a, Loge(a), RGB(0, 0, 0))
Dot = DrawDot(a, Sin(a), RGB(0, 0, 0))
Dot = DrawDot(a, Cos(a), RGB(0, 0, 0))
XY
End Select
Private Sub Form_Load()
Me.Caption = "数学函数作图?quot;"
Me.Show
Me.AutoRedraw = True
Picture1.AutoRedraw = True
Command1(0).Caption = "二次曲线"
Command1(1).Caption = "一次曲线"
Private Sub Form_Resize()
Command1(0).Left = Me.Width * 0.01
Command1(i).Left = Command1(i - 1).Left + 1000
Next
以上就是土嘎嘎小编为大家整理的vb.net绘制函数图相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！