<4D F736F F D20B0F2B4FAA4C0B56FA874B2CEA4A7ACE3A873A2B02E646F63>

Size: px

Start display at page:

Download "<4D6963726F736F667420576F7264202D20B0F2B4FAA4C0B56FA874B2CEA4A7ACE3A873A2B02E646F63>"

翔崎卓
7 years ago
Views:

1 投稿類別 : 資訊類篇名 : 基測申請入學分發系統之研究作者 : 陳育琪國立瑞芳高級工業職業學校資訊三許靖愉國立瑞芳高級工業職業學校資訊三指導老師 : 高莉莉老師陳思亮主任

2 壹前言一研究動機在校學習程式設計也有段不算短的時間了, 一直以來都是聽老師們的講解, 對於程式設計仍有些懵懵懂懂, 也不知道我們所撰寫的程式能達到何等精緻完美的程度很慶幸這學期有專題製作這門課程, 讓我們能在這個領域裡挑戰自己的極限與激發潛在的可能在本組與老師討論以後, 我們決定以開發國中基測的申請入學分發系統作為研究主軸, 並以本校的分發方式來進行系統驗證二研究目的申請入學是國中畢業考生們能進入高中職的機會之一, 每年選擇以申請入學方式進入高中職的人不在少數然而, 申請入學在不同學校都有不同的記分制度, 但大部分學校在處理申請入學資料時, 都還是以極為辛苦的人工計分方式排序, 以決定報考學生的入學結果, 既傷神傷眼又費時費力就以本校瑞芳高工為例, 除了要計算加權成績外, 還要處理學生所填選的七個職業類科綜合高中, 與進修部四個類科, 總共十二個志願序以作為志願分發所以我們希望能製作一款程式, 讓各高中職的老師可以利用電腦計分排序的方式, 達到既快速又正確地產生申請入學的考生錄取結果三研究步驟首先, 我們查詢基測的申請入學規則, 並且利用 Microsoft Office Excel 2003 製作學生相關資料 ( 製作學生相關資料是為了開發完程式以後方便我們驗證系統運作是否正確 ), 再來就是規劃系統所需物件, 並以 Microsoft Visual Basic 6.0 進行程式編寫, 根據本校加分標準及相關加權分數來進行程式的撰寫, 最後把製作完成的學生資料 CSV 檔 ( 逗點分隔值檔案 ), 由檔案通用控制項匯入主程式中進行資料計算排序, 最後進行結果的驗證與系統除錯, 再完成本論文的撰寫其步驟進行方塊圖, 如下圖一所示收集基測分發資料規劃程式所需物件討論程式演算法則設計程式以及測試圖一步驟進行方塊圖優化程式撰寫論文 1

每年選擇以申請入學方式進入高中職的人不在少數然而, 申請入學在不同學校都有不同的記分制度, 但大部分學校在處理申請入學資料時, 都還是以極為辛苦的人工計分方式排序, 以決定報考學生的入學結果, 既傷神傷眼又費時費力

3 為有效掌握整個專題進度, 我們規劃了專題計劃的時間如下圖二 : 時間工作收集基測分發資料規劃程式所需物件討論程式演算法則設計程式以及測試優化程式撰寫論文九月十月十一月圖二時間分配甘特圖貳正文一申請入學成績審查方式介紹各高中職依據基北區高中職聯合申請入學簡章彙編所列學校之申請條件, 就學生所提資料作書面審查, 各高中職於訂定評選方式時, 以 101 年國民中學學生基本學力測驗之國文數學英語社會自然五科分數, 另得選擇其中一至二科加權計分, 並應採計寫作測驗分數, 作為報名資格條件或加分條件本專題研究以本校瑞芳高工為例, 本校的申請條件如下表表一國立瑞芳高工申請入學資料表項目說明申請門檻各科 ( 寫作測驗國文數學英語社會自然 ) 合計總分 : 日間部 :260 分以上進修學校 :90 分以上總成績核算方式按 101 年國民中學學生基本學力測驗加權分數 + 班級或社團幹部分數 + 特別條件分數加權分數英語 2+ 數學 2+ 國文 + 寫作測驗 + 自然 + 社會幹部分數班長或社長每滿 1 學期 1.5 分其他班級幹部每滿 1 學期 1 分特別條件分數名次第 4 名殿第 1 名冠第 2 名亞第 3 名季軍乙等軍特優軍優等軍甲等區域佳作全國性級 10 分 8 分 7 分 6 分院轄市臺灣區級 8 分 6 分 5 分 4 分縣市級 5 分 3 分 2 分 1 分 2

