【文章內(nèi)容簡(jiǎn)介】 ，選擇添加頁，共三頁，對(duì)應(yīng)三種窗的類型 ； ⑹ 在 multipage 中，將 page1 的 caption 改為推拉窗，并在 page1 中插入一個(gè) label，一個(gè) Combobox 和一個(gè) frame。將 label 和 frame 的 caption 改為扇數(shù) 和頂窗形狀 ， 并在 frame 中插入 2 個(gè) OptionButton,從上至下分別設(shè) caption 為 矩形 、圓拱形； ⑺ 在 multipage 中，將 page2 的 caption 改為平開窗，并在 page2 中插入 2 11 frame。將兩個(gè) frame 的 caption 分別設(shè)為頂窗形狀和窗戶頁數(shù)，并在頂窗形狀frame5 中插入 2 個(gè) OptionButton,從左至右分別設(shè) caption 為矩形、圓拱形，在窗戶頁數(shù) frame4 中插入 2 個(gè) OptionButton,從左至右分別設(shè) caption 為單頁和雙頁 ⑻ 在 multipage 中，將 page3 的 caption 改為固定窗，并在 page3 中插入 1 frame，將其 caption 改為“說明”，在 frame 中插入一個(gè) label，用于說明固定窗生成時(shí)的相關(guān)信息 ； ⑼ 在窗體上放入 3 個(gè) CommandButton,分別設(shè) caption 為確定（ Ok）、復(fù)位（ Reset）、退出（ Exit） ,取名為 cmdok、 cmdReset、 cmdExit。 其界面在運(yùn)行 前 的組件使用及分布情況如下圖 所示： 圖 窗體設(shè)計(jì)界面 結(jié)構(gòu)設(shè)計(jì) 系統(tǒng)結(jié)構(gòu)圖 12 與系統(tǒng)功能相對(duì)應(yīng)的 系統(tǒng) 模塊 結(jié)構(gòu)如 圖 所示。 圖 模塊結(jié)構(gòu)圖 系統(tǒng)流程圖 根據(jù)系統(tǒng)設(shè)計(jì)思想 以及 功能需求，系統(tǒng) 按照如 圖 所示運(yùn)行。 三維窗自動(dòng)生成器 窗洞尺寸、材質(zhì)參數(shù)輸入 ：寬、高、厚 b. 材質(zhì)：木質(zhì)、鋁合金、塑鋼 窗的類型選擇 不同類型具體參數(shù)設(shè)置 13 圖 系統(tǒng) 流程圖 選擇 窗戶材質(zhì) ： 鋁合金材質(zhì)、木材質(zhì)、塑鋼材質(zhì) 三維窗自動(dòng) 生成器 選擇窗的類型：推拉窗、平開窗、固定窗 顯示結(jié)果 Ok Reset 退出生成器 Exit 根據(jù)所選窗的類型，選擇設(shè)置窗的扇數(shù)和頂窗形狀 判斷數(shù)據(jù)是否在范圍之內(nèi) 是 輸入窗洞尺寸參數(shù) ： 高、寬、厚 否 選擇操作Ok/Reset/Exit OK 14 系統(tǒng)界面設(shè)計(jì)原則 ⑴ 可使用性 ① 用戶界面的可使用性是用戶界面設(shè)計(jì)最重要的目標(biāo)。 ② 使用的簡(jiǎn)單性，這要求用戶界面能夠很方便地處理各種 基本的對(duì)話。 ③ 用戶界面中的術(shù)語標(biāo)準(zhǔn)化和一致性。要求：所有專業(yè)術(shù)語都應(yīng)標(biāo)準(zhǔn)化 ， 軟件技術(shù)用語應(yīng)符合軟件工程規(guī)范。 ④ 快速的系統(tǒng)響應(yīng)和低的系統(tǒng)成本。 ⑤ 用戶界面應(yīng)具有容錯(cuò)能力。 ⑵ 靈活性 ① 算法的可隱可顯性。 ② 用戶可以根據(jù)需要定制和修改界面方式。 ⑶ 系統(tǒng)能夠按照用戶的希望和需要，提供不同詳細(xì)程度的系統(tǒng)響應(yīng)信息，包括反饋信息，提示信息等。 ⑷ 與其他軟件系統(tǒng)應(yīng)有標(biāo)準(zhǔn)的界面。 ⑸ 復(fù)雜性和可靠性 ① 用戶界面的復(fù)雜性：用戶界面的規(guī)模和組織的復(fù)雜程度就是界面的復(fù)雜性 。 ② 用戶界面的可靠性：用戶界面的 可靠性是指無故障使用的時(shí)間間隔。 [6] 15 5 系統(tǒng)實(shí)現(xiàn) 窗體 運(yùn)行 模塊 運(yùn)行窗體 如 圖 所示 。 圖 程序運(yùn)行窗體 主要 實(shí)現(xiàn)代碼 系統(tǒng)中 變量和對(duì)象定義多以拼音縮寫表示，下面用表 對(duì)其進(jìn)行說明。 表 變量和對(duì)象定義說明 變量或?qū)ο竺? 類型 說明 變量或?qū)ο竺? 類型 說明 ch() Acad3DSolid 窗戶玻璃 chsuo() Acad3DSolid 窗鎖 chcao() Acad3DSolid 窗槽 chk() Acad3DSolid 窗戶玻璃的框 cutcao() Acad3DSolid 被 剪 掉的 窗槽部分 chuangg Textbox 窗洞高度 chuangk Textbox 窗洞寬度 chuangh Textbox 窗洞厚度 chuangcz Combobox, 窗槽材質(zhì) sans Combobox, 窗戶扇數(shù) 窗體顯示前載入塊名信息，并執(zhí)行控件信息初始化，應(yīng)此在窗體 Initialize事件中添加下面代碼： 39。清空所有的文字框 Dim chuang As Control For Each chuang In 16 If TypeOf chuang Is TextBox Then = End If Next Dim ss(0 To 2) As String 39。定義變量， ss 表示扇數(shù) Dim j As Integer ss(0) = 2: ss(1) = 3: ss(2) = 4 For j = 0 To 2 ss(j) 39。添加窗的扇數(shù)到組合和框 Next Dim cz(0 To 2) As String 39。定義變量， cz 表示材質(zhì) Dim i As Integer cz(0) = 木材質(zhì) cz(1) = 鋁合金材質(zhì) cz(2) = 塑鋼材質(zhì) For i = 0 To 2 cz(i) 39。添加窗的材質(zhì)到組合框 Next = 2400 = 1500 = 120 = 2 = 木材質(zhì) = True = True = True = True End Sub 窗體中的『 確定 』按鈕單擊事件，用于 實(shí)現(xiàn) 核心的 三維窗生成 操作，其實(shí)現(xiàn)代碼 為 ： Private Sub cmdok_Click() 39。約束條件，數(shù)據(jù)不能為空 If = Or = Or = Then MsgBox 窗洞尺寸數(shù)據(jù)不能為空 , vbOKOnly, 系統(tǒng)提示 Exit Sub End If 39。定義變量和對(duì)象 Dim ch() As Acad3DSolid 39。定義窗戶玻璃為三維實(shí)體 Dim chcao() As Acad3DSolid 39。定義窗槽為三維實(shí)體 Dim cutcao() As Acad3DSolid 39。定義窗槽生成過程中剪切掉的部分為 三維實(shí)體 Dim chsuo() As Acad3DSolid 39。定義窗鎖為三維實(shí)體 17 Dim chk() As Acad3DSolid 39。定義窗戶玻璃的框?yàn)槿S實(shí)體 Dim i As Integer Dim j As Integer Dim k As Integer Dim a As Double Dim b As Double Dim c As Double Dim d As Double a = 39。變量 a 表示窗洞高度 b = 39。變量 b 表示窗洞寬度 c = 39。變量 c 表示窗洞厚度 d = Val() 39。變量 d 表示窗戶扇數(shù) 39。檢查輸入數(shù)據(jù)是否在規(guī)定范圍之內(nèi) If a 600 Or a 4800 Then MsgBox 您輸入的數(shù)據(jù)有錯(cuò)，請(qǐng)根據(jù)提示重新輸入窗的高度 , vbExclamation Exit Sub End If If b 600 Or b 4500 Then MsgBox 您輸入的數(shù)據(jù)有錯(cuò)，請(qǐng)根據(jù)提示重新輸入窗的寬度 , vbExclamation Exit Sub End If If c 100 Or c 240 Then MsgBox 您輸入的數(shù)據(jù)有錯(cuò)，請(qǐng)根據(jù)提示重新輸入窗的厚度 , vbExclamation Exit Sub End If 39。定義繪制三維窗模型中所需的點(diǎn) Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim pt3(0 To 2) As Double pt1(0) = 0: pt1(1) = 0: pt1(2) = 0 pt2(0) = 0: pt2(1) = 0: pt2(2) = (a 40) / 6 pt3(0) = 0: pt3(1) = 0: pt3(2) = (a 40) / 3 Dim pt13(0 To 2) As Double Dim pt14(0 To 2) As Double Dim pt15(0 To 2) As Double pt13(0) = 500: pt13(1) = 0: pt13(2) = 0 pt14(0) = 0: pt14(1) = 0: pt14(2) = a / 3 pt15(0) = 0: pt15(1) = 500: pt15(2) = 0 39。推拉窗 If = True Then 39。頂窗為矩形的推拉窗的實(shí)現(xiàn) 18 If = True Then 39。畫窗槽 ,利用三個(gè)不同大小的長(zhǎng)方體進(jìn)行差集運(yùn)算得出 i = 2 ReDim chcao(i) ReDim cutcao(i) Set chcao(0) = (pt1, b, c, a) Set cutcao(0) = (pt1, b 80, c + 10, a 80) Set cutcao(1) = (pt1, b 40, c / 2, a 40) chcao(0).Boolean acSubtraction, cutcao(0) chcao(0).Boolean acSubtraction, cutcao(1) Set chcao(1) = (pt1, b 40, c, 40) 39。頂窗槽 chcao(1).Move pt1, pt2 chcao(0).Boolean acUnion, chcao(1) 39。將其合并為一個(gè)整體，合并后為 chcao(0) 39。窗扇 j = d ReDim ch(j) 39。畫頂窗 Set ch(0) = (pt1, b 40, c / 4, 40 + (a 40) / 3) ch(0).Move pt1, pt3 39。圖形繪制都是以坐標(biāo)原點(diǎn)為中心，因此需要移動(dòng)到相應(yīng)位置 39。畫推拉部分 Set ch(1) = (pt1, (b 20) / d, c / 4, 2 * (a 40) / 3) 39。兩扇 If d = 2 Then Dim pt4(0 To 2) As Double Dim pt5(0 To 2) As Double pt4(0) = (b 20) / (2 * d): pt4(1) = c / 8: pt4(2) = (a 40) / 6 pt5(0) = (b 20) / (2 * d): pt5(1) = c / 8: pt5(2) = (a 40) / 6 Set ch(2) = ch(1).Copy ch(1).Move pt1, pt4 ch(2).Move pt1, pt5 End If 39。三扇 If d = 3 Then Dim pt6(0 To 2) As Double Dim pt7(0 To 2) As Double Dim pt8(0 To 2) As Double pt6(0) = 0: pt6(1) = c / 8: pt6(2) = (a 40) / 6 pt7(0) = (b 20) / d: pt7(1) = c / 8: pt7(2) = (a 40) / 6 pt8(0) = (b 20) / d: pt8(1) = c / 8: pt8(2) = (a 40) / 6 Set ch