計算器項目實訓報告書

PAGEPAGE9信息科學與技術學院信息科學與技術學院項目實訓報告書課程名稱VB程序設計 姓名高海濤 班級10（1）班 學號10261139 指導教師陳勁新鹽城師范學院信息科學與技術學院2011.12題目：復雜科學性數(shù)學計算器。（【基本要求】本計算器可實現(xiàn)普通的計算功能，如加、減、乘、除，還可以進行倒數(shù)、開方、乘方、三角函數(shù)計算、階乘、對數(shù)、計算，還可以進行十進制和八進制、十進制和十六進制之間的換算，以及數(shù)字的保存和讀取。實訓的目的和要求：通過本項技術實訓活動，了解完整的VB程序設計與工程實現(xiàn)的一般方法，整體掌握模塊級的基本編程技術，綜合實踐課堂與實驗課中所學到的單元技術方法。培養(yǎng)VB編程技術的工程應用能力。要求每個同學自行選擇題目，《VB程序設計》項目實訓指導書題目后面是每個題目數(shù)量的每題所選限值人數(shù)。也可自己提出設計題目，要預先取得老師的同意。設計時，獨立完成，遇到問題可查詢網絡或詢問指導老師。設計后期，應寫出設計報告，包括：題目內容、添加控件和屬性設置的過程、算法說明、程序變量使用說明、解決方法、創(chuàng)新點及對設計所包含的知識點的認識等。實訓的軟件環(huán)境：VisualBasic6.0集成開發(fā)環(huán)境Internet互聯(lián)網實訓設計過程和內容（可加附頁）：一分析問題選擇算法科學計算器主要實現(xiàn)基本的加減乘除運算、三角函數(shù)運算、倒數(shù)、乘方、開方、階乘、對數(shù)等運算，還要實現(xiàn)十進制與十六進制，十進制與八進制的轉換等。為實現(xiàn)上述功能，我的基本思路是運用課上老師講的簡單計算器為基礎，利用VB系統(tǒng)自帶的常用函數(shù)實現(xiàn)運算功能，再添加需要的其它命令按鈕。二建立用戶界面建立如下界面：三設置相關窗體和控件的基本屬性四編寫代碼進行調試PrivateSubCommand1_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"7"Elsetxtsecond.Text=txtsecond.Text+"7"EndIfEndSubPrivateSubCommand10_Click()'每點擊一下該按鈕，就在文本框的尾部加字符“0”。'如果txtLabel為空，則說明現(xiàn)在正在輸入的是第1個數(shù)字；'否則表示輸入的是第2個數(shù)字；Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"0"Elsetxtsecond.Text=txtsecond.Text+"0"EndIfEndSubPrivateSubCommand11_Click()'如果txtLabel為空，則說明現(xiàn)在正在輸入的是第1個數(shù)字；'否則表示當前正在輸入的是第2個數(shù)字。'首先用Val函數(shù)將txtFirst.Text轉換為數(shù)字，然后再乘以-1；Iftxtlabel.Text=""Thentxtfirst.Text=-1*Val(txtfirst.Text)Elsetxtsecond.Text=-1*Val(txtsecond.Text)EndIfEndSubPrivateSubCommand12_Click()txtlabel.Text="加"EndSubPrivateSubCommand13_Click()txtlabel.Text="減"EndSubPrivateSubCommand14_Click()txtlabel.Text="乘"EndSubPrivateSubCommand15_Click()txtlabel.Text="除"EndSubPrivateSubCommand16_Click()txtfirst.Text=""txtsecond.Text=""txtlabel.Text=""txtOct.Text=""txtHex.Text=""EndSubPrivateSubCommand17_Click()txtlabel.Text="倒數(shù)"EndSubPrivateSubCommand18_Click()txtlabel.Text="乘方"EndSubPrivateSubCommand19_Click()txtlabel.Text="開方"EndSubPrivateSubCommand2_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"8"Elsetxtsecond.Text=txtsecond.Text+"8"EndIfEndSubPrivateSubCommand20_Click()txtlabel.Text="階乘"EndSubPrivateSubCommand21_Click()txtlabel.Text="對數(shù)"EndSubPrivateSubCommand22_Click()txtlabel.Text="Sin"EndSubPrivateSubCommand23_Click()txtlabel.Text="Cos"EndSubPrivateSubCommand24_Click()txtlabel.Text="tan"EndSubPrivateSubCommand26_Click()txtfirst.Text=""txtsecond.Text=""txtlabel.Text=""txtOct.Text=""txtHex.Text=""EndSubPrivateSubCommand27_Click()Open"D:\Test.Dat"ForAppendAs#1Print#1,txtresult.TextPrint#1,txtOct.TextPrint#1,txtHex.TextClose1EndSubPrivateSubCommand28_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"."Elsetxtsecond.Text=txtsecond.Text+"."EndIfEndSubPrivateSubCommand3_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"9"Elsetxtsecond.Text=txtsecond.Text+"9"EndIfEndSubPrivateSubCommand34_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)Case"倒數(shù)"MyResult=1/Val(txtfirst.Text)Case"開方"MyResult=Sqr(Val(txtfirst.Text))Case"乘方"MyResult=Val(txtfirst.Text)^Val(txtsecond.Text)Case"階乘"DimiAsIntegerMyResult=1Fori=1ToVal(txtfirst.Text)MyResult=MyResult*iNextiCase"對數(shù)"MyResult=Log(Val(txtfirst.Text))Case"Sin"MyResult=Sin(Val(txtfirst.Text))Case"Cos"MyResult=Cos(Val(txtfirst.Text))Case"tan"MyResult=Tan(Val(txtfirst.Text))EndSelecttxtlabel.Text=""'將txtLabel、txtSecond清空txtsecond.Text=""txtresult.Text=MyResult'將計算結果顯示txtfirst.Text=txtresult.Text'將計算結果做為第1個數(shù)字，以便繼續(xù)運算。txtHex.Text=Hex(MyResult)txtOct.Text=Oct(MyResult)EndSubPrivateSubCommand35_Click()EndEndSubPrivateSubCommand4_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"4"Elsetxtsecond.Text=txtsecond.Text+"4"EndIfEndSubPrivateSubCommand5_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"5"Elsetxtsecond.Text=txtsecond.Text+"5"EndIfEndSubPrivateSubCommand6_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"6"Elsetxtsecond.Text=txtsecond.Text+"6"EndIfEndSubPrivateSubCommand7_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"1"Elsetxtsecond.Text=txtsecond.Text+"1"EndIfEndSubPrivateSubCommand8_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"2"Elsetxtsecond.Text=txtsecond.Text+"2"EndIfEndSubPrivateSubCommand9_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"3"Elsetxtsecond.Text=txtsecon