计算机程式及实习期末报告题目ooxx的游戏.pptVIP

計算機程式及實習期末報告題目:OOXX的遊戲 機械工程系 奈米ㄧ甲 學號老師:謝慶存老師 學生:周彥岑 OOXX 每個人都玩過的簡易小遊戲，比雙方的心機與腦力，事處近兩人感情的小遊戲。 摘要 一. OOXX基本遊戲規則： 1.一人每回合只能走一次，並且不能夠反悔 2.當某方成功連成一條線時及為獲勝方 系統分析 需要判定該到哪方執行遊戲 本遊戲需要判定出輸贏所以需要許多條件式判定勝利。 判定條件為當點選1時程式自動判斷是否有123或159或147聯成一條線。下面以此類推 表面設計 程式碼 Public Class OOXX遊戲 Dim x = 0 ‘宣告X=0(判定輪到誰) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click x = x + 1 ‘第進行第X回 Button1.Enabled = False If x Mod 2 = 1 Then ‘判斷X為奇數則為O玩家，假如不是則為X玩家 Button1.Text = Ｏ If Button1.Text = Button2.Text AndAlso Button1.Text = Button3.Text _ OrElse Button1.Text = Button4.Text AndAlso Button1.Text = Button7.Text _ OrElse Button1.Text = Button5.Text AndAlso Button1.Text = Button9.Text Then Label1.Text = 贏家是 + Button1.Text ‘判定點選後是否有連成一線1的連線號碼有123、147、159 End If Else Button1.Text = Ｘ If Button1.Text = Button2.Text AndAlso Button1.Text = Button3.Text _ OrElse Button1.Text = Button4.Text AndAlso Button1.Text = Button7.Text _ OrElse Button1.Text = Button5.Text AndAlso Button1.Text = Button9.Text Then Label1.Text = 贏家是 + Button1.Text End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click x = x + 1 ‘第進行第X回 Button2.Enabled = False If x Mod 2 = 1 Then Button2.Text = Ｏ If Button2.Text = Button1.Text AndAlso Button2.Text = Button3.Text _ OrElse Button2.Text = Button5.Text AndAlso Button2.Text = Button8.Text _ Then ‘判定點選後是否有連成一線，2的連線號碼有123、258 Label1.Text = 贏家是 + Button2.Text End If Else Button2.Text = Ｘ If Button2.Text = Button1.Text AndAlso Button2.Text = Button3.Text _ OrElse Button2.Text = Button