东华大学软件课设之函数发生器.docxVIP

  • 6
  • 0
  • 约2.91千字
  • 约 12页
  • 2019-09-14 发布于广东
  • 举报
软件课程设计 目的 通过本课程设计实习,使学生在下列方面冇所了解和提高: 1、 常握Visual Basic进行程序设计的基木思路和方法 2、 能利用Visual Basic编程实现简单的任务 3、 结合控制系统理论用VB进行计算机控制仿真 二、 设计内容 实现各种函数发生器并显示 基本要求:实现下列函数发生器,正玄函数、方波函数、锯齿函数、三 角函数,函数的生成参数都可以通过菜单设定,并月?将生成的函数以图 形方式实时显示在窗口中。 1 ?正弦函数 J I番场黒1 |150 1100 |50 |0 |50 1100 |150 |200 |250 |300 |350 |400 J 富场黒1 出?-?l?P.°.?-?l?P I? I?P I?P.°.?-?l!出?-?l?P ▼动作?帧 回帧动作脚本1囹层名称背長 ?动作 ?彩片控制 ? gotoAn dPlay ? g otoAn d Sto p ? nextFrame ? nextScene ? on ? play ? prevFrame ? prevScene r 衣】l.c r ■ ■ ? ■ ■? + Q您? 9臺(国 St op (): nri i i i i i i i i i i i i i i i i i i i i i i i i i i i i nr ? 1 □ 1 5 10 15 20 25 30 期背晏.b 期背晏 (静态I r「「「 ? Jj *1^1 li| H| | 2 |12.0 fps | 0.1s 富场昙1 富场昙1 ”」!岀?「?UP,0.?「?I刃I? I刃MPP.,-.U?,°.?「?l?P.°.?」?l??0?「?|?po.... ▼动作?帧 a帧动作曲本2图层名称背長 凰动^ (D彩片控制 gotoAndPlay goto An dStop nextFrame n extSce ne on pby prevFrame prevScene stop stopAllSo unck nI ■学/而次 + 0牝①V晉? ao=7:a; B0=/:B; C0=/:C; _root. lineStyle(I, OxffOOff, 100): x=0; y=100* (-A0*MATH. sin (BO* (X-200) KO) )+200; .root ? moveTo (x^ y); while(x400) {x=x+0. 05; y=100* (-A0*MATH. sin(B0* (X-200)K0) )+200; .root ? lineTo (x^ y); } 20动作[未指走实傍£称](元件1) (p眈 ?彩片控制 止魁他釵 on (release) { gotoAndPlay(1);} gotoAndPlay goto An dStop nextFrame n extSce ne 2 ?方波函数 ▼时關 ^1 E B..I 层1 ±| ?|财.1 H][1 |12.0 fps 0.0s J 窗场是1 J |省场黒1 」聊?-?I 欲?「?l?PS―l??S―l!PS盹「宀I? I?Pl?PS?」?I卿?-?l?PS?-?l??.°.l?P.°.亠.I 鹤,, a帧动作脚本i囹层名称图层i + 0梵①V善(见 stopO : ?????????? on play prevFrame prevScene stop A I I C 1 V 川 I 第1行(共1行)?錨8列 %]动作[未指走实仇名称](元件1) on (release) { got oAndF^ay (1) ;} gotoAndPlay gotoAn dStop nextFrame nextScene on nlav )眈(P影片控制]帧动作脚本 )眈 (P影片控制 ]帧动作脚本2图昙2称图言1 gotoAndPlay gotoAndStop nextFrame n extSce ne on play prevFrame prevScene stop stop Al unds 浏览器/网第 彩片精控制 变星 剑牛/循环 打印 用户定义的函数 仇?口 @ H d财【?川2 lafM丨0?l$ G | + 0金①9晉(昱 IA=/:A; T=/:T: _root. lineStyle(1, OxffOOff, 100); x=0;y=100*A+200-50*A; _root. move To (x, y); while(x400) { y=y-100*A; _root. lineTo (x, y): x=x+T/2; _root. lineTo (x, y) y=y+100*A; _root. lineTo (x, y) x=x+T/2; _root. lineT

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档