小時候看戰爭片，經常會看到雷達掃描的場景，那時總覺得如同神話一般，很是神奇?，F在自己經常要做些多媒體課件什么的，很是希望自己的作品中也能有同樣酷的效果。呵呵，沒有做不到，只有想不到，今天咱們就來做個雷達掃描的效果吧。當然，還是用authorware。制作過程如下：

圖1

程序流程非常簡單，只需要幾個計算圖標和一個決策圖標足矣。.完成后的流程線如圖1所示。制作過程也很簡單，只要有兩個步驟就可以了。

初始化

拖一個計算圖到主流程線上，命名為“初始化”，雙擊打開其輸入窗口，輸入如下內容： bigr:=100
smallr:=95
h:=320
k:=240
setframe(1,rgb(0,255,0))
circle(1,h-bigr,k-bigr,h+bigr,k+bigr)
angle:=0
repeat while angle＜=2*pi
xbig:=h+bigr*cos(angle)
ybig:=k-bigr*sin(angle)
xsmall:=h+smallr*cos(angle)
ysmall:=k-smallr*sin(angle)
line(1,xbig,ybig,xsmall,ysmall)
angle:=angle+0.1
end repeat
angle:=0

實現掃描

拖一個決策圖標到流程線上，雙擊打開其屬性對話框，將“repeat”的值改為“until click/keypress”。

拖兩個計算圖標到決策圖標的右側，分別命名為“波”和“頻率”。雙擊“波”計算圖標，打開其輸入窗口，輸入如下內容： r:=10
repeat while r＜bigr
angle2:=angle-pi/4
repeat while angle2＜=angle
x1:=r*cos(angle2)+h
y1:=k-r*sin(angle2)
line(1,x1,y1,x1,y1)
angle2:=angle2+0.02
end repeat
r:=r+10
end repeat

雙擊“頻率”計算圖標，打開其輸入窗口，輸入如下內容：

angle:=angle+pi/6

圖2

ok，完成了。不是很難吧？執行一下看看。.效果如何？如圖2所示。

小呆后記

其實你肯定也看出來了。我們只不過做了一些同心圓而已。我們所做的工作，就是要這些圓只顯示圓心角為45°的扇形。在程序中所用到的，無非就是authorware中所提供的幾個系統函數罷了。