計(jì)算機(jī)vb設(shè)計(jì)課程實(shí)驗(yàn)報(bào)告--基礎(chǔ)用途計(jì)算器

1、<p><b>　　計(jì)算機(jī)vb設(shè)計(jì)課程</b></p><p><b>　　實(shí)驗(yàn)報(bào)告說明書</b></p><p><b>　　題　　目：計(jì)算器</b></p><p><b>　　姓　　名：　 　</b></p><p>　　班　　級：

2、 </p><p><b>　　指導(dǎo)老師：　　</b></p><p><b>　?。玻埃保蹦辏吩?日</b></p><p>　　設(shè)計(jì)名稱：基礎(chǔ)用途計(jì)算器</p><p>　　設(shè)計(jì)目的：通過vb程序設(shè)計(jì)出計(jì)算器進(jìn)行一些簡單運(yùn)算和進(jìn)制的轉(zhuǎn)換。</p><p><b>

3、;　　計(jì)算器設(shè)計(jì)界面：</b></p><p><b>　　設(shè)計(jì)步驟：</b></p><p><b>　　新建一個(gè)工程</b></p><p><b>　　設(shè)置控件：</b></p><p>　　插入一個(gè)text1控件，font屬性字號為“一號”， textAli

4、gn屬性調(diào)成Right。</p><p>　　插入一個(gè)標(biāo)簽控件（Label1），設(shè)置標(biāo)題屬性為“進(jìn)制”</p><p>　　插入四個(gè)單選按鈕，設(shè)置caption屬性分別為2進(jìn)制，8進(jìn)制，10進(jìn)制，16進(jìn)制。</p><p>　　插入一個(gè)timer控件，將Interval屬性設(shè)置為“100”</p><p>　　添加一個(gè)command1控件數(shù)組

5、數(shù)目為17，command1(0)至command1(9)caption屬性分別設(shè)置為由0至9，command1(10)標(biāo)題屬性設(shè)置為“.” ，command1(11)至command1(16)caption屬性分別設(shè)置為A至F。</p><p>　　添加控件command2,caption屬性為“=”</p><p>　　添加command3控件數(shù)組數(shù)目為4，caption屬性分別為“+

6、”，“-”，“*”，“/”</p><p>　　添加控件command4, command5, command6, command7設(shè)置標(biāo)題屬性分別為“CE”“SQR”“X^2”“1/X”</p><p>　　添加部件Microsoft Windows Common Controls 6.0</p><p>　　添加StatusBar部件，右鍵插入窗格，設(shè)置窗格寬度

7、，文本。</p><p><b>　　編寫程序代碼：</b></p><p>　　Dim a#, b#, x$, K%</p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　Text1 = Text1 & Command1(Index).

8、Caption</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　b = Val(Text1)</p><p>　　Select Case x</p><p><b>　　Case &qu

9、ot;+"</b></p><p><b>　　M = a + b</b></p><p><b>　　Case "-"</b></p><p><b>　　M = a - b</b></p><p><b>　　Case &

10、quot;*"</b></p><p><b>　　M = a * b</b></p><p><b>　　Case "/"</b></p><p>　　If b <> 0 Then</p><p><b>　　M = a / b<

11、;/b></p><p><b>　　Else</b></p><p>　　MsgBox "分母為0", "65", "警告"</p><p><b>　　End If</b></p><p>　　End Select</p&g

12、t;<p><b>　　Text1 = M</b></p><p>　　If M < 1 And M > 0 Then Text1 = "0" & Text1</p><p>　　If M > -1 And M < 0 Then Text1 = "-0" & Abs(Val(

13、Text1))</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click(Index As Integer)</p><p>　　a = Val(Text1): Text1 = ""</p><p>　　x = Command3(In

14、dex).Caption</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Text1 = ""</p><p><b>　　End Sub</b></p><

15、p>　　Private Sub Command5_Click()</p><p>　　K = Val(Text1)</p><p>　　Text1 = Sqr(K)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p>

16、<p>　　t = Val(Text1)</p><p>　　Text1 = t ^ 2</p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　I = Val(Text1)</p><p>

17、　　Text1 = 1 / I</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　K = 10</b></p><p>　　Option3.Value = True</p><p&g

18、t;<b>　　End Sub</b></p><p>　　Private Sub Option1_Click()</p><p>　　For I = 0 To 1</p><p>　　Command1(I).Enabled = True</p><p><b>　　Next</b></p&g

19、t;<p>　　For I = 2 To 16</p><p>　　Command1(I).Enabled = False</p><p><b>　　Next</b></p><p>　　Command1(10).Enabled = True</p><p>　　M = Val(Text1)</p&

20、gt;<p>　　Select Case K</p><p><b>　　Case 10</b></p><p>　　Text1 = F102(Text1)</p><p><b>　　Case 2</b></p><p>　　S1 = Text1</p><p&g

