《三子棋(VB)》課程設(shè)計報告書

河北聯(lián)合大學《軟件設(shè)計基礎(chǔ)（VB）》課程設(shè)計報告設(shè)計名稱：三子棋游戲姓名：張峰學號：201006040226專業(yè)班級：10成型2班學院：冶金與能源學院設(shè)計時間：2011年5月10日到2011年6月25日設(shè)計地點：學校機房成績：指導教師評語：成績：指導教師簽字：年月日《軟件設(shè)計基礎(chǔ)（VB）》課程設(shè)計報告第13頁，共13頁目錄1.課程設(shè)計目的 2.課程設(shè)計任務與要求 3.課程設(shè)計說明書 4.課程設(shè)計成果 5.程序調(diào)試過程 6.設(shè)計問題的不足和改進方案 7.課程設(shè)計心得 8.附錄 9.參考文獻

1．課程設(shè)計目的《軟件設(shè)計基礎(chǔ)（VB）》課程設(shè)計是這門課程的實踐性教學環(huán)節(jié)之一，本次設(shè)計結(jié)合實際應用的要求，使課程設(shè)計既覆蓋VB的知識點，又接近工程實際需要。目的是通過課程設(shè)計的綜合訓練，培養(yǎng)學生實際分析問題、解決問題的能力，以及編程和動手能力，最終目標是通過課程設(shè)計這種形式，幫助學生系統(tǒng)掌握VB這門課程的主要內(nèi)容，養(yǎng)成良好的編程習慣，更好的完成教學任務。2．課程設(shè)計任務與要求：要求：本次課程設(shè)計利用《軟件設(shè)計基礎(chǔ)（VB）》課程中所學到的編程知識和編程技巧，完成具有一定難度和工作量的程序設(shè)計題目，幫助學生掌握編程、調(diào)試的基本技能，獨立完成所布置的任務。要求：1、對系統(tǒng)進行功能需求分析2、設(shè)計合理的數(shù)據(jù)結(jié)構(gòu)和系統(tǒng)框架3、界面設(shè)計美觀、清楚、合理4、編程簡練，程序功能齊全，能正確運行5、具有一定的創(chuàng)新性6、說明書、流程圖要清楚7、課題完成后必須按要求提交課程設(shè)計報告任務：將自己選擇題目的任務要求簡單填寫在此處。1.三子棋為3X3的九格棋盤，由兩人對弈，其中任一方先三子聯(lián)成直線為勝，如九格下滿雙方都未有三子成線則為平局。2．基本要求：（1）要求在設(shè)計的程序中控件數(shù)組來實現(xiàn)。（2）完成的程序界面要美觀，能夠完成游戲的整個過程。3．創(chuàng)新要求：在基本要求達到后，進行創(chuàng)新設(shè)計，如增加游戲子功能等。

