第一个Authorware例子
2006-04-19 08:58
323 查看
对于Flash和Authorware两个软件,开始的时候自认为Flash的作品短小精悍,有利于网络传播,所以关注的比较多;但是现在发现Authorware对于课件制作方面有独特的优势:方便!
下面是一个Authorware制作时钟的例子:
1、调整窗口
ResizeWindow(300,300)
2、画表盘
r:=130
h:=150
k:=150
SetFrame(1,RGB(255,0,0))
Circle(1,h-3,k-3,h+3,k+3)
Circle(2,h-r,k-r,h+r,k+r)
angle:=0
repeat while angle<=12
x1:=r*COS(angle)+h
y1:=k*SIN(angle)+k
Circle(4,x1-4,y1-4,x1+4,y1+4)
angle:=angle+Pi/6
end repeat
3、画表针
xsec:=(r-20)*COS(-0.5*Pi+Sec*Pi/30)+h
ysec:=(r-20)*SIN(-0.5*Pi+Sec*Pi/30)+k
xmin:=(r-40)*COS(-0.5*Pi+Minute*Pi/30)+h
ymin:=(r-40)*SIN(-0.5*Pi+Minute*Pi/30)+k
xhour:=(r-70)*COS(-0.5*Pi+5*Hour*Pi/30+Minute/360*Pi)+h
yhour:=(r-70)*SIN(-0.5*Pi+5*Hour*Pi/30+Minute/360*Pi)+k
Line(3,h,k,xsec,ysec)
Line(5,h,k,xmin,ymin)
Line(7,h,k,xhour,yhour)
4、退出
quit()
几个函数的说明:
[/code]
SetFrame(
Line(
[/code]
下面是一个Authorware制作时钟的例子:
1、调整窗口
ResizeWindow(300,300)
2、画表盘
r:=130
h:=150
k:=150
SetFrame(1,RGB(255,0,0))
Circle(1,h-3,k-3,h+3,k+3)
Circle(2,h-r,k-r,h+r,k+r)
angle:=0
repeat while angle<=12
x1:=r*COS(angle)+h
y1:=k*SIN(angle)+k
Circle(4,x1-4,y1-4,x1+4,y1+4)
angle:=angle+Pi/6
end repeat
3、画表针
xsec:=(r-20)*COS(-0.5*Pi+Sec*Pi/30)+h
ysec:=(r-20)*SIN(-0.5*Pi+Sec*Pi/30)+k
xmin:=(r-40)*COS(-0.5*Pi+Minute*Pi/30)+h
ymin:=(r-40)*SIN(-0.5*Pi+Minute*Pi/30)+k
xhour:=(r-70)*COS(-0.5*Pi+5*Hour*Pi/30+Minute/360*Pi)+h
yhour:=(r-70)*SIN(-0.5*Pi+5*Hour*Pi/30+Minute/360*Pi)+k
Line(3,h,k,xsec,ysec)
Line(5,h,k,xmin,ymin)
Line(7,h,k,xhour,yhour)
4、退出
quit()
几个函数的说明:
ResizeWindow([code]width,
height)按指定的width和height调整窗口大小
[/code]
SetFrame(
flag[,
color]) 设置Frame的样式,后面的RGB()函数是颜色样式
Circle([code]pensize,
x1,
y1,
x2,
y2) 画圆(椭圆),pensize定义线条的粗细,-1表示全部填充;后面的坐标定义了一个假象的外接矩形
Line(
pensize,
x1,
y1,
x2,
y2) 画直线
[/code]
相关文章推荐
- (一)ExtJs学习前的准备工作,及第一个Ext小例子HelloWorld
- pyplot tutorial 第一个例子
- 第一个Ajax例子 Ajax+struts2
- dubbo的第一个入门的例子
- JNI学习笔记(一)第一个JNI详细例子配图文
- 第一个使用spring实现hellospring的例子
- 第一个hibernate例子
- Hibernate第一个例子(一)
- 初识struts2,第一个完整的例子
- 新手上路之Hibernate:第一个Hibernate例子
- AR之路--artoolkit5让第一个例子运行起来
- 学习Spring.NET - 第一个例子
- Hibernate——第一个例子程序
- Autofac 解释第一个例子 《第一篇》
- android 的第一个小例子helloworld
- 刚看了一点Spring .NET, 从第一个例子MovieFinder说起
- Autofac 解释第一个例子 《第一篇》
- 1.unity3d Astar pathfinding 第一个例子
- Spring的第一个例子
- 第一个 COM 程序例子