ProjectForStudy

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

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

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

    [LV.1]NewBie

    104

    กระทู้

    507

    โพสต์

    9671

    เครดิต

    ผู้ดูแลระบบ

    Rank: 9Rank: 9Rank: 9

    เครดิต
    9671
    Ticket
    8019
    จิตพิสัย
    1652

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

    [LV.7]JuniorIII

    0

    กระทู้

    189

    โพสต์

    192

    เครดิต

    CodeDragon

    Rank: 2

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

    [LV.7]JuniorIII

    15

    กระทู้

    400

    โพสต์

    1007

    เครดิต

    HawkBrain

    Rank: 4

    เครดิต
    1007
    Ticket
    331
    จิตพิสัย
    676
    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

    โพสต์

    13

    เครดิต

    BabyGhost

    Rank: 1

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

    [LV.6]JuniorII

    2

    กระทู้

    140

    โพสต์

    144

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    144
    Ticket
    45
    จิตพิสัย
    99
    chanthasone โพสต์ 2019-5-22 13:26:33 | ดูโพสต์ทั้งหมด
  • อารมณ์วันนี้
    เครียด
    2019-7-2 13:28
  • เช็คชื่อแล้ว: 92 วัน

    [LV.6]JuniorII

    2

    กระทู้

    140

    โพสต์

    144

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    144
    Ticket
    45
    จิตพิสัย
    99
    chanthasone โพสต์ 2019-5-22 13:27:21 | ดูโพสต์ทั้งหมด
  • อารมณ์วันนี้
    แฮปปี้
    2019-7-11 11:12
  • เช็คชื่อแล้ว: 9 วัน

    [LV.3]BeginnerII

    0

    กระทู้

    61

    โพสต์

    110

    เครดิต

    BabyGhost

    Rank: 1

    เครดิต
    110
    Ticket
    9
    จิตพิสัย
    101
    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-7-9 22:19
  • เช็คชื่อแล้ว: 1 วัน

    [LV.1]NewBie

    0

    กระทู้

    2

    โพสต์

    11

    เครดิต

    BabyGhost

    Rank: 1

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

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

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

    GMT+7, 2019-7-19 09:02 , Processed in 0.069844 second(s), 29 queries .

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

    © 2001-2013 Comsenz Inc.

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