vb-股市計(jì)算器課程設(shè)計(jì)報(bào)告書

1、<p>　　編程語言課程設(shè)計(jì)報(bào)告書</p><p>　　所屬課程名稱： VB程序設(shè)計(jì)語言</p><p>　　題 目： 股市計(jì)算器</p><p>　　學(xué) 院： 經(jīng)管學(xué)院</p><p><b>　　課程設(shè)計(jì)報(bào)告任務(wù)書</b></p><p>　　課程設(shè)計(jì)題目：股市計(jì)算器</p

2、><p>　　課程設(shè)計(jì)時(shí)間：2011年6月20日起至2011年6月24日止</p><p>　　課程設(shè)計(jì)地點(diǎn)：經(jīng)管機(jī)房908</p><p><b>　　課程設(shè)計(jì)要求：</b></p><p><b>　　評(píng)分標(biāo)準(zhǔn)</b></p><p>　　基本功能實(shí)現(xiàn)（30分）</p&

3、gt;<p>　　獨(dú)立工作能力及工作量（30分）</p><p>　　問題復(fù)雜程度/代碼量（25分）</p><p>　　代碼質(zhì)量：容錯(cuò)、通用性、可讀性。（10分）</p><p><b>　　改進(jìn)或創(chuàng)新（5分）</b></p><p><b>　　提交成果</b></p>

4、<p>　　可執(zhí)行程序（現(xiàn)場(chǎng)驗(yàn)收）。</p><p>　　課程設(shè)計(jì)報(bào)告。內(nèi)容包括：</p><p>　?。?）問題描述、任務(wù)分工（合作完成）</p><p>　?。?）數(shù)據(jù)庫設(shè)計(jì)（如果有）</p><p><b>　?。?）功能模塊描述</b></p><p>　?。?）難點(diǎn)及解決方

5、法</p><p><b>　?。?）體會(huì)</b></p><p><b>　?。?）其它 </b></p><p><b>　　參考資料</b></p><p>　　Visual Basic 課程設(shè)計(jì)，王棟，清華大學(xué)出版社</p><p><b&

6、gt;　　目 錄</b></p><p>　　功能描述……………………………………………………………….2</p><p>　　二、 設(shè)計(jì)思路……………………………………………………………….2</p><p>　　三、 具體實(shí)現(xiàn)………………………………………………………………..3-6</p><p>　　四、 運(yùn)

7、行結(jié)果及難點(diǎn)解決…………………………………………………..7-8</p><p>　　五、 設(shè)計(jì)體會(huì)………………………………………………………………..9</p><p><b>　　一、功能描述</b></p><p><b>　　股市計(jì)算器：</b></p><p>　　隨著社會(huì)的發(fā)展，股市

8、越來越受到人們青睞。股民在進(jìn)行股票投資和交易時(shí)，經(jīng)常需要對(duì)買賣股票作出投資分析：在上市公司進(jìn)行送股、分紅河配股后還需對(duì)股票除權(quán)后的價(jià)格進(jìn)行計(jì)算。所以“股市計(jì)算器”應(yīng)運(yùn)而生。</p><p>　　打來程序，運(yùn)行并進(jìn)入主界面。</p><p>　　當(dāng)需要對(duì)投資進(jìn)行評(píng)估，并計(jì)算相應(yīng)費(fèi)用時(shí)，單擊“投資分析”按鈕，進(jìn)入“投資分析”窗口，輸入數(shù)據(jù)并計(jì)算結(jié)果。</p><p>　

9、　當(dāng)需要對(duì)上市公司進(jìn)行送股、分紅和配股后的除權(quán)價(jià)格進(jìn)行計(jì)算時(shí)，單擊“除權(quán)除息”按鈕，輸入數(shù)據(jù)并計(jì)算結(jié)果。</p><p>　　“參數(shù)設(shè)置”是根據(jù)相應(yīng)數(shù)值設(shè)置的默認(rèn)值，考慮到各種數(shù)率的變化情況，將其設(shè)置為可輸入文本框。</p><p>　　“關(guān)于”窗體主要軟件的功能及版本信息進(jìn)行說明。讓使用者更加了解該軟件的用途。</p><p><b>　　二、設(shè)計(jì)思路&

