自己动手做一个数学函数作图器

• 自己动手做一个数学函数作图器　学习中我们经常会遇到一些要求作图的题目，数学就是一个很好的例子，君不见，哪一个学生不是整天拿着一根尺子几只笔在画啊画的？要是能有一个作图的软件该有多好啊！虽然拿来主义是我们一向的作风，可是只顾拿来而从不动一下脑筋又有点儿说不过去，所以，今天的课题就是——用VB做一个数学函数作图器！
  
  　　我们先来了解一下VB的坐标系统，VB的坐标系统可分为“窗体的坐标系统”和“对象的坐标系统”两种，但是这两种坐标系统均是以屏幕的左上角为原点(0,0)，这和我们平时所选取的以中心为原点显然很不相符，而且使用起来也很不方便。所以，我们要用VB提供的Scale来自定义坐标系，格式如: Picture1.Scale(-10,10)-(10,-10)，意思就是把整个Picture1控件定义为一个20×20的区域用于绘图，以Picture1的中心为原点(0,0)。
  有了上面的基础，我们就可以用Pset（画点）、Line（画线）等，轻轻松松地来画函数的图像了。
  
  　　启动VB，建立一标准EXE工程，再在窗口上如图所示地布置5个Command Button控件和1个PictureBox控件，输入以下的代码就OK了。
  
  
  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
  '定义画点函数
  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
  nd Sub
  Private Sub Command1_Click() '画正弦曲线
  '用For循环绘点，使其按正弦规律变化。
  '步长小，使曲线比较平滑，还能形成动画效果
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 自己动手做一个数学函数作图器 相关文章：
• ·Vista系统实现自动关机技巧
• ·Windows Vista中如何自定义语言栏图标
• ·创意设计：多姿多彩的自然标本玻璃砖
• ·CSS实例布局:上中下三行 中间自适应
• ·BIOS开机自检的中文解释
• ·卡巴斯基报告称恶意软件近三成来自中国
• ·Vista系统自然壁纸欣赏8
• ·Windows Vista系统自然壁纸欣赏(七)
• ·Windows Vista无法上网 让它自己修复网络
• ·一位拥有5位数QQ号码用户的自白
• 自己动手做一个数学函数作图器 相关软件
• ·自燃魔咒
• ·转折点:自由的陨落宣传片
• ·《铸造自由》v1.9.23升级补丁下载
• ·自由推箱子
• ·《专业自行车经理2007》试玩
• ·做好每一个自己
• ·《倚天Ⅱ自由世界》客户端
• ·PSP自动更换壁纸插件及教程
• ·PSP自制系统IRSHELL最新3.62版
• ·自摸麻将

上一篇:DIY自己的Flash播放器

下一篇:vb打造魔法调色盘

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