至二科加權計分, 並應採計寫作測驗分數, 作為報名資格條件或加分條件本專題研究以本校瑞芳高工為例, 本校的申請條件如下表表一國立瑞芳高工申請入學資料表項目說明申請門檻各科 ( 寫作測驗國文數學英語社會自然 ) 合計總

4 二專題研究設備本次專題研究所使用的實驗軟硬體設備如下表二所示 : 表二實驗過程所使用之設備名稱中央處理器記憶體硬體作業系統程式語言規格 Phenom G/512K*3 FSB3600 1G DDR2 320GB SATA Windows XP SP3 Microsoft Visual Basic 6.0 SP6 三程式設計說明 ( 一 ) 程式系統架構資料檔案載入加權分數計算考生成績排序圖三登記分發系統架構考生志願分發分發結果輸出上圖三是本分發系統的系統架構圖, 主要可分為資料載入加權分數計算總成績核算考生成績排序考生志願分發與結果輸出等部分 ( 二 ) 氣泡排序法論述氣泡排序法又稱交換排序法, 顧名思義就是由觀察氣泡的變化推演出來的排序法則此一排序方式的規則是將相鄰的資料兩兩作比較, 若資料的順序排列不對, 就進行交換, 如此每個循環可運用此法則選出一個最大或最小的數 ; 再重複此步驟便可依序選出第一第二到最小 ( 或大 ) 的值當資料有 N 筆時, 排序會進行 N-1 次循環, 以此將資料的大小順序排出排序內容可以由大到小, 也可由小到大, 氣泡排序法可說是眾多排序法中最簡單的一個氣泡排序法的每個循環進行中, 如果沒有執行任何一次的資料交換時, 就表示資料已排序成功, 所餘下的循環就無須再進行, 因此執行效率較一般排序方法為佳, 故本專題以此排序方法進行資料排序, 下表三以實例說明氣泡排序法的排序步驟 3

0 SP6 三程式設計說明 ( 一 ) 程式系統架構資料檔案載入加權分數計算考生成績排序圖三登記分發系統架構考生志願分發分發結果輸出上圖三是本分發系統的系統架構圖, 主要可分為資料載入加權分數計算總成績核算考生成績排

5 表三氣泡排序法簡述流程表循環次數排序資料排序說明第一循環 4,1,99,7,28,10,23 原數列 1,4,99,7,28,10, 兩數比較後,1 較小執行交換 1,4,99,7,28,10, 兩數比較後,4 較小不執行交換 1,4,7,99,28,10, 兩數比較後,7 較小執行交換 1,4,7,28,99,10, 兩數比較後,28 較小執行交換 1,4,7,28,10,99, 兩數比較後,10 較小執行交換 1,4,7,28,10,23, 兩數比較後,23 較小執行交換第一循環結束,99 為最大值, 再下一循環除外第二循環 1,4,7,28,10,23, 兩數比較後,1 較小不執行交換 1,4,7,28,10,23, 兩數比較後,4 較小不執行交換 1,4,7,28,10,23, 兩數比較後,7 較小不執行交換 1,4,7,10,28,23, 兩數比較後,10 較小執行交換 1,4,7,10,23,28, 兩數比較後,23 較小執行交換第二循環結束,28 為最大值, 再下一循環除外第三循環 1,4,7,10,23,28,99 經過第三循環的比較後, 並未執行任何一次交換, 表示資料排序成功 ( 三 ) 程式流程圖開始載入檔案分數加權計算排列 ( 分數由大到小 ) 分發結果輸出結束科別錄取人數上限載入考生志願序是否達到門檻否是志願是否為空是否否符合科別要求是名額是否為空是否圖四登記分發程式流程圖 4

循環除外第二循環 1,4,7,28,10,23,99 1 4 兩數比較後,1 較小不執行交換 1,4,7,28,10,23,99 4 7 兩數比較後,4 較小不執行交換 1,4,7,28,10,23,99 7 28 兩數比較後,7 較小不執行交換 1,4,7,10,28,23,99 28 10 兩數比較後,10 較

