Jarvis Blog

VB製作的樂透抽獎機

沒有很美觀就是了

還存在一些BUG!

這是Form1的圖

這是Form2的圖

Form1程式碼

Public Class Form1
    Dim form2 As Form2
    Dim ball(48) As PictureBox
    Dim tmpInt(48), tmpInt2(48) As Integer
    Dim reward(5) As String
    Dim j As Integer = 0


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Application.Exit()
    End Sub

    Private Sub btnChoose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChoose.Click
        form2 = New Form2()
        form2.ShowDialog()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        Me.createBall()
        PictureBox1.BackColor = Color.Gray
        Me.FormBorderStyle = 1
    End Sub

    Private Sub btnDirStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDirStart.Click
        Timer1.Enabled = True
        Timer2.Enabled = True
    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("您沒選擇號碼")
        Else
            TextBox1.Text = ""
            Array.Clear(form2.choNumber, 0, 6)
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.moveBall()
    End Sub
    Private Sub createBall()
        Dim pointx As Integer
        Dim pointy As Integer
        For i = 0 To 48
            pointx = ranNumberX()
            pointy = ranNumberY()
            ball(i) = New PictureBox
            ball(i).Name = (i + 1).ToString()
            ball(i).Location = New System.Drawing.Point(pointx, pointy)
            ball(i).Size = New System.Drawing.Size(30, 30)
            ball(i).Image = Image.FromFile("balls\ball" & i + 1 & ".png")
            PictureBox1.Controls.Add(ball(i))
        Next
    End Sub
    Function ranNumberY() As Integer
        Return CInt(Rnd() * 300 + 1)
    End Function
    Function ranNumberX() As Integer
        Return CInt(Rnd() * 500 + 1)
    End Function
    Private Sub moveBall()
        Dim ranA As Integer
        For i = 0 To 48
            ranA = CInt(Rnd() * 20 + 10)
            Select Case tmpInt(i) Mod 2
                Case 0
                    If ball(i).Left < PictureBox1.Width - ball(i).Width Then
                        ball(i).Left = ball(i).Left + ranA
                    Else
                        tmpInt(i) = tmpInt(i) + 1
                    End If
                Case 1
                    If ball(i).Left > 0 Then
                        ball(i).Left = ball(i).Left - ranA
                    Else
                        tmpInt(i) = tmpInt(i) - 1
                    End If
            End Select


            Select Case tmpInt2(i) Mod 2
                Case 0
                    If ball(i).Top < PictureBox1.Height - ball(i).Height Then
                        ball(i).Top = ball(i).Top + ranA
                    Else
                        tmpInt2(i) = tmpInt2(i) + 1
                    End If
                Case 1
                    If ball(i).Top > 0 Then
                        ball(i).Top = ball(i).Top - ranA
                    Else
                        tmpInt2(i) = tmpInt2(i) - 1
                    End If
            End Select
            If ball(i).Left >= 340 And ball(i).Left <= 350 Then
                If ball(i).Top >= 0 And ball(i).Top <= 5 Then
                    TextBox2.Text += ball(i).Name + "  "
                    reward(j) = ball(i).Name
                    PictureBox1.Controls.Remove(ball(i))
                    j = j + 1
                End If
            End If
        Next
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Timer2_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If reward(5) <> 0 Then
            Timer1.Enabled = False
            If TextBox1.Text.Equals(TextBox2.Text) Then
                Label3.Text = "恭喜中獎"
            Else
                Label3.Text = "沒中啦!!"
            End If
        End If
    End Sub

    Private Sub Label3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.TextChanged
        Timer2.Enabled = False
    End Sub
End Class

Form2程式碼

Public Class Form2
    Public choNumber(5) As Integer

    Private Sub btnChk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChk.Click
        Dim j As Integer = 0
        For i = 0 To CheckedListBox1.Items.Count - 1
            If CheckedListBox1.GetItemChecked(i) Then
                TextBox1.Text += CheckedListBox1.Items(i).ToString() + "  "
                choNumber(j) = CheckedListBox1.Items(i)
                j = j + 1
            End If
        Next
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        Dim count As Integer = 0
        For i = 0 To CheckedListBox1.Items.Count - 1
            If CheckedListBox1.GetItemChecked(i) Then
                count = count + 1
                If count > 6 Then
                    MessageBox.Show("只能選6個唷")
                End If
            End If
        Next
    End Sub

    Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click
        Me.Close()
        Array.Clear(choNumber, 0, 6)
    End Sub

    Private Sub btnResetN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResetN.Click
        For i = 0 To CheckedListBox1.Items.Count - 1
            CheckedListBox1.SetItemChecked(i, False)
        Next
        TextBox1.Text = ""
        Array.Clear(choNumber, 0, 6)
    End Sub

    Private Sub btnBegan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBegan.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("選完號碼後請按左邊選號")
            MessageBox.Show("若要關閉此視窗請案回主畫面")
            Exit Sub
        End If
        Form1.TextBox1.Text = TextBox1.Text
        Form1.Timer1.Enabled = True
        Form1.Timer2.Enabled = True
        Me.Close()
    End Sub
End Class