閱讀以下應(yīng)用說明以及用Visual Basic編寫的程序代碼,將應(yīng)填入(n)處的字句寫在答題紙的對應(yīng)欄內(nèi)。
【應(yīng)用說明】
某應(yīng)用程序用于監(jiān)測某種設(shè)備的工作溫度(20~200度),其運(yùn)行窗口中,包括一個(gè)溫度計(jì)(矩形形狀shpMeter)以及其中指示當(dāng)前設(shè)備溫度的水銀柱(矩形形狀shpT),文字標(biāo)簽標(biāo)記了溫度刻度;另有一個(gè)圖片框picCurve,用于動(dòng)態(tài)描述檢測到的溫度曲線(用戶見到的曲線與水銀柱等高變化);命令按鈕“開始檢測”(cmdStart)用于啟動(dòng)溫度檢測,命令按鈕“暫停檢測”(cmdStop)用于暫停檢測。
矩形形狀shpT(水銀柱)屬性visible初始設(shè)置為不可見,屬性Filltype設(shè)置為solid(實(shí)心),F(xiàn)illColor設(shè)置為紅色;圖片框picCurve的屬性AutoRedraw設(shè)置為True;再創(chuàng)建一個(gè)定時(shí)器TimT,屬性Enabled初始設(shè)置為False(不起作用),屬性Interval(定時(shí)間隔)設(shè)置為500毫秒。
為模擬設(shè)備溫度的檢測,程序中利用了(0,1)之間均勻分布的偽隨機(jī)數(shù)獲得[20,200]之間的隨機(jī)溫度T。為了便于在圖片框picCurve中繪制曲線,程序中對該圖片框建立了坐標(biāo)系統(tǒng),左上角為原點(diǎn)(0, 0),水平向右方向?yàn)閄軸,垂直向下方向?yàn)閅軸,右下角坐標(biāo)為(50, 180)。為了便于觀察記錄的溫度值,圖片框中從上到下創(chuàng)建了5條水平線Ls(i),i=0,1, …4,并在程序中按等間隔排列進(jìn)行位置設(shè)置。程序中每隔半秒算出曲線點(diǎn)(x, y),其中x=0, 1, 2,…,再用直線段連接各相鄰曲線點(diǎn)形成溫度曲線。
【Visual Basic程序代碼】
Dim (1) As Integer ‘聲明全局變量
Private Sub CmdStart Click()
TimT. Enabled = True
ShpT. Visible = True
End Sub
Private Sub CmdStop__Click()
TimT. Enabled=False
End Sub
Private Sub Form_Load()
Dim i,H As Integer
PicCurve.Scale (0,0)一(50,180) ‘設(shè)置圖片框坐標(biāo)系:左上角一右下角
H = 30 ‘H等于圖片框高度的六分之一
For i = 0 To 4 ‘設(shè)置5條水平線Ls(i)的位置
Ls(i).Xl=0 ‘Ls(i)起點(diǎn)橫坐標(biāo)
Ls(i).Y1=H* (2) ‘Ls(i)起點(diǎn)縱坐標(biāo)
Ls(i).X2=50 ‘Ls(i)終點(diǎn)橫坐標(biāo)
Ls(i).Y2=Ls(i).Y1 ‘Ls(i)終點(diǎn)縱坐標(biāo)
Ls(i).BorderColor=&HC0C0C0 ‘設(shè)置水平線顏色
Next i
x=0 ‘設(shè)置曲線坐標(biāo)初值
End Sub
Private Sub timT Timer()
Dim T, H As Integer ‘T為即時(shí)溫度,H為圖片框中溫度點(diǎn)顯示高度
T=Int(Rnd*181)+20 ‘模擬隨機(jī)產(chǎn)生設(shè)備溫度(20-200度)
按當(dāng)前溫度顯示水銀柱
H=ShpMeter.Height* (3) ‘算出水銀柱的高度
ShpT. Top= (4) - H ‘設(shè)置水銀柱頂部位置
ShpT. Height=H ‘設(shè)置水銀柱的高度
繪制溫度曲線
y= (5) ‘算出曲線上當(dāng)前點(diǎn)的縱坐標(biāo)
If x=51 Then ‘當(dāng)超出圖片框時(shí)
PicCurve. Cls ‘清除圖片框內(nèi)以前畫的曲線
x = 0 ‘設(shè)置重畫曲線的初值
ElseIf x > 0 Then ‘除左邊點(diǎn)外
PicCurve. Line(x-1, Lasty)-(x, y),vbRed 由前1點(diǎn)到當(dāng)前點(diǎn)畫紅色線段
End If
x = x + 1 ‘準(zhǔn)備下一點(diǎn)坐標(biāo)
Lasty = y ‘保存當(dāng)前坐標(biāo)供下次使用
End Sub