3．課程設(shè)計說明書=1\*GB2⑴功能描述三子棋為3X3的九格棋盤，由兩人對弈，其中任一方先三子聯(lián)成直線為勝，如九格下滿雙方都未有三子成線則為平局。⑵概要設(shè)計（1）要求在設(shè)計的程序中控件數(shù)組來實現(xiàn)。（2）完成的程序界面要美觀，能夠完成游戲的整個過程。主要寫模塊說明，模塊結(jié)構(gòu)圖，系統(tǒng)流程圖（例N-S流程圖）（五號，宋體）模塊結(jié)構(gòu)圖：根據(jù)功能分析，建立系統(tǒng)的體系結(jié)構(gòu)，即將整個系統(tǒng)分解成若干子模塊，用框圖表示各功能模塊之間的接口關(guān)系（如下圖）。導入窗口導入窗口開始模塊開始模塊判定模塊游戲模塊判定模塊游戲模塊結(jié)束與結(jié)束與顯示模塊簡易文件系統(tǒng)功能框圖⑶詳細設(shè)計總體流程圖：各功能模塊流程⑷代碼實現(xiàn)詳細說明各功能模塊的實現(xiàn)過程，所用到的算法、技巧等（附上代碼）。如：本系統(tǒng)總共2個窗體：form1.form2詳細如下：1.開始窗體作用：“導入應用程序”。所用控件：1個標簽，2個按鈕。設(shè)計思路：用標簽顯示開始語。按鈕顯示開始與退出。詳細內(nèi)容：屬性較特殊的需要說明。代碼如下：PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()UnloadMeEndSub2.應用程序作用：“開始應用程序”。所用控件：1個控件數(shù)組，2個按鈕。設(shè)計思路：用command控件數(shù)組運行游戲。。詳細內(nèi)容：屬性較特殊的需要說明。代碼如下DimTimes_numberAsIntegerDimwin_XAsIntegerDimwin_OAsIntegerDimwinerAsBooleanPrivateSubCommand1_Click(IndexAsInteger)'下棋的次數(shù)Times_number=Times_number+1Command1(Index).Enabled=FalseIfTimes_numberMod2<>0ThenCommand1(Index).Caption="X"ElseCommand1(Index).Caption="O"EndIf'<1>0-1-2If(Command1(0).Caption=Command1(1).Caption)And_(Command1(1).Caption=Command1(2).Caption)And_(Command1(0).Caption<>""AndCommand1(1).Caption<>""AndCommand1(2).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TruIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=True'<2>0-4-8ElseIf(Command1(0).Caption=Command1(4).Caption)And_(Command1(4).Caption=Command1(8).Caption)And_(Command1(0).Caption<>""AndCommand1(4).Caption<>""AndCommand1(8).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIf'<3>0-3-6ElseIf(Command1(0).Caption=Command1(3).Caption)And_(Command1(3).Caption=Command1(6).Caption)And_(Command1(0).Caption<>""AndCommand1(3).Caption<>""AndCommand1(6).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=True'<4>1-4-7ElseIf(Command1(1).Caption=Command1(4).Caption)And_(Command1(4).Caption=Command1(7).Caption)And_(Command1(1).Caption<>""AndCommand1(4).Caption<>""AndCommand1(7).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=True'<>2-4-6ElseIf(Command1(2).Caption=Command1(4).Caption)And_(Command1(4).Caption=Command1(6).Caption)And_(Command1(2).Caption<>""AndCommand1(4).Caption<>""AndCommand1(6).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=True'<5>2-5-8ElseIf(Command1(2).Caption=Command1(5).Caption)And_(Command1(5).Caption=Command1(8).Caption)And_(Command1(2).Caption<>""AndCommand1(5).Caption<>""AndCommand1(8).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=True'<6>3-4-5ElseIf(Command1(3).Caption=Command1(4).Caption)And_(Command1(4).Caption=Command1(5).Caption)And_(Command1(3).Caption<>""AndCommand1(4).Caption<>""AndCommand1(5).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=True'<7>6-7-8ElseIf(Command1(6).Caption=Command1(7).Caption)And_(Command1(7).Caption=Command1(8).Caption)And_(Command1(6).Caption<>""AndCommand1(7).Caption<>""AndCommand1(8).Caption<>"")ThenLabel2.Caption="為:"+Command1(Index).CaptionCommand2.Enabled=TrueIfCommand1(Index).Caption="X"Thenwin_X=win_X+1Label4.Caption=Str(win_X)Elsewin_O=win_O+1Label6.Caption=Str(win_O)EndIfwiner=TrueEndIfIfTimes_number=9Andwiner<>TrueThenLabel2.Caption="雙方平局"Command2.Enabled=TrueEndIfEndSub'開始PrivateSubCommand2_Click()DimiAsIntegerFori=0To8Step1Command1(i).Caption=""Command1(i).Enabled=TrueNextiCommand2.Enabled=FalseLabel2.Caption=""winer=FalseTimes_number=0EndSubPrivateSubCommand3_Click()EndEndSub'winer判斷是否有一方勝利PrivateSubForm_Load()DimiAsIntegerFori=0To8Step1Command1(i).Enabled=FalseCommand1(i).Caption=""Command1(i).FontSize=25NextiTimes_nmumber=0win_X=0win_O=0winer=faseEndSub4．課程設(shè)計成果運行結(jié)果（可用屏幕抓圖的方法說明）（五號，宋體）(多頁)5.程序調(diào)試過程寫出程序調(diào)試步驟，及遇到的問題。（1）注意控件按鈕的屬性及使用PrivateSubForm_Load()DimiAsIntegerFori=0To8Step1Command1(i).Enabled=FalseCommand1(i).Caption=""Command1(i).FontSize=25NextiTimes_nmumber=0win_X=0win_O=0winer=faseEndSub（2）勝負的判定'<1>0-1-2If(Command1(0).Caption=Command1(1).Caption)And_(Command1(1).Caption=Command1(2).Caption)And_(Comman