21、t;<b>　　Case 16</b></p><p>　　S2 = F1610(Text1)</p><p>　　Text1 = F102(S2)</p><p><b>　　Case 8</b></p><p>　　S3 = F810(Text1)</p><p>　　T

22、ext1 = F102(S3)</p><p>　　End Select</p><p><b>　　K = 2</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Option2_Click()</p><p>　　For

23、 I = 0 To 7</p><p>　　Command1(I).Enabled = True</p><p><b>　　Next</b></p><p>　　For I = 8 To 16</p><p>　　Command1(I).Enabled = False</p><p><b

24、>　　Next</b></p><p>　　Command1(10).Enabled = True</p><p>　　M = Val(Text1)</p><p>　　Select Case K</p><p><b>　　Case 10</b></p><p>　　Text1

25、 = Oct(M)</p><p><b>　　Case 2</b></p><p>　　S1 = F210(Text1)</p><p>　　Text1 = Oct(S1)</p><p><b>　　Case 16</b></p><p>　　S2 = F1610(Tex

26、t1)</p><p>　　Text1 = Oct(S2)</p><p><b>　　Case 8</b></p><p><b>　　Text1 = M</b></p><p>　　End Select</p><p><b>　　K = 8</b>

27、</p><p><b>　　End Sub</b></p><p>　　Private Sub Option3_Click()</p><p>　　For I = 0 To 10</p><p>　　Command1(I).Enabled = True</p><p><b>　　Ne

28、xt</b></p><p>　　For I = 11 To 16</p><p>　　Command1(I).Enabled = False</p><p><b>　　Next</b></p><p>　　M = Val(Text1)</p><p>　　Select Case K

29、</p><p><b>　　Case 10</b></p><p><b>　　Text1 = M</b></p><p><b>　　Case 2</b></p><p>　　Text1 = F210(Text1)</p><p><b>

30、　　Case 16</b></p><p>　　Text1 = F1610(Text1)</p><p><b>　　Case 8</b></p><p>　　Text1 = F810(Text1)</p><p>　　End Select</p><p><b>　　K =

31、 10</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Option4_Click()</p><p>　　For I = 0 To 16</p><p>　　Command1(I).Enabled = True</p><p>

32、<b>　　Next</b></p><p>　　M = Val(Text1)</p><p>　　Select Case K</p><p><b>　　Case 10</b></p><p>　　Text1 = Hex(M)</p><p><b>　　Case

33、 2</b></p><p>　　S1 = F210(Text1)</p><p>　　Text1 = Hex(S1)</p><p><b>　　Case 16</b></p><p>　　S2 = F1610(Text1)</p><p>　　Text1 = Hex(S2)<

34、/p><p><b>　　Case 8</b></p><p>　　S2 = F810(Text1)</p><p>　　Text1 = Hex(S2)</p><p>　　End Select</p><p><b>　　K = 16</b></p><p&

35、gt;<b>　　End Sub</b></p><p>　　Function F102(S)</p><p>　　K = Val(S)</p><p><b>　　x = ""</b></p><p>　　While K <> 0</p><p&

36、gt;　　x = K Mod 2 & x</p><p><b>　　K = K \ 2</b></p><p><b>　　Wend</b></p><p><b>　　F102 = x</b></p><p>　　End Function</p>&l

37、t;p>　　Function F210(S)</p><p><b>　　K = 0</b></p><p>　　For I = 0 To Len(S) - 1</p><p>　　K = K + Val(Mid(S, Len(S) - I, 1)) * 2 ^ I</p><p><b>　　Next&

38、lt;/b></p><p><b>　　F210 = K</b></p><p>　　End Function</p><p>　　Function F810(S)</p><p><b>　　K = 0</b></p><p>　　For I = 0 To Len(

39、S) - 1</p><p>　　K = K + Val(Mid(S, Len(S) - I, 1)) * 8 ^ I</p><p><b>　　Next</b></p><p><b>　　F810 = K</b></p><p>　　End Function</p><p&

40、gt;　　Function F1610(S)</p><p><b>　　K = 0</b></p><p>　　For I = 0 To Len(S) - 1</p><p>　　x = Mid(S, Len(S) - I, 1)</p><p>　　Select Case x</p><p>

41、　　Case "1" To "9"</p><p>　　K = K + Val(x) * 16 ^ I</p><p>　　Case "A" To "F"</p><p>　　K = K + (Asc(x) - 55) * 16 ^ I</p><p>　　End

42、 Select</p><p><b>　　Next</b></p><p><b>　　F1610 = K</b></p><p>　　End Function</p><p>　　Private Sub Timer1_Timer()</p><p>　　StatusBar

43、1.Panels(2).Text = Date & " " & Time</p><p><b>　　End Sub</b></p><p>　　總結(jié)：通過vb設(shè)計(jì)計(jì)算器使自己掌握select case的編寫方法以既vb中部件的屬性設(shè)置方法。</p><p>　　不足：不能實(shí)現(xiàn)科學(xué)計(jì)數(shù)法，三角函數(shù)運(yùn)算等復(fù)雜運(yùn)