班級:自控四甲 姓名:何禎隆 學號: 老師:謝慶存

Presentation on theme: "班級:自控四甲 姓名:何禎隆 學號: 老師:謝慶存"— Presentation transcript:

1 班級:自控四甲 姓名:何禎隆 學號:49712075 老師:謝慶存
計算機程式及實習 題目:井字遊戲 班級:自控四甲 姓名:何禎隆 學號: 老師:謝慶存

2 井字遊戲 相信大家小時候都有玩過類似井字遊戲的遊戲
他的遊戲規則很簡單在設計中的小框框點選一下就會出現符號，當同一種符號連接成一條線，時就獲勝了

3 表單設計解析 在表單設計中我利用到了幾個簡單地工具。 其中有Buutom ，在表單中井字形的九個格子都用此工具來展現。
其中在顯現出結果輸贏時則是利用label1著個工具來設計。

4 程式碼的撰寫 Public Class Form1 Dim btn(9) As Button 定義9個案紐，作井字方格
Dim oxFlag As Boolean 定義oxFlag來記錄目前輪到誰點取 Dim sco(9) As Integer 設定方格的存放值 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load btn(1) = Button 將1-9的方格都設定為BTN陣列方便處理 btn(2) = Button2 btn(3) = Button3 btn(4) = Button4 btn(5) = Button5 btn(6) = Button6 btn(7) = Button7 btn(8) = Button8 btn(9) = Button9

5 Dim i As Integer 此頁為方塊的初始設定
For i = 1 To 9 With btn(i) .Height = btn(i).Width 設定方塊高寬和字型 .Left = ((i - 1) Mod 3) * btn(1).Width + 30 .Top = ((i - 1) \ 3) * btn(1).Height + 30 .Text = "" .Font = New System.Drawing.Font("Arial", 36) End With sco(i) = 0 Next oxFlag = True Label1.Text = "" Label1.Font = New System.Drawing.Font("新細明體", 20) Button10.Text = “重新開使”

6 Private Sub Button1_Click(ByVal sender As System
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click Dim no As Integer = Microsoft.VisualBasic.Right((CType(sender, Button).Name), 1) If oxFlag = True Then 將OXFLAG設定第一次按下時出現○ btn(no).Text = "○" sco(no) = 1 Else btn(no).Text = "╳" sco(no) = 2 End If oxFlag = Not oxFlag 以下是處理每次按下個井字方格時處理的動作 If sco(1) * sco(2) * sco(3) = 1 Then Label1.Text = "○贏!" If sco(4) * sco(5) * sco(6) = 1 Then Label1.Text = "○贏!" If sco(7) * sco(8) * sco(9) = 1 Then Label1.Text = "○贏!" If sco(1) * sco(4) * sco(7) = 1 Then Label1.Text = "○贏!" If sco(2) * sco(5) * sco(8) = 1 Then Label1.Text = "○贏!" If sco(3) * sco(6) * sco(9) = 1 Then Label1.Text = "○贏!"

7 If sco(1) * sco(5) * sco(9) = 1 Then Label1.Text = "○贏!"
If Label1.Text <> “” Then 此處開始處理當一方得勝時讓按鈕無法再按下 Dim i As Integer For i = 1 To 9 btn(i).Enabled = False Next End If End Sub

8 Private Sub Button10_Click(ByVal sender As System
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Dim i As Integer 以Button10_Click副程式處理按鈕重新的動作 For i = 1 To 9 With btn(i) .Enabled = True .Text = "" End With sco(i) = 0 Next Label1.Text = "" End Sub End Class

9 實際展示程式

10 參考文獻 學會寫程式Visual basic 頁