ProjectForStudy

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

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

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

    [LV.1]NewBie

    104

    กระทู้

    506

    โพสต์

    8533

    เครดิต

    ผู้ดูแลระบบ

    Rank: 9Rank: 9Rank: 9

    เครดิต
    8533
    Ticket
    7413
    จิตพิสัย
    1120

    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
  • อารมณ์วันนี้
    แฮปปี้
    เมื่อวานซืน 08:30
  • เช็คชื่อแล้ว: 106 วัน

    [LV.6]JuniorII

    0

    กระทู้

    170

    โพสต์

    244

    เครดิต

    CodeDragon

    Rank: 2

    เครดิต
    244
    Ticket
    115
    จิตพิสัย
    129
    ninjakk โพสต์ 2019-5-1 15:09:47 | ดูโพสต์ทั้งหมด
    เยี่ยมครับ
  • อารมณ์วันนี้
    สู้
    เมื่อวาน 07:41
  • เช็คชื่อแล้ว: 169 วัน

    [LV.7]JuniorIII

    11

    กระทู้

    294

    โพสต์

    530

    เครดิต

    TeenLion

    Rank: 3Rank: 3

    เครดิต
    530
    Ticket
    232
    จิตพิสัย
    298
    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
  • อารมณ์วันนี้
    โกรธ
    เมื่อวานซืน 11:36
  • เช็คชื่อแล้ว: 3 วัน

    [LV.2]BeginnerI

    0

    กระทู้

    12

    โพสต์

    13

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    13
    Ticket
    0
    จิตพิสัย
    13
    Frank โพสต์ เมื่อวานซืน 12:49 | ดูโพสต์ทั้งหมด
    holaaaaaaaaaa
  • อารมณ์วันนี้
    ง่วง
    เมื่อวาน 14:50
  • เช็คชื่อแล้ว: 83 วัน

    [LV.6]JuniorII

    2

    กระทู้

    130

    โพสต์

    116

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    116
    Ticket
    47
    จิตพิสัย
    69
    chanthasone โพสต์ เมื่อวานซืน 13:26 | ดูโพสต์ทั้งหมด
  • อารมณ์วันนี้
    ง่วง
    เมื่อวาน 14:50
  • เช็คชื่อแล้ว: 83 วัน

    [LV.6]JuniorII

    2

    กระทู้

    130

    โพสต์

    116

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    116
    Ticket
    47
    จิตพิสัย
    69
    chanthasone โพสต์ เมื่อวานซืน 13:27 | ดูโพสต์ทั้งหมด
    ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

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

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

    GMT+7, 2019-5-24 04:29 , Processed in 0.056828 second(s), 29 queries .

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

    © 2001-2013 Comsenz Inc.

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