VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >

  • VB.net绘制tan函数图像

PictureBox的size为(356, 246),BorderStyle为Fixed3D，经测试border的宽度为3，为了使得绘制出来的图像有完整的周期，所以size长宽都多了6。

按tan函数算出的值是正数的话，在一般坐标系中此点在x轴上方，但是在计算机中y轴向下方向是正，向上是负，如果不经处理的话，此点会处于x轴下方，所以会出现绘制出来的图形是正确图像沿y轴的翻转。

如下图1：

图1：不经过处理的tan函数图像

所以要对tan函数计算出的值取负值，则可得到正确tan函数的图像。

如下图2：

图2：经过处理的tan函数图像

代码：

 

  Private Sub DrawTan()

  Dim x As Single

  Dim y As Single

  Dim z As Single



  P = New Pen(Color.Red)

  For z = -175 To 175 Step 0.01

  x = z + 175

  y = -Tan(z * 2 * PI / 175) * 10 + 120

  g.DrawLine(P, x, y, x + 1, y)

  Next z



  End Sub


相关教程