6 ( 四 ) 程式演算法 Step1: 在程式一開始, 按下左邊的讀取 & 計算鍵載入 Step2: 載入要分發的檔案資料 Step3: 程式會先輸入學校內所招收各科系之人數上限 Step4: 將作文級分從中文數字轉換成阿拉伯數字 Step5: 將級分數轉換完後, 程式將會把考生的成績加權並加入幹部及特殊比賽的分數 Step6: 使用氣泡排序法將各考生之加權總分由高至低排列 Step7: 接著可以按下右邊的開始鍵, 程式首先會自訂一函數 flag 來判別考生是否已有入選的科系, 接著從志願一開始判斷是否符合科系要求, 若不符合則接著判斷志願二, 以此類推若考生已入選某科系, 則換下一位考生進行判别 Step8: 做完上述步驟後, 程式內的各科系的 Text 方塊即會顯示計算過後, 已成功錄取各科系的學生准考證號碼身分證號碼及姓名 Step9: 若考生皆沒選到所填入的志願, 則不會顯示在介面上 ( 五 ) 主要程式碼說明 1 讀取資料檔並且加以排列 : CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 開啟學生資料檔 n = Array(" 資訊 ", " 電子 ", " 電機 ", " 機械 ", " 製圖 ", " 土木 ", " 建築 ", " 綜高 ", " 進資訊 ", " 進電機 ", " 進機械 ", " 進建築 ") 學校科別總類 s = Array(5, 7, 6, 6, 7, 7, 7, 10, 5, 6, 6, 7) 對應科別之入取人數上限 i = 0 Do While Not EOF(1) For j = 1 To 24 載入資料檔內容, 如圖六 Input #1, m(i, j) 讀取作文級分 If i <> 0 Then Select Case m(i, 4) 第 i 筆資料的第四格位子 ( 即作文分數 ) Case " 一 " 若載入值為一 5

一開始判斷是否符合科系要求, 若不符合則接著判斷志願二, 以此類推若考生已入選某科系, 則換下一位考生進行判别 Step8: 做完上述步驟後, 程式內的各科系的 Text 方塊即會顯示計算過後, 已成功錄取各科系的學生准考證號碼身

7 m(i, 4) = 2 則將第 i 筆資料第四格更改為 2 Case " 二 " 若載入值為二 m(i, 4) = 4 則將第 i 筆資料第四格更改為 4 Case " 三 " 若載入值為三 m(i, 4) = 6 則將第 i 筆資料第四格更改為 6 Case " 四 " 若載入值為四 m(i, 4) = 8 則將第 i 筆資料第四格更改為 8 Case " 五 " 若載入值為五 m(i, 4) = 10 則將第 i 筆資料第四格更改為 10 Case " 六 " 若載入值為六 m(i, 4) = 12 則將第 i 筆資料第四格更改為 12 Case Else 若載入值上面皆沒有 m(i, 4) = 0 則將第 i 筆資料第四格更改為 0 End Select m(i, 25) = m(i, 4) + m(i, 5) + m(i, 6) * 2 + m(i, 7) * 2 + m(i, 8) + m(i, 9) + m(i, 12) 將該考生之分數加權存回第 i 筆第 25 格 End If i = i + 1 將 i+1 換下一人 Loop total = i 1 計算此資料共有幾位考生 Close #1 關閉資料檔下圖五所示為本專題研究的測試資料檔, 欄位分為准考證身分證字號姓名各科成績與考生志願序等資料, 內容虛構僅供系統測試所用系統所讀取資料欄位圖五資料檔展示圖 6

則將第 i 筆資料第四格更改為 0 End Select m(i, 25) = m(i, 4) + m(i, 5) + m(i, 6) * 2 + m(i, 7) * 2 + m(i, 8) + m(i, 9) + m(i, 12) 將該考生之分數加權存回第 i 筆第 25 格 End If i = i + 1 將 i+1 換下一人 Loop

8 2 用氣泡排序法排列所讀取資料檔 : For i = 1 To total 1 將第一到倒數第二筆資料做必較 For j = i + 1 To total If m(i, 25) < m(j, 25) Then 若第 i 筆資料比第 j 筆資料小則 For k = 1 To 25 swap m(i, k), m(j, k) 第 i 筆資料與第 j 資料互換 End If Public Sub swap(a, b) t = a: a = b: b = t 函數 a b 交換, 用來交換 i 和 j End Sub 3 將資料依照志願分發至各科系 : Dim flag As Boolean 將 flag 設為只有 true 和 false 的函數用來判別該學生是否已被選入某科別 For i = 1 To total j = 13: flag = True j=13 對應到資料庫中的志願一,flag 設為 True Do While m(i, j) <> "" And j < 25 And flag 志願一不可為空白且不能超過上限志願十二且 flag 必為 True Select Case m(i, j) 選擇志願 j Case " 資訊 " 若志願 j 為資訊則往下做 If s(0) <> 0 Then 入選人數不可為 0 s(0) = s(0) 1 將入選人數扣一個 flag = False 表示已選到科系 ans(1, 5 - s(0)) = m(i, 1) &""& m(i, 2) &" "& m(i,3) 該考生之准考證身分證及名字 End If 以此類推其他科系皆為如此 End Select j = j + 1 Loop For i = 0 To 11 因為科別數目為十二個 For j = 1 To 10 照考生分數高低 Text1(i) = Text1(i) & ans(i + 1, j) & vbcrlf 對應之科系的介面 7

