[VB.NET] โค้ดโปรแกรมเกมส์เล่นกับคอม Rock Paper Scissors หรือที่เราเรียกว่าเป่ายิ้งฉุบ

thongkorn

หลายคนก็คงได้เล่นกันมาตั้งแต่สมัยวัยเด็กแล้วแหละ ที่แอดมินนำโค้ดมาลงก็เพื่อให้บรรดามือใหม่ได้ฝึกคิด ไล่กระบวนการทำงานจากไหนไปไหน การทำก่อนทำหลัง โดยมีเงื่อนไขเป็นตัวกำหนดทิศทางไปครับ สำหรับเกมส์นี้จะประกอบไปด้วย กำปั้น กระดาษ และกรรไกร ซึ่งมีวิธีคิดแต่ละตัวจะเหมือนกันคือ สามารถชนะ 1 และแพ้ได้ 1 สำหรับโค้ดนี้จะเป็นการเล่นกับคอมพิวเตอร์ ดังนั้นเราจึงเอาแต่ละตัวมาตั้งค่าเป็นตัวเลข ดังนี้คือ ...
แทนค่าตัวเลข: 1 = กำปั้น, กระดาษ = 2 และ กรรไกร = 3
เกณฑ์การชนะ: 1 ชนะ 3, 2 ชนะ 1 และ 3 ชนะ 2
ลำดับขั้นตอนการทำงาน ... เปรียบเทียบค่าว่าเหมือนกันหรือไม่ หากใช่คือ เสมอกัน จากนั้นเอาเกณฑ์ที่เราเลือกมาเป็นเงื่อนไขในการชนะ หากเข้าเงื่อนไขตามด้านบน เราชนะ แต่หากไม่ใช่นั่นคือคอมพิวเตอร์ชนะ ...

มาดูโค้ดกันเถอะ ...

1. Public Class frmPaoYingChup
   
2.     Private strPath As String = MyPath(Application.StartupPath) & "pic"
   
3. 
   
4.     Private Sub frmPaoYingChup_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
5.         PictureBox1.Image = Image.FromFile(strPath & "0.jpg")
   
6.         PictureBox2.Image = Image.FromFile(strPath & "1.jpg")
   
7.     End Sub
   
8. 
   
9.     ' / ------------------------------------------------------------------
   
10.     ' / Get my project path
    
11.     ' / AppPath = C:\My Project\bin\debug
    
12.     ' / Replace "\bin\debug" with ""
    
13.     ' / Return : C:\My Project\
    
14.     Function MyPath(AppPath As String) As String
    
15.         AppPath = AppPath.ToLower()
    
16.         MyPath = AppPath.Replace("\bin\debug", "").Replace("bin\Release", "")
    
17.         '// Check the backslash symbol (ASCII Code = 92) on the far right. If not, add one at the end.
    
18.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
19.     End Function
    
20. 
    
21.     Private Sub RadioButton1_Click(sender As Object, e As System.EventArgs) Handles RadioButton1.Click
    
22.         PictureBox1.Image = Image.FromFile(strPath & "0.jpg")
    
23.         PictureBox2.Image = Image.FromFile(strPath & "1.jpg")
    
24.         Label3.Text = ""
    
25.     End Sub
    
26. 
    
27.     Private Sub RadioButton2_Click(sender As Object, e As System.EventArgs) Handles RadioButton2.Click
    
28.         PictureBox1.Image = Image.FromFile(strPath & "0.jpg")
    
29.         PictureBox2.Image = Image.FromFile(strPath & "2.jpg")
    
30.         Label3.Text = ""
    
31.     End Sub
    
32. 
    
33.     Private Sub RadioButton3_Click(sender As Object, e As System.EventArgs) Handles RadioButton3.Click
    
34.         PictureBox1.Image = Image.FromFile(strPath & "0.jpg")
    
35.         PictureBox2.Image = Image.FromFile(strPath & "3.jpg")
    
36.         Label3.Text = ""
    
37.     End Sub
    
38. 
    
39.     Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
    
40.         Dim Pic1 As Byte
    
41.         Dim Pic2 As Byte
    
42.         '// Random
    
43.         Dim RandomClass As New Random()
    
44.         Randomize()
    
45.         '// สุ่ม 1000 ค่า แล้ว Mod หรือหารเอาเศษด้วย 3 จะทำให้ได้คำตอบ คือ 0, 1, 2 แล้วก็บวกขึ้น 1
    
46.         Pic1 = RandomClass.Next(1, 1000) Mod 3 + 1
    
47.         PictureBox1.Image = Image.FromFile(strPath & "" & Pic1 & ".jpg")
    
48.         '// หาค่าของ Pic2 ที่เราเลือก
    
49.         If RadioButton1.Checked Then
    
50.             Pic2 = 1
    
51.         ElseIf RadioButton2.Checked Then
    
52.             Pic2 = 2
    
53.         Else
    
54.             Pic2 = 3
    
55.         End If
    
56. 
    
57.         '// วิธีคิดคือการแทนค่าด้วยตัวเลขดังนี้ ...
    
58.         '// 1 = กำปั้น, 2 = กระดาษ, 3 = กรรไกร
    
59.         '// อันดับแรกตรวจสอบว่าออกเหมือนกันหรือไม่
    
60.         If (Pic2 = Pic1) Then
    
61.             Label3.Text = "เสมอกันจ๊ะ"
    
62.             '// เมื่อ Pic2 คือตัวเราเลือก เอาเกณฑ์ชนะมาเป็นเงื่อนไข
    
63.             '// 1 ชนะ 3, 2 ชนะ 1 และ 3 ชนะ 2
    
64.         ElseIf (Pic2 = 1 And Pic1 = 3) Or (Pic2 = 2 And Pic1 = 1) Or (Pic2 = 3 And Pic1 = 2) Then
    
65.             Label3.Text = "คุณคือผู้ชนะ"
    
66.             '// นอกเหนือจากนั้นคอมชนะ
    
67.         Else
    
68.             Label3.Text = "คอมพิวเตอร์ชนะ"
    
69.         End If
    
70. 
    
71.     End Sub
    
72. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...