10、lt;/b></p><p><b>　　思想原理：</b></p><p>　　本題主要涉及多窗體的使用、文本框等基本控件的使用、控件的鍵盤輸入焦點(diǎn)等知識(shí)點(diǎn)。</p><p>　　由一個(gè)窗體聯(lián)結(jié)到多個(gè)窗體，進(jìn)入不同的功能板塊。</p><p>　　運(yùn)用文本框的各項(xiàng)控件，進(jìn)行調(diào)試。</p><p

11、><b>　　三、具體實(shí)現(xiàn)</b></p><p>　　在右邊的屬性窗口中把五個(gè)command屬性依次改為“投資分析”，“除權(quán)除息”，“參數(shù)設(shè)置”，“關(guān)于”，“退出”；雙擊form1屬性窗口中的Icon屬性，選取圖標(biāo)，再將caption屬性改為“股市計(jì)算器”。</p><p><b>　　程序源代碼：</b></p><

12、p><b>　　Form1</b></p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Form2.Show</p><p><b>　　Me.Hide</b></p><p&

13、gt;<b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form3.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p&

14、gt;<p>　　Private Sub Command3_Click()</p><p>　　Form4.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_C

15、lick()</p><p>　　Form5.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　

16、End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Resize()</p><p>　　Private Sub Form_Resize()</p><p>　　Dim objpicbuf As IPictureDisp</p>

17、<p>　　AutoRedraw = True</p><p>　　Set objpicbuf = LoadPicture("123.jpg")</p><p>　　PaintPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeight</p><p><b>　　End Sub<

18、/b></p><p><b>　　End Sub</b></p><p><b>　　Form2</b></p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Dim b,

19、 c, d, e, f, g, h, i, j As Single</p><p>　　Dim a As Long</p><p>　　If Text1.text = "" Then</p><p>　　MsgBox "股票代碼不能為空！"</p><p><b>　　Exit Sub&

20、lt;/b></p><p><b>　　End If</b></p><p>　　a = Val(Text1.text)</p><p>　　b = Val(Text2.text)</p><p>　　c = Val(Text3.text)</p><p>　　d = Val(Text4.

21、text)</p><p>　　Form4.Hide</p><p>　　e = c + 0.003 * c + c * x + d * 0.003 + d * x</p><p>　　Text5.text = Format(Val(e), "0.00")</p><p>　　f = b * c * y + b * d *

22、 x * y</p><p>　　Text6.text = Format(Val(f), "0.00")</p><p>　　g = b * c + c * y * b</p><p>　　Text7.text = Format(Val(g), "0.00")</p><p>　　h = b * d -

23、 g + b * c</p><p>　　Text8.text = Format(Val(h), "0.00")</p><p><b>　　i = h - g</b></p><p>　　Text9.text = Format(Val(i), "0.00")</p><p>　　

24、j = (i / g) * 100</p><p>　　Text10.text = Format(Val(j), "0.00")</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text1.text

25、= ""</p><p>　　Text2.text = ""</p><p>　　Text3.text = ""</p><p>　　Text4.text = ""</p><p>　　Text5.text = ""</p>&l

26、t;p>　　Text6.text = ""</p><p>　　Text7.text = ""</p><p>　　Text8.text = ""</p><p>　　Text9.text = ""</p><p>　　Text10.text = "

27、;"</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form1.Show</p><p>　　Form2.Hide</p>

28、<p><b>　　End Sub</b></p><p><b>　　Form3</b></p><p>　　Private Sub Command1_Click()</p><p>　　Form1.Show</p><p>　　Form3.Hide</p><p

29、><b>　　End Sub</b></p><p>　　Private Sub Command13_Click()</p><p>　　Dim a, b, c, d, e, f As Single</p><p>　　If Text1.text = "" Then</p><p>　　Msg

30、Box "當(dāng)前價(jià)位不能為空！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text2.text = "" Then</p><p>　　MsgBox "每股送股不

31、能為空！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text3.text = "" Then</p><p>　　MsgBox "每股分紅不能為空！"</

32、p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text4.text = "" Then</p><p>　　MsgBox "每股配股不能為空！"</p><p>

33、;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text5.text = "" Then</p><p>　　MsgBox "配股價(jià)位不能為空！"</p><p><b>　　Exi

