計(jì)算器項(xiàng)目實(shí)訓(xùn)報(bào)告書(shū)

PAGEPAGE9信息科學(xué)與技術(shù)學(xué)院信息科學(xué)與技術(shù)學(xué)院項(xiàng)目實(shí)訓(xùn)報(bào)告書(shū)課程名稱(chēng)VB程序設(shè)計(jì) 姓名高海濤 班級(jí)10（1）班 學(xué)號(hào)10261139 指導(dǎo)教師陳勁新鹽城師范學(xué)院信息科學(xué)與技術(shù)學(xué)院2011.12題目：復(fù)雜科學(xué)性數(shù)學(xué)計(jì)算器。（【基本要求】本計(jì)算器可實(shí)現(xiàn)普通的計(jì)算功能，如加、減、乘、除，還可以進(jìn)行倒數(shù)、開(kāi)方、乘方、三角函數(shù)計(jì)算、階乘、對(duì)數(shù)、計(jì)算，還可以進(jìn)行十進(jìn)制和八進(jìn)制、十進(jìn)制和十六進(jìn)制之間的換算，以及數(shù)字的保存和讀取。實(shí)訓(xùn)的目的和要求：通過(guò)本項(xiàng)技術(shù)實(shí)訓(xùn)活動(dòng)，了解完整的VB程序設(shè)計(jì)與工程實(shí)現(xiàn)的一般方法，整體掌握模塊級(jí)的基本編程技術(shù)，綜合實(shí)踐課堂與實(shí)驗(yàn)課中所學(xué)到的單元技術(shù)方法。培養(yǎng)VB編程技術(shù)的工程應(yīng)用能力。要求每個(gè)同學(xué)自行選擇題目，《VB程序設(shè)計(jì)》項(xiàng)目實(shí)訓(xùn)指導(dǎo)書(shū)題目后面是每個(gè)題目數(shù)量的每題所選限值人數(shù)。也可自己提出設(shè)計(jì)題目，要預(yù)先取得老師的同意。設(shè)計(jì)時(shí)，獨(dú)立完成，遇到問(wèn)題可查詢(xún)網(wǎng)絡(luò)或詢(xún)問(wèn)指導(dǎo)老師。設(shè)計(jì)后期，應(yīng)寫(xiě)出設(shè)計(jì)報(bào)告，包括：題目?jī)?nèi)容、添加控件和屬性設(shè)置的過(guò)程、算法說(shuō)明、程序變量使用說(shuō)明、解決方法、創(chuàng)新點(diǎn)及對(duì)設(shè)計(jì)所包含的知識(shí)點(diǎn)的認(rèn)識(shí)等。實(shí)訓(xùn)的軟件環(huán)境：VisualBasic6.0集成開(kāi)發(fā)環(huán)境Internet互聯(lián)網(wǎng)實(shí)訓(xùn)設(shè)計(jì)過(guò)程和內(nèi)容（可加附頁(yè)）：一分析問(wèn)題選擇算法科學(xué)計(jì)算器主要實(shí)現(xiàn)基本的加減乘除運(yùn)算、三角函數(shù)運(yùn)算、倒數(shù)、乘方、開(kāi)方、階乘、對(duì)數(shù)等運(yùn)算，還要實(shí)現(xiàn)十進(jìn)制與十六進(jìn)制，十進(jìn)制與八進(jìn)制的轉(zhuǎn)換等。為實(shí)現(xiàn)上述功能，我的基本思路是運(yùn)用課上老師講的簡(jiǎn)單計(jì)算器為基礎(chǔ)，利用VB系統(tǒng)自帶的常用函數(shù)實(shí)現(xiàn)運(yùn)算功能，再添加需要的其它命令按鈕。二建立用戶界面建立如下界面：三設(shè)置相關(guān)窗體和控件的基本屬性四編寫(xiě)代碼進(jìn)行調(diào)試PrivateSubCommand1_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"7"Elsetxtsecond.Text=txtsecond.Text+"7"EndIfEndSubPrivateSubCommand10_Click()'每點(diǎn)擊一下該按鈕，就在文本框的尾部加字符“0”。'如果txtLabel為空，則說(shuō)明現(xiàn)在正在輸入的是第1個(gè)數(shù)字；'否則表示輸入的是第2個(gè)數(shù)字；Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"0"Elsetxtsecond.Text=txtsecond.Text+"0"EndIfEndSubPrivateSubCommand11_Click()'如果txtLabel為空，則說(shuō)明現(xiàn)在正在輸入的是第1個(gè)數(shù)字；'否則表示當(dāng)前正在輸入的是第2個(gè)數(shù)字。'首先用Val函數(shù)將txtFirst.Text轉(zhuǎn)換為數(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="開(kāi)方"EndSubPrivateSubCommand2_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"8"Elsetxtsecond.Text=txtsecond.Text+"8"EndIfEndSubPrivateSubCommand20_Click()txtlabel.Text="階乘"EndSubPrivateSubCommand21_Click()txtlabel.Text="對(duì)數(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'定義一個(gè)Double類(lèi)型的變量。SelectCasetxtlabel.Text'以txtLabel.Text的值為多重分支條件Case"加"'當(dāng)txtLabel.Text的值為“加”時(shí)MyResult=Val(txtfirst.Text)+Val(txtsecond.Text)Case"減"'當(dāng)txtLabel.Text的值為“減”時(shí)MyResult=Val(txtfirst.Text)-Val(txtsecond.Text)Case"乘"'當(dāng)txtLabel.Text的值為“乘”時(shí)MyResult=Val(txtfirst.Text)*Val(txtsecond.Text)Case"除"'當(dāng)txtLabel.Text的值為“除”時(shí)MyResult=Val(txtfirst.Text)/Val(txtsecond.Text)Case"倒數(shù)"MyResult=1/Val(txtfirst.Text)Case"開(kāi)方"MyResult=Sqr(Val(txtfirst.Text))Case"乘方"MyResult=Val(txtfirst.Text)^Val(txtsecond.Text)Case"階乘"DimiAsIntegerMyResult=1Fori=1ToVal(txtfirst.Text)MyResult=MyResult*iNextiCase"對(duì)數(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'將計(jì)算結(jié)果顯示txtfirst.Text=txtresult.Text'將計(jì)算結(jié)果做為第1個(gè)數(shù)字，以便繼續(xù)運(yùn)算。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