學生是否已被選入某科別 For i = 1 To total j = 13: flag = True j=13 對應到資料庫中的志願一,flag 設為 True Do While m(i, j) <> "" And j < 25 And flag 志願一不可為空白且不能超過上限志願十二且 flag 必為 True

9 為再加上錄取考生並且換行五研究成果說明首先按下賭取 & 計算的按鈕選取要分發的資料檔圖六登記分發載入檔案示意圖顯示各學生所分配到的科別將讀取的資料計算並且排列圖七登記分發系統成果圖將資料顯示在介面上 8

10 參結論一研究心得起初我們對於排序法的理解, 只侷限於之前程式設計課程中上過的印象, 那時只覺得排序資料靠人力就足夠了, 不需要做這類的程式可是經過這次論文的討論及研究, 我們才深深體會到排序法有它存在的理由, 如果要排序這類大量又不能出錯的數字或資料, 單靠人力是絕對不足的 ; 所以, 我們對發明這些排序法的數學家或科學家們深感敬佩經過這次的程式撰寫, 讓我們了解到程式設計這廣大的知識海洋可謂深不可測, 這次的經驗讓我們更能精進深入地學習, 並懂得將程式運用在解決實際的問題, 對我們未來的學習進程有了啟發作用二未來展望我們希望在未來能設計出一套讓高中職老師方便利用的電腦閱卷系統, 以減輕老師們閱卷的負擔也希望我們能把程式擴大改善到能在開啟程式後, 就能運用表格控制項輸入所需的科系或班級, 接著再輸入分發的人數, 而不是載入檔案進行整理本組在系統開發過程中, 就曾為了學生資料檔案中, 分隔各資料的逗點是否補足而傷透腦筋 ; 此外, 也還有很多部分都是我們需待改進的, 例如 : 是否可以在輸入資料的時候, 就開始進行排序, 而當資料皆輸入完畢後, 各科學生的分發就可以顯示在螢幕上藉由這次的專題製作, 我們學習到不少, 但學海無涯, 我們所做的還是不夠, 期待未來能繼續鑽研相關學問, 並能實際應用, 以解決現代科技社會的各項問題 9

進深入地學習, 並懂得將程式運用在解決實際的問題, 對我們未來的學習進程有了啟發作用二未來展望我們希望在未來能設計出一套讓高中職老師方便利用的電腦閱卷系統, 以減輕老師們閱卷的負擔也希望我們能把程式擴大改善到

11 肆引述資料 [1] 楊倉杰編著 (2002) Visual Basic 範例集臺北市 : 文魁資訊 [2] 洪國勝編著 (2010) Visual Basic 程式設計與專題製作臺北市 : 松崗出版社 [3] 李啟龍尤信翰編著 (2009) 資料結構與程式設計臺北市 : 文魁資訊股份有限公司 [4] 黃世陽吳明哲何嘉益張志成吳志忠曹祖聖編著 (1998) Visual Basic 6.0 中文版學習範本臺北市 : 松崗出版社 [5] 基北區 101 學年度高中職聯合申請入學委員會網站,2012 年 11 月, 取自 [6] 維基百科冒泡排序 ( 氣泡排序 ),2012 年 11 月, 取自 A%8F 10

Visual Basic 6.0 中文版學習範本臺北市 : 松崗出版社 [5] 基北區 101 學年度高中職聯合申請入學委員會網站,2012 年 11 月, 取自 http://adm101.

Microsoft Word - 第四章.doc

Microsoft Word - 第四章.doc 第四章 - 試分別說明組合邏輯電路與序向邏輯電路之定義解 : 組合邏輯電路由基本邏輯閘所組成的此種邏輯電路之輸出為電路所有輸入的組合因此輸出狀態可完全由目前之輸入來決定而組合邏輯電路之示意圖如圖所 a 示 ; 而序向邏