34、t Sub</b></p><p><b>　　End If</b></p><p>　　a = Val(Text1.text)</p><p>　　b = Val(Text2.text)</p><p>　　c = Val(Text3.text)</p><p>　　d = Val(

35、Text4.text)</p><p>　　e = Val(Text5.text)</p><p>　　f = (a + d * e - c) / (1 + b + d)</p><p>　　Text6.text = Format(Val(f), "0.00")</p><p><b>　　End Sub<

36、/b></p><p>　　Private Sub Command14_Click()</p><p>　　Text1.text = ""</p><p>　　Text2.text = ""</p><p>　　Text3.text = ""</p><p&

37、gt;　　Text4.text = ""</p><p>　　Text5.text = ""</p><p>　　Text6.text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p&g

38、t;<p><b>　　Form4</b></p><p>　　Dim z As Single</p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Form1.Show</p><p>

39、　　Form4.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form2.Show</p><p>　　Form4.Hide</p><p>　　x = Val(Text1.text)

40、</p><p>　　y = Val(Text2.text)</p><p>　　z = Val(Text3.text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　x = 0.004

41、</b></p><p>　　y = 0.0035</p><p><b>　　z = 10</b></p><p><b>　　End Sub</b></p><p><b>　　Form5</b></p><p>　　Private Su

42、b Command1_Click()</p><p>　　Form1.Show</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　模塊：Public x, y As Single</p><p>　　四、運(yùn)行結(jié)果及難點(diǎn)解決</p

43、><p><b>　　程序主界面：</b></p><p><b>　　投資分析：</b></p><p><b>　　除權(quán)除息：</b></p><p><b>　　參數(shù)設(shè)置：</b></p><p><b>　　關(guān)于：&l

44、t;/b></p><p><b>　　問題及解決方案：</b></p><p>　　問題1：運(yùn)行時(shí)，text中輸出的數(shù)據(jù)有多位小數(shù)點(diǎn)，要求保留兩位。</p><p>　　原因：對(duì)text輸出結(jié)果沒有做取舍。</p><p>　　解決辦法：對(duì)text輸出結(jié)果用format函數(shù)進(jìn)行控制，如text1.text=for

45、mat（val（text1.text），“0.00”）</p><p>　　問題2：運(yùn)行過程中，form4參數(shù)設(shè)置中的數(shù)據(jù)改動(dòng)，但是form2投資分析中的計(jì)算依然按照默認(rèn)值計(jì)算。</p><p>　　原因：沒有將form4中的變量定義為全局變量。</p><p>　　解決辦法：添加模塊，將form4中的變量定義為全局變量，如：Public x，y as single

46、</p><p>　　問題3：設(shè)置全局變量后，計(jì)算時(shí)仍是按照默認(rèn)值計(jì)算。</p><p>　　原因：，計(jì)算時(shí)form4沒被調(diào)用。</p><p>　　解決辦法：在計(jì)算控件下，計(jì)算代碼前調(diào)用form4，如 form4.hide</p><p>　　問題4：給主界面插入背景圖片時(shí)大小不與窗體相符。</p><p>　　原因

47、：沒有設(shè)置圖片大小。</p><p>　　解決辦法：設(shè)置VB的form屬性AutoRedraw=ture ，同時(shí)Set objpicbuf = Picture</p><p>　　PaintPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeight，圖片就能與窗體大小一致。</p><p>　　問題5：在運(yùn)行時(shí)，text中的文字

48、不會(huì)換行，并且不能閱讀到所有內(nèi)容。</p><p>　　原因：在繪制界面時(shí)，沒有改動(dòng)屬性窗口里的Mutiline的屬性。</p><p>　　解決辦法：將原來Mutiline的false改為true。</p><p><b>　　五、設(shè)計(jì)體會(huì)</b></p><p>　　一、體會(huì)小結(jié)：經(jīng)過三天時(shí)間，終于完成了本次的課程

49、設(shè)計(jì)。通過本次的課程設(shè)計(jì)了解到了文本框等基</p><p>　　本控件的使用的多方面知識(shí)，特別是關(guān)于多窗體的使用、文本框等基本控件的使用、控件的</p><p>　　鍵盤輸入焦點(diǎn)這方面知識(shí)。通過這次股市程序的編寫，對(duì)VB的基本概念有了進(jìn)一步的了解。</p><p>　　同時(shí)在做實(shí)驗(yàn)實(shí)現(xiàn)過程中還是遇見了不少問題。例如在編寫塊if時(shí)，常忘了寫End if；還有忘記對(duì)一些