ProjectForStudy

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 353|ตอบกลับ: 12

[แบ่งปัน] How to coding Bingo Game with Visual Basic .NET 2017 สอนเขียนโปรแกรมเกมบิงโกครับ

[คัดลอกลิงก์]
  • อารมณ์วันนี้
    แฮปปี้
    2017-6-25 18:59
  • เช็คชื่อแล้ว: 2 วัน

    [LV.1]NewBie

    104

    กระทู้

    507

    โพสต์

    1หมื่น

    เครดิต

    ผู้ดูแลระบบ

    Rank: 9Rank: 9Rank: 9

    เครดิต
    10886
    Ticket
    8939
    จิตพิสัย
    1947

    Expert OnlineExpert Post

    Screen Shot


    Video


    Code
    1. Private numberList As New Dictionary(Of Integer, Button)
    2.     Private randomLog As New List(Of Integer)

    3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4.         radVertical.Checked = True
    5.         FlowLayoutPanel1.AutoScroll = True

    6.         numMin.Value = 1
    7.         numMax.Value = 75
    8.         numMin.Minimum = 1
    9.     End Sub

    10.     Private Sub radVertical_CheckedChanged(sender As Object, e As EventArgs) Handles radVertical.CheckedChanged
    11.         FlowLayoutPanel1.FlowDirection = If(radVertical.Checked, FlowDirection.TopDown, FlowDirection.LeftToRight)
    12.     End Sub

    13.     Private Sub StartGame()
    14.         btnRandom.Enabled = True
    15.         btnStart.Enabled = False
    16.         btnStop.Enabled = True
    17.         GroupBox1.Enabled = False
    18.         GroupBox2.Enabled = False

    19.         Dim numRange As List(Of Integer) = Enumerable.Range(numMin.Value, numMax.Value).ToList()

    20.         For Each number In numRange
    21.             Dim btn As New Button()
    22.             btn.Name = "btn" & number
    23.             btn.Size = New Size(60, 60)
    24.             btn.FlatStyle = FlatStyle.Flat
    25.             btn.Text = number
    26.             btn.Font = New Font("Microsoft Sans Serif", 14)

    27.             FlowLayoutPanel1.Controls.Add(btn)

    28.             numberList.Add(number, btn)
    29.         Next
    30.     End Sub

    31.     Private Sub StopGame()
    32.         btnRandom.Enabled = False
    33.         btnStart.Enabled = True
    34.         btnStop.Enabled = False
    35.         GroupBox1.Enabled = True
    36.         GroupBox2.Enabled = True

    37.         FlowLayoutPanel1.Controls.Clear()
    38.         numberList.Clear()
    39.         randomLog.Clear()

    40.         lblRandomNumber.Text = "000"
    41.     End Sub

    42.     Private Sub DoRandomNumer()
    43.         If randomLog.Count = numberList.Count Then
    44.             MsgBox("No more number for random")
    45.             Return
    46.         End If

    47.         ' animation random
    48.         For i As Integer = 1 To 100
    49.             Dim rndDummy As Integer = CInt(numMax.Value * Rnd())
    50.             lblRandomNumber.Text = rndDummy
    51.             Threading.Thread.Sleep(10)
    52.             Application.DoEvents()
    53.         Next

    54.         Randomize()

    55.         Dim rndNumber As Integer = (numMax.Value * Rnd())
    56.         While randomLog.Contains(rndNumber) Or rndNumber = 0
    57.             rndNumber = (numMax.Value * Rnd())
    58.         End While

    59.         randomLog.Add(rndNumber)
    60.         lblRandomNumber.Text = rndNumber
    61.         numberList(rndNumber).BackColor = Color.LimeGreen
    62.     End Sub

    63.     Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    64.         StartGame()
    65.     End Sub

    66.     Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
    67.         StopGame()
    68.     End Sub

    69.     Private Sub btnRandom_Click(sender As Object, e As EventArgs) Handles btnRandom.Click
    70.         DoRandomNumer()
    71.     End Sub
    คัดลอกไปที่คลิปบอร์ด



    Download
    ผู้เข้าชมเนื้อหาถูกซ่อนไว้ คุณจะต้องแสดงความคิดเห็นก่อนจึงจะสามารถมองเห็นเนื้อหาส่วนที่ถูกซ่อนนี้ได้



    ขออภัย! โพสต์นี้มีไฟล์แนบหรือรูปภาพที่ไม่ได้รับอนุญาตให้คุณเข้าถึง

    คุณจำเป็นต้อง ลงชื่อเข้าใช้ เพื่อดาวน์โหลดหรือดูไฟล์แนบนี้ คุณยังไม่มีบัญชีใช่ไหม? ลงทะเบียน

    x
  • อารมณ์วันนี้
    แฮปปี้
    5 วันที่แล้ว
  • เช็คชื่อแล้ว: 139 วัน

    [LV.7]JuniorIII

    0

    กระทู้

    208

    โพสต์

    251

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    251
    Ticket
    34
    จิตพิสัย
    217
    ninjakk โพสต์ 2019-5-1 15:09:47 | ดูโพสต์ทั้งหมด
    เยี่ยมครับ
  • อารมณ์วันนี้
    ขี้เกียจ
    2019-9-3 20:06
  • เช็คชื่อแล้ว: 235 วัน

    [LV.7]JuniorIII

    15

    กระทู้

    418

    โพสต์

    1142

    เครดิต

    HawkBrain

    Rank: 4

    เครดิต
    1142
    Ticket
    368
    จิตพิสัย
    774
    anuyutza1995 โพสต์ 2019-5-2 08:34:10 | ดูโพสต์ทั้งหมด
  • อารมณ์วันนี้
    ง่วง
    2019-5-7 11:50
  • เช็คชื่อแล้ว: 1 วัน

    [LV.1]NewBie

    0

    กระทู้

    2

    โพสต์

    10

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    10
    Ticket
    3
    จิตพิสัย
    7
    BadBear โพสต์ 2019-5-7 11:52:06 | ดูโพสต์ทั้งหมด
    Muy bien Tema Explicado a detalle
  • อารมณ์วันนี้
    โกรธ
    2019-5-22 11:36
  • เช็คชื่อแล้ว: 3 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    12

    โพสต์

    18

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    18
    Ticket
    0
    จิตพิสัย
    18
    Frank โพสต์ 2019-5-22 12:49:22 | ดูโพสต์ทั้งหมด
    holaaaaaaaaaa
  • อารมณ์วันนี้
    แฮปปี้
    2019-7-24 10:17
  • เช็คชื่อแล้ว: 93 วัน

    [LV.6]JuniorII

    2

    กระทู้

    141

    โพสต์

    155

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    155
    Ticket
    50
    จิตพิสัย
    105
    chanthasone โพสต์ 2019-5-22 13:26:33 | ดูโพสต์ทั้งหมด
  • อารมณ์วันนี้
    แฮปปี้
    2019-7-24 10:17
  • เช็คชื่อแล้ว: 93 วัน

    [LV.6]JuniorII

    2

    กระทู้

    141

    โพสต์

    155

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    155
    Ticket
    50
    จิตพิสัย
    105
    chanthasone โพสต์ 2019-5-22 13:27:21 | ดูโพสต์ทั้งหมด
  • อารมณ์วันนี้
    เครียด
    2019-9-2 16:54
  • เช็คชื่อแล้ว: 13 วัน

    [LV.3]BeginnerII

    0

    กระทู้

    65

    โพสต์

    138

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    138
    Ticket
    15
    จิตพิสัย
    123
    Virusoat โพสต์ 2019-6-26 14:27:26 | ดูโพสต์ทั้งหมด
    ขอบคุณครับ
  • อารมณ์วันนี้
    สู้
    2019-6-27 23:36
  • เช็คชื่อแล้ว: 1 วัน

    [LV.1]NewBie

    0

    กระทู้

    1181

    โพสต์

    1156

    เครดิต

    HawkBrain

    Rank: 4

    เครดิต
    1156
    Ticket
    1
    จิตพิสัย
    1155
    anon โพสต์ 2019-6-28 09:52:05 | ดูโพสต์ทั้งหมด
    ดีดีดีดีดีดีดีดีดี
  • อารมณ์วันนี้
    แฮปปี้
    2019-8-15 10:23
  • เช็คชื่อแล้ว: 3 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    4

    โพสต์

    37

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    37
    Ticket
    13
    จิตพิสัย
    24
    walney โพสต์ 2019-7-9 22:21:01 | ดูโพสต์ทั้งหมด
    ola quero muito aprender
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

    รายละเอียดเครดิต

    ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|ProjectForStudy  

    GMT+7, 2019-9-22 09:00 , Processed in 0.091417 second(s), 37 queries .

    Powered by Discuz! X3.2 R20150609, Rev.38

    © 2001-2013 Comsenz Inc.

    ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้