第一个Authorware例子

对于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()

几个函数的说明:

ResizeWindow(width, height)按指定的width和height调整窗口大小
SetFrame( flag [, color]) 设置Frame的样式,后面的RGB()函数是颜色样式
Circle(pensize, x1, y1, x2, y2) 画圆(椭圆),pensize定义线条的粗细,-1表示全部填充;后面的坐标定义了一个假象的外接矩形

Line(pensize, x1, y1, x2, y2) 画直线



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值