china.com
主页
新闻
体育
游戏
文化
教育
健康
财经
科技
旅游
军事
娱乐
商贸
  科技动态 硬件广场 下载基地 网络教室 网络冲浪 科学博览 移动时代 手机上网 桌面壁纸 科技商情  


用VB绘制正弦动画曲线

2000-09-28 14:29:05

  VB提供了绘图的基本方法,如Pset、Line、Circle,能够绘出点、直线、圆等基本图形,但没有提供绘曲线的方法。其实,我们可以灵活运用基本绘图方法,来绘出所需要的曲线,甚至达到动画的效果。

  一、VB坐标系介绍
  VB里有三种坐标系,屏幕坐标系、窗体坐标系和窗体内的对象坐标系,这三种坐标系都是以其左上角为坐标原点,与平常使用的几何坐标系不一致,我们绘图时感到不习惯。VB允许编程人员自定义坐标系,根据需要定义坐标原点的位置。

  自定义坐标系的方法是Scale,语法格式:

  Scale (X1,Y1) - (X2,Y2)

  其中: X1是绘图区域左上角的横坐标;

  Y1是绘图区域左上角的纵坐标;

  X2是绘图区域右下角的横坐标;

  Y2是绘图区域右下角的纵坐标。

  例如:Scale (-320,240) - (320,-240) 定义了绘图区域大小为640×480,坐标原点(0,0)在绘图区域中心。

  二、绘制正弦动画曲线
  启动VB6,新建标准EXE工程,添加一个PictureBox控件,两个CommandButton控件到窗体,其Caption属性值分别设为正弦曲线和结束。如图1:

265496__000928b1-1.jpg
  图1

  双击Command1,打开代码编辑器窗口,相应事件的代码如下:

  通用声明模块:

  Const pi = 3.14159

  Dim a

  Private Sub Command1_Click() '画正弦曲线

  '首先清除picture1内的图形

   Picture1.Cls

   'Scale方法设定用户坐标系,坐标原点在Picture1中心

   Picture1.ScaleMode = 0

   Picture1.ScaleMode = 3

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

   '设置绘线宽度

   Picture1.DrawWidth = 1

   '绘坐标系的X轴及箭头线

   Picture1.Line (-10, 0)-(10, 0), vbBlue

   Picture1.Line (9, 0.5)-(10, 0), vbBlue

   Picture1.Line -(9, -0.5), vbBlue

   Picture1.ForeColor = vbBlue

   Picture1.Print "X"

   '绘坐标系的Y轴及箭头线

   Picture1.Line (0, 10)-(0, -10), vbBlue

   Picture1.Line (0.5, 9)-(0, 10), vbBlue

   Picture1.Line -(-0.5, 9), vbBlue

   Picture1.Print "Y"

   '指定位置显示原点O

   Picture1.CurrentX = 0.5

   Picture1.CurrentY = -0.5

   Picture1.Print "O"

   '重设绘线宽度

   Picture1.DrawWidth = 2

   '用For循环绘点,使其按正弦规律变化。步长值很小,使其形成动画效果

   For a = -2 * pi To 2 * pi Step pi / 6000

   Picture1.PSet (a, Sin(a) * 5), vbRed

   Next

   '指定位置显示描述文字

   Picture1.CurrentX = pi / 2

   Picture1.CurrentY = -7

   Picture1.ForeColor = vbBlack

   Picture1.Print "正弦曲线示意"

  End Sub

  运行后效果如图2。

265496__000928b1-2.jpg
  图2

  以上程序代码在VB 6.0,Windows 98中调试通过。


  摘自《赛迪网》 许俊/文

404 Not Found

404 Not Found


nginx


科技检索


中华网推荐

  • 1000名医生在线咨询

  • 中国足球队官方网站

  • 鸦片玫瑰(新版)

  • 精选股票天地

  • 闪光的flash教程

  • 中华网汽车世界

  • 为你的爱情出谋划策

  • 网文精选——野百合集

  • 世界文化遗产在中国

  • 历届香港小姐风姿集



  •  


    网络教室编辑信箱
    版权声明 | 本站检索 | 联系方法 | 刊登广告 | 使用说明 | 关于中华网 | 豁免条款

    版权所有 中华网