計算器設(shè)計過程

計算器設(shè)計過程(二)VisualBasic程序設(shè)計1計算器界面2界面布局標題及圖標菜單命令按鈕控件文本框:txtresult框架frame控件文本框：txtfirst文本框：txtLabel文本框：txtsecond3程序邏輯功能分析第1步：輸入第一個數(shù)字。當點擊數(shù)字的數(shù)字時，文本框中將顯示相應的數(shù)字，并能進行正負數(shù)的變換。

第2步：輸入四則運算符。當?shù)谝粋€數(shù)字區(qū)的數(shù)字輸入完成后，可點擊功能區(qū)中的加、減乘、除四則運算符。第3步：輸入第二個數(shù)字。當點擊某個運算符后，再點擊數(shù)字區(qū)的數(shù)字時，文本框中將顯示第二個數(shù)字。第4步：進行運算。上述三步完后，點擊“計算結(jié)果”按鈕，將在文本框中顯示四則運算結(jié)果。第5步：重算計算。可在第4步的結(jié)果的基礎(chǔ)上，返回到第2步，繼續(xù)進行四則運算，或點擊“清空”按鈕返回第1步，開始新的運算過程。計算器4---代碼設(shè)計1、窗件的Load事件。主要清空文本框的text屬性，起到軟件初始化的作用。設(shè)計代碼2、四則運算數(shù)字的輸入。主要輸入四則運算的兩個操作數(shù)字，其中兩個操作數(shù)分別使用txtfirst及txtsecond兩個文本框記錄。設(shè)計代碼。3、操作數(shù)的文本框的相互映射到結(jié)果文本框。設(shè)計代碼4、數(shù)字的正負轉(zhuǎn)換。設(shè)計代碼5、運算功能的實現(xiàn)。設(shè)計代碼軟件設(shè)計過程計算器查看制過程5小結(jié)：1、掌握可視化界面的設(shè)計方法。2、掌握變量和常量的應用。3、理解工程化思想和編程的風格。4、控件之間的相互調(diào)用。5、掌握程序代碼。6窗件的load事件代碼privatesubform_load() txtfirst.text="" txtsecond.text="" txtlabel.text=""endsub計算器返回插入代碼7數(shù)字輸入數(shù)字區(qū)的命令按鈕的CLICK事件(1)數(shù)字“0”按鈕iftxtlabel.text=""thentxtfirst.text=txtfirst.text+"0"elsetxtsecond.text=txtsecond.text+"0"endif

其它的數(shù)字按鈕相類似，主要修改紅色部分的相應數(shù)字。比如按鈕“1”，把“0”改為“1”。計算器返回插入代碼8文本框的change事件每一個操作數(shù)：privatesubtxtfirst_change()‘每當txtfirst的內(nèi)容發(fā)生變化時，將變化結(jié)果隨時映射到txtResulttxtResult.text=txtfirst.textendsub每二個操作數(shù)：privatesubtxtsecond_change() ‘每當txtfirst的內(nèi)容發(fā)生變化時，將變化結(jié)果隨時映射到txtResult txtResult.text=txtsecond.textendsub計算器返回插入代碼9數(shù)字的正負轉(zhuǎn)換privatesubcommand2_click() '如果txtLabel為空，則說明現(xiàn)在正在輸入的是第一個數(shù)字;否則表示當前正在輸入的是第二個數(shù)字 '轉(zhuǎn)換語句的主要含義是：首先用VAL函數(shù)將txtfirst.text轉(zhuǎn)換為數(shù)字，然后再乘以-1 iftxtlabel.text=""then txtfirst.text=-1*val(txtfirst.text) else txtsecond.text=-1*val(txtsecond.text) endifendsub計算器返回插入代碼10運算功能的實現(xiàn)(1)1、"加","減","乘","除"命令按鈕的click事件'加按鈕privatesubcommand12_click() txtlabel.text="加"endsub'減按鈕privatesubcommand13_click() txtlabel.text="減"endsub'乘按鈕privatesubcommand14_click() txtlabel.text="乘"endsub'除按鈕 privatesubcommand18_click() txtlabel.text="除"endsub計算器返回插入代碼112、"計算結(jié)果"命令按鈕的click事件privatesubcommand15_click()dimmyresultasdouble'定義一個double類型的變量。 selectcasetxtlabel.text '以txtlabel.text的值為多重分支條件 case"加"'當txtlabel.text的值為"加"時 myresult=val(txtfirst.text)+val(txtsecond.text)case"減"'當txtlabel.text的值為"減"時 myresult=val(txtfirst.text)-val(txtsecond.text)case"乘"'當txtlabel.text的值為"乘"時 myresult=val(txtfirst.text)*val(txtsecond.text)case"除"'當txtlabel.text的值為"除"時 myresult=val(txtfirst.text)/val(txtsecond.text)endselect txtlabel.text=""'將txtlabel,tx