一、用line()函數動態畫線

１、相關函數的介紹

• rgb(r,g,b):此函數用來設置顏色，顏色值的取值范圍是０～２５５，它可以為box(),drawbox,drawcirclea()等設置顏色，使用時必須放在這些函數之前。
  

• setfill(flag.color):用color設置的顏色值來填充由box(),drawbox,drawcirclea()函數繪制的幾何圖形。當flag為true時填充，flag為false時不填充。
  

• setframe(flag,color):設置圖形邊框線的顏色。flag的設置同上。

• setline(type):設置線條的樣式。type＝０時為無箭頭；type＝１時直線起點處有箭頭；type＝２是直線的終點處有箭頭；type＝３直線的兩端都有箭頭；

２、模擬進度條的制作，效果圖如（圖２－１）所示（單擊這里下載源程序）

（圖２－１）

• 程序的流程圖如（圖2-2）所示

（圖2-2）

• "window"和“題目”圖標是用來制作程序的界面，這和上面的例子是一樣的，在這里就不再介紹。

• “百分比”顯示圖標是用來顯示進度條的百分比的如（圖3-1）所示。其中顯示圖標中的自定義變量“i”是進度條的總長度，為了能使在程序運行過程中變量能不斷得到刷新，必須設置 “百分比”顯示圖標的屬性，選中“update displayed variables”復選框。

（圖3-1）

• “演示”群組圖標一共包含四個計算圖標，其結構如（圖2-4）所示

（圖2-4）

• “設置線的顏色”的計算圖標，內容如（圖2-5），其功用是將下面要畫的線的顏色設置成蘭色。

（圖2-5）

• “畫線”的計算圖標，內容如（圖2-6），其功用是畫一條線寬為16的直線，其線的長度是隨自定義變量“i”的變化而變化的。

（圖2-6）

• “延時”的計算圖標，內容如（圖2-7），其功用實現線的長度每增加兩個像素，延時1800個單位，延時的時間由變量“j”來控制。

（圖2-7）

• “動態畫線”的計算圖標，內容如（圖2-8），其功用是控制線的長度不斷的增加，增加的最終長度是由條件“if<200”來控制的，“if”語句實現了程序的循環，使程序不斷執行四個計算圖標，直到條件不成立為止。

（圖2-8）

二、繪圖函數的使用

1、基本繪圖函數介紹

<1> circle(pensize,x1,y1,x2,y2):

其功用是在給定的矩形框內畫一個圓。（圖2-9）

（圖2-9）

參數介紹如下：

• pensize: 圓周的線寬
• x1,y1:圓所在方框左上角坐標
• x2,y2:圓所在方框右下角坐標

<2> box(pensize,x1,y1,x2,y2)

功能簡介：用pensize所指定的線寬在屏幕上從（x1,y1）點到（x2,y2）點畫一個矩形。

<3> drawbox(pensize[x1,y1,x2,y2])
　　drawcircle(pensize[x1,y1,x2,y2])
　　drawline(pensize[x1,y1,x2,y2])

功能簡介：在指定區域畫矩形、圓、直線。[x1,y1,x2,y2]為可選項，若選用了這組參數，則相當于限定了繪制圖形的范圍。這組函數只能在熱區響應類型中使用，且用鼠標單擊熱區中的點才能確定繪圖的起點。

<4> setmode(mode)

功能簡介：設置繪制圖形的模式。參數介紹如下：

• mode=0:matted模式
• mode=1:transparent模式
• mode=2:inverse模式
• mode=3:erase模式
• mode=4:opaque模式
• mose=5:alpha模式

二、ａｗ中實現簡單幾何作圖工具（單擊這里下載源程序）

此程序的制作過程比較繁雜，大家可以下載源程序后慢慢去研究。這里給出畫圓的流程圖和效果圖：