【導(dǎo)讀】2．主模塊設(shè)計··································································································4

　　

【正文】 r ing+ v L ine : I n teg e r+ p h L ine : I n teg e rc ls L ine 設(shè)計思路 通過 Head 的屬性判斷該到那個對應(yīng)的關(guān)鍵字，通過它的屬性找到對因關(guān)鍵字的行號 a = 1 b = 2 If a + b 0 Then Print a+b0 Elseif a + b = 0 Then Print a+b=0 Else Print a+b0 End If 行號 語句 類型 Head 對應(yīng)行號 1 a = 1 賦值表達式 2 B = 2 賦值表達式 3 if a +b 0 then 普通語句 If 5 9 4 print “a+b0” 普通語句 Print 5 Elseif a+b=oThen 普通語句 Elseif 3 7 6 print “a+b=0” 普通語句 Print 編譯原理綜合設(shè)計報告 31 7 else 普通語句 else 3 9 8 Print”a+b0” 普通語句 print 9 End if 普通語句 End if 3 表 81 結(jié)點標(biāo)記表 例子分析： 當(dāng)讀到 if a +b 0 then 不作任何表示，句子繼續(xù)往下執(zhí)行，當(dāng)遇到 Elseif a+b=oThen時候先給前面出現(xiàn)的 if 標(biāo)上 else 的行號，同時給 elseif 標(biāo)上對用的 if 的行號，程序繼續(xù)往下執(zhí)行，當(dāng)遇到else 的時候給標(biāo)記上對用的 if 和 endif 的行號，當(dāng)遇到 endif 的時候給 endif 標(biāo)記上對用的 if 的行號，并且給 if 標(biāo)記上 endif 的行號 成員屬性表 表 82 成員屬性表 名稱 屬性 作用 Get_Head 屬性 取得 Head 屬性 Let_Head 屬性 設(shè)置 Head 屬性 Get_Baby 屬性 取得 Bady 屬性 Let_Baby 屬性 設(shè)置 Bady 屬性 If_else 變量 If 到 else 的指針 If_endif 變量 If 到 endif 的指針 For_next 變量 For 到 next 的指針 For_min For 初始值 賦給 for 初始值 For_max For 結(jié)束值 賦給 for 最終值 For_step For 的步長 For 的下循環(huán)步長 For_var_name For 的名字 For 的名字 Exit_for_for 變量 Exit 到 for 的指針 Next_for 變量 Next 到 for 的指針 Dowhile_loop 變量 Dowhile 到 loop 的指針 Loop_dowhile 變量 Loop 到 dowhile 的指針 Do_loopuntil 變量 Do 到 loopuntil的指針 Loopuntil_do 變量 loopunti到 do 的指針 Exit_dowhile 變量 Exit 到 dowhile 的指針 Exit_do 變量 Exit 到 do 的指針 編譯原理綜合設(shè)計報告 32 + Re ad W ord ()+ Lo ok Nex tW ord () 屬性 + get _ Eo f ( ) : Vari an t 屬性 + let _ Eo f ( in vNewVa lue : Vari an t ) Clas s _ I niti alize () GiveT yp e ( in s : Str ing ) 屬性 + get _ s tr Te xt ( ) : Vari an t 屬性 + let _ s tr Te xt ( in vNewVa lue : Vari an t ) s tr Te xt 1 : Str ing po s : I nteg ercls Se n 設(shè)計思路 通過 DFA文法分析判斷單詞的下一個狀態(tài)是不是正確判斷過程如下 文法描述 1初態(tài) → A字母 |d數(shù)字 |’ 單引號 |” 雙引號 |p運算符 |小于號 |大 于號 |H漢字 2字母 → A字母 |d數(shù)字 3數(shù)字 → d數(shù)字 |.小數(shù)點 4小數(shù)點 → d數(shù)字 5單引號 → A字母 |d數(shù)字 | H漢字 |p運算符 |b空格 |小于號 |大于號 |D回車 6雙引號 → A字母 |d數(shù)字 | H漢字 |p運算符 |b空格 |小于號 |大于號 7大于號 → =等于號 8小于號 → =等于號 |大于號 9漢字 → H漢字 DFA 實現(xiàn)思想 P={+||*|/|ˇ |=} A={a— z|AZ} d={09} H={漢字 } b={空格 } 〉 — 大于 小于 不等于 1— 初態(tài) 2— 變量 3— 整數(shù) 4— 小數(shù) 5— 運算符 P 6 7 8= 9 10— 〉 = 11— 漢字 12— 不完全字符串 13— 完全字符串 DFA 如圖 編譯原理綜合設(shè)計報告 33 1 2AA | d 圖 91 DFA字母狀態(tài)判斷 1d3.4dd 圖 92 DFA數(shù)字狀態(tài)判斷 15p 圖 93 DFA運算符狀態(tài)判斷 1 67= 8 圖 94 DFA小于號狀態(tài)判斷 1 0=91 編譯原理綜合設(shè)計報告 34 圖 95 DFA大于號狀態(tài)判斷 H11 1H 圖 96 DFA漢字狀態(tài)判斷 H | P | | D | b”1“1312 圖 97 DFA雙引號狀態(tài)判斷 H | P | | D | b回車1‘1514 圖 98 DFA單引號狀態(tài)判斷 DFA 狀態(tài)轉(zhuǎn)化表 A d ‘ “ p H D . b 1 2 3 14 12 5 6 9 11 2 2 2 3 3 4 4 4 6 8 7 9 10 11 11 12 12 12 13 12 12 12 12 12 12 14 14 14 14 14 14 14 15 14 14 表 91 DFA狀態(tài)轉(zhuǎn)化表 編譯原理綜合設(shè)計報告 35 成員屬性表 表 92 成員屬性表 Readword 流程圖 Re ad Wor d指針指向尾部 返回空True讀入一個字符雙引號雙引號讀入一個字符空格 指針后移返回查 DFA 表終態(tài) 圖 99 ReadWord 流程圖 名稱 屬性 作用 ReadWord 函數(shù) 將整個句子分解成單詞 LookNextWord 函數(shù) 察看下一個單詞 GiveType 判斷函數(shù) 判斷所取類型的值 Class_initialize 構(gòu)造函數(shù) 初始化數(shù)據(jù) 編譯原理綜合設(shè)計報告 36 10編輯器設(shè)計 Ru nit () Co mman d 1 _ Cli ck () Fo r m _ Key Down ( in KeyC od e : I nteg er , in Shif t : I nteg er ) Fo r m _ Lo ad () Fo r m _ Re s ize () Fo r m _ Unloa d ( in Can ce l : I nteg er ) mnu Deb ug _ Cli ck ()+ mnu Start _ Cli ck () tbTo olBa r _ Bu tt on Cli ck ( in Butt on : Bu tt on ) mnu HelpAb ou t _ Cli ck () mnu HelpC on tents _ Cli ck () mnu ViewOptions _ Cli ck () mnu ViewStatusBar _ Cli ck () mnu ViewTo olba r _ Cli ck () mnu FileEx it _ Cli ck () mnu FileSa ve As _ Cli ck () mnu FileSa ve _ Cli ck () mnu FileClose _ Cli ck () mnu FileOpe n _ Cli ck () mnu FileNew _ Cli ck () FileNew () FileSa ve () FileSa ve As () FileWr it e ( in name : Str ing )+ FileRe ad ( in name : Str ing ) Timer 1 _ Timer () Timer 2 _ Timer () txtHi de _ Ch an ge () txtSou r ce _ Ch an ge () s ho wLine () txtSou r ce _ Cli ck () txtSou r ce _ Key Press ( in KeyAscii : I nteg er ) Co de Fo r mat () txtSou r ce _ Mou s eDo wn ( in Butt on : I nteg er , in Shif t : I nteg er , in X : Sing le , in Y : Sing le ) txtSou r ce _ Mou s eUp ( in Butt on : I nteg er , in Shif t : I nteg er , in X : Sing le , in Y : Sing le )f rmMain 設(shè)計要求 1. 實現(xiàn) Windows 下單文檔應(yīng)用程序 (SDI)編輯器，能新建、打開、保存、另存 basic 源文件。 2. 實現(xiàn)代碼編輯窗口，能顯示行號，能自動格式化代碼成標(biāo)準(zhǔn)形式，做到源代碼語法統(tǒng)一。 3. 實現(xiàn)自動縮進動能，方便源代碼時格式自動整理。 4. 實現(xiàn)對程序“運行”、“調(diào)試”的調(diào)用。 設(shè)計思想 1. 利用 VB 自帶的單文檔應(yīng)用程序向?qū)ё詣由纱绑w和菜單。 編譯原理綜合設(shè)計報告 37 圖 101 新建窗體圖 圖 102 界面類型圖 2. 編程為菜單添加代碼實現(xiàn)文件的新建、打開、關(guān)閉、保存、另存等功能。 3. 設(shè)置文檔修改標(biāo)志，用于當(dāng)文件內(nèi) 容修改時提示是否保存。 4. 在輸入框的鼠標(biāo)和鍵盤事件中添加代碼，實現(xiàn)代碼的自動格式化、自動縮進等功能。 5. 當(dāng)拖動編輯框內(nèi)的文字的時候，不響應(yīng)代碼格式化的操作。 編譯原理綜合設(shè)計報告 38 6. 當(dāng)窗體大小改變時，也同時改變里面的文本框的大小。 7. 當(dāng)鼠標(biāo)點擊或者鍵盤有鍵按下時，計算出當(dāng)前行數(shù)并顯示在狀態(tài)欄中。 圖 103 窗體設(shè)計 圖 104 菜單設(shè)計 1 編譯原理綜合設(shè)計報告 39 圖 105 菜單設(shè)計 2 成員說明 表 101 成員說明表 名稱 屬性 作用 Runit 過程 運行源代碼 Form_Load 事件 初始化窗體 Form_Resize 事件 cldLine 數(shù)組頂部標(biāo) 志計數(shù)器 Form_Unload 事件 窗體卸載函數(shù) mnuDebug 事件 開始調(diào)試 mnuStart 事件 解釋執(zhí)行程序 FileNew 過程 新建 FileSave 過程 保存 FileSaveAs 過程 另存為 FileWrite 過程 寫入到文件 FileRead 過程 從文件讀出 TxtSource_Change 事件 設(shè)置改變標(biāo)志 ShowLine 過程 顯示行號 TxtSource_Click 事件 顯示行號 TxtSource_KeyPress 事件 自動縮進 CodeFormat 過程 格式化代碼 TxtSource_MouseDown 事件 關(guān)閉代碼格式化定時器 TxtSource_MouseUp 事件 打開代碼格式化定時器 Timer1_Timer 事件 顯示文件是否改寫 Timer2_Timer 事件 代碼格式化 編譯原理綜合設(shè)計報告 40 流程圖 Runit打開或直接輸入源程序初始化 clsCode 模塊調(diào)用 clsCode 執(zhí)行程序錯誤棧內(nèi)為空 ？結(jié)束顯示錯誤信息YN 圖 106Runit 模塊流程圖 F i l eSave文件名空 ？ F i l e S a v e AsF i l e Wr i t e結(jié)束YNF i l e Ne w清除顯示區(qū)域清除文件名標(biāo)識清除改變標(biāo)志結(jié)束F i l e S a v e As顯示另存對話框文件名空 ？結(jié)束F i l e Wr i t eNYF i l e Wr i t e寫入到文件獲取文件名結(jié)束F i l e Re a d獲取文件名讀取文件返回文件內(nèi)容 圖 107 文件 I/O 模塊流程圖 編譯原理綜合設(shè)計報告 41 編輯器按鍵按下獲取鍵盤碼鍵盤碼為 13 , 8 , 9根據(jù)光標(biāo)位置分割輸入框內(nèi)容為 2 部分鍵盤碼為 8鍵盤碼為 9第一部分結(jié)尾為 4 個空格刪除這 4 個空格第一部分追加 4 個空格 移動光標(biāo)移動光標(biāo)截取第一部分的最后一行行頭部為特殊關(guān)鍵字檢查行頭部第二部分開頭追加 4 個空格如果是 if ... t h e n ...第二部分開頭刪 4 個空格第一部分追加回車YY YNYNYY取消按鍵輸入結(jié)束NNNN 圖 108 自動縮進模塊流程圖 編譯原理綜合設(shè)計報告 42 代碼格式化根據(jù)光標(biāo)把代碼拆成 2 部分格式化第一部分 （ 除當(dāng)前行 ）格式化第二部分 （ 除當(dāng)前行 ）拼湊 2 部分移動光標(biāo)結(jié)束 圖 109 代碼格式化模塊流程圖 編譯原理綜合設(shè)計報告 43 11 調(diào)試功能設(shè)計 + App en d ( in s : Str ing )+ I np utWi nd ow ( in i nfo : Str ing )+ Stop Wi nd ow ()+ Clea r () Fo r m _ Re s ize () Fo r m _ Unloa d ( in Can ce l : I nteg er ) Timer 1 _ Timer ()結(jié)束 _ Cli ck ()暫停 _ Cli ck ()f rmRe s ult cmd Abo r t _ Cli ck () cmd Co ntinue _ Cli ck () Co mman d 1 _ Cli ck () cmd Step _ Cli ck () Fo r m _ Re s ize () Re f lus h () lvCo de _ I temCh ec k ( in I tem : Lis tI tem )f rmVa rs 設(shè)計要求 1. 當(dāng)執(zhí)行到 stop 語句的時候，讓程序暫停。 2. 當(dāng)調(diào)試的時候，到達斷點所在的行，自動暫停。 3. 當(dāng)暫停的時候，能顯示源代碼，以及正在執(zhí)行的行。 4. 暫停時能查看所有變量，以及變量的值。 5. 程序暫 停時能添加、刪除斷點。 6. 程序進入死循環(huán)時能手動暫停程序執(zhí)行。 設(shè)計思想 1. 程序中利用阻塞模式探出調(diào)試窗口，使程序暫停運行而進入調(diào)試界面。 編譯原理綜合設(shè)計報告 44 圖 111 調(diào)試窗口設(shè)計 2. 建立一個全局的斷點列表，然后在解釋每一行之前都檢查此行是否在斷點列表內(nèi)來決定是否暫停運行。 3. 設(shè)定全局變量來標(biāo)識當(dāng)前正在運行的物理行，從而在調(diào)試窗口中把這一行高亮顯示。 4. 設(shè)局全局暫停標(biāo)志，一來可以在程序進入死循環(huán)時更改這個標(biāo)志暫停程序，二來可以在程序起始時暫停用于單步調(diào)試。 成員說明 表 111 成員說明 名稱 屬性 作用 Append 過程 在控制臺 追加文字 InputWindow 函數(shù) 彈出輸入對話框 StopWindow 過程 暫停程序，顯示調(diào)試窗口 Clear 過程 清除控制臺 Form_Resize 事件 窗體大小改變 Form_Unload 事件 窗體卸載 Reflush 過程 刷新 CmdContinue_Click 事件 繼續(xù)按鈕 CmdAbort_Click 事件 中止按鈕 CmdStep_Click 事件 單步按鈕 LvCode_Item 事件 添加 /刪除斷點 編譯原理綜合設(shè)計報告 45 流程圖 R ef lus h讀入變量讀入代碼結(jié)束控制滾動條 點擊行號此行為斷點刪除斷點設(shè)置斷點結(jié)束NY 圖 112 部分函數(shù)流程圖 12源代碼 源代碼 Private Vars As New Collection Public VarNames As New Collection Public Sub Clear() Dim v As New Collection Set Vars = v Dim vn As New Collection Set VarNames = New Collection End Sub Public Function setVar(ByVal name As String, ByVal value As Double) 39。變量賦值 On Error Resume Next Dim v() As String v = Split(KEYWORD, ,) If inArray(v, name) Then 59, , 變量名 amp。 name amp。 不合法 Exit Function End If t = Vars(name) AddVarName name If 0 Then value, name Else (name) 編譯原理綜合設(shè)計報告 46 value, name End If End Function Public Function getVar(ByVal name As String) On Error Resume Next Dim v() As String v = Split(KEYWORD, ,) If inArray(v, name) Then 59, , Exit Function End If t = Vars(name) AddVarName name If 0 Then 0, name getVar = 0 Else getVar = t End If End Function Private Function AddVarName(ByVal name As String) For i = 1 To If VarNames(i) = name Then Exit Function Next name End Function 源代碼 Private s As New Collection Public Sub Push(ByVal Item As Variant) If = 0 Then Item Else Item, , 1 End If End Sub Public Function Pop() t = (1) 1 Pop = t End Function 編譯原理綜合設(shè)計報告