【正文】 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 71 本章小節(jié) 在 VB內(nèi)繪制圖形過程 1) 先定義圖形載體的坐標(biāo)系 2) 設(shè)置繪圖屬性 (線寬，線型、色彩等 ) 3) 指定畫筆的起終點(diǎn)位置 4) 調(diào)用繪圖方法繪制圖形 坐標(biāo)系定義 Scale 繪圖 方法 Line、 Circle、 Pset 、 Point 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 72 思考題 1. 怎樣建立用戶坐標(biāo)系？ 2. 窗體的 ScaleHeight、 ScaleWidth屬性和 Height、 Width屬性有什么區(qū)別？ 3. RGB函數(shù)中的參數(shù)按什么顏色排列，其有效的數(shù)值范圍是多少？怎樣用 RGB函數(shù)實(shí)現(xiàn)色彩的漸變？ 4. 怎樣設(shè)置 Line控件對(duì)象的線寬？ 5. 當(dāng)用 Line方法畫線之后， CurrentX與 CurrentY在何處？ 6. 當(dāng)用 Circle方法畫圓弧和扇形時(shí)，若起始角的絕對(duì)值大于終止角的絕對(duì)值，則圓弧角度在何范圍？ 7. 使用 Pest繪制像素點(diǎn)的大小由何因素確定？ 8. 怎樣用 Point方法來比較兩張畫片 本章目錄 。 太陽和行星運(yùn)動(dòng)用 Circle語句完成。 窗體與圖形框的坐標(biāo)系設(shè)置值相同，但窗體的實(shí)際寬度和高度比圖形框大，故仿真輸出時(shí)放大了原來的字符。 如果 ( x, y)點(diǎn)位于對(duì)象之外， Point 方法將返回 True。 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 67 Pset方法 Pset方法用于畫點(diǎn)： [對(duì)象 .] Pset (x,y) [,顏色 ] 例 用 Pset方法繪制方程組 y1 = 5 x 2 + 2 x + 3和 y2 = x + 1的曲線，并求解方程 采用較小的步長，就可使離散的點(diǎn)連接成曲線 求解方程實(shí)質(zhì)是找曲線的交點(diǎn)坐標(biāo)，由于作圖時(shí)存在誤差，故判斷時(shí)不能用 y1=y2,而要使用 Abs(y1 y2) 誤差 獲得對(duì)應(yīng)的 x值。 例 。 當(dāng)起始角 、 終止角取值在 0~2?時(shí)為圓弧 ， 當(dāng)在起始角 、 終止角取值前加一負(fù)號(hào)時(shí) ， 畫出扇形 ， 負(fù)號(hào)表示畫圓心到圓弧的徑向線 。 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 65 圖形方法 Line方法 畫直線或矩形： [對(duì)象 .] Line [ (x1,y1)]－ (x2,y2) [,顏色 ][,B[F]] (x1， y1)為線段的起點(diǎn)坐標(biāo)或矩形的左上角坐標(biāo) (x2， y2)為線段的終點(diǎn)坐標(biāo)或矩形的右下角坐標(biāo) B表示畫矩形； F表示填充矩形 例 用 Line方法在圖形框 PictureBox上繪制函數(shù) f(x) = x2在區(qū)間 [， 1]之間積分面積區(qū)域，填充為蘭色。 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 64 填充與色彩 FillColor 指定封閉圖形的填充顏色 FillStyle 指定填充的圖案 (有 8種內(nèi)部圖案 ) RGB(紅 ,綠 ,藍(lán) ) 產(chǎn)生某種顏色 三基色使用 0~255之間的整數(shù) QBColor(顏色碼 ) 0~15之間的整數(shù) 例 演示顏色的漸變過程。 這兩個(gè)屬性在設(shè)計(jì)階段不能使用， 使用 CLS方法后， CurrentX、 CurrentY屬性值為 0 例 Print方法在窗體上隨機(jī)顯示 50個(gè)“ ★ ” 和 50個(gè) “ ☆ ” 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 63 線寬與線型 窗體、圖形框或打印機(jī)的 DrawWidth屬性給出這些對(duì)象上所畫線的寬度或點(diǎn)的大小 (以像素為單位，最小值為 1)。每英寸 1440個(gè) Twip， 20個(gè) Twip為一磅。坐標(biāo)度量單位由容器對(duì)象的 ScaleMode屬性決定。 ④ 調(diào)用繪圖方法繪制圖形。 ② 設(shè)置線寬，線型、色彩等屬性。 EOF和 LOF函數(shù)的功能。 關(guān)閉源文件 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 56 本章小節(jié) 文件 文件是記錄的集合， 三種訪問模式 順序訪問 打開 Open 文件名 ,模式 ,文件號(hào) 寫 Print Write 讀 Input 文件號(hào)，變量 LineInput 文件號(hào) 隨機(jī)訪問 Open 文件名 For Random As 文件號(hào) Len=長度 讀 Get 寫 Put 二進(jìn)制訪問 與隨機(jī)訪問模式類似 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 57 思考題 ？什么是記錄？ ？ ，將文本文件 內(nèi)容讀入字符串變量 strTest中 (寫出程序代碼片段 )。 寫一個(gè)字節(jié)到目標(biāo)文件 Loop Close 1 39。如果忽略記錄號(hào)，則表示讀出當(dāng)前記錄后的那一條記錄 例 編寫學(xué)生信息管理程序 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 54 二進(jìn)制訪問模式 二進(jìn)制訪問模式與隨機(jī)訪問模式類似，讀寫語句也是 Get和 Put，區(qū)別在于二進(jìn)制模式的訪問單位是 字節(jié) ，而隨機(jī)模式的訪問單位是 記錄 例如 : Open C:\ For Binary As 1 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 55 例 編寫一個(gè)文件復(fù)制程序 Dim char As Byte Open C:\ For Binary As 1 Open C:\ For Binary As 2 Do While Not EOF(1) Get 1, , char 39。如果忽略記錄號(hào)，則在當(dāng)前記錄前插入一條記錄。 ?選擇“添加數(shù)據(jù)”，則將一個(gè)學(xué)生的學(xué)號(hào)、姓名和成績（ Integer）添加到 ?選擇“讀取數(shù)據(jù)”，則從文件讀取數(shù)據(jù)并計(jì)算總分和平均成績，最后送入文本框。 Input 文件號(hào)，變量列表 (2) LineInput 讀出一行數(shù)據(jù) LineInput 文件號(hào) , 字符串變量 說明：讀出的數(shù)據(jù)中不包含回車換行符 (3) EOF (文件號(hào) )測(cè)試文件指針是否到文件末尾 (4) LOF (文件號(hào) )測(cè)試文件的長度 本章目錄 vb程序設(shè)計(jì)簡明教程 本書目錄 51 應(yīng)用舉例 例 設(shè)計(jì)一個(gè)文件加密程序。關(guān)閉文件形式： Close( [[]文件號(hào) ]) 例 Close(1) 關(guān)閉 1號(hào)文件 。 例如 Write（ 1, “One”, “Two”, 123） 寫入到文件后格式： One,Two,123 本章目錄 vb程序設(shè)計(jì)簡明教程