第乙個Authorware例子

2021-04-06 19:39:48 字數 1335 閱讀 2769

對於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

) 畫直線

第乙個入門例子

1 配置thinkphp 2 嘗試控制器和檢視 1 資料庫 在開始之前,我們首先在資料庫thinkphp中建立乙個think data資料表 以mysql資料庫為例 create table if not exists think data id int 8 unsigned not null au...

第乙個sparkstream例子

用 toc 來生成目錄 第乙個sparkstream例子 在這個例子中,程式從監聽tcp套接字的資料伺服器獲取文字資料,然後計算文字中包含的單詞數。做法如下 首先,我們匯入spark streaming的相關類以及一些從streamingcontext獲得的隱式轉換到我們的環境中,為我們所需的其他類...

第乙個Spring例子

手動新增sechame檔案 windows preferences myeclipse files and editors xml xmlcatalog 點add key type中選擇url file system 在dist resources spring beans 2.5.xsd sech...