piano tiles

Imports System.IO

Imports System.Drawing.Drawing2D

Public Class Form1

    Dim tile(5, 4) As Integer

    Dim y(5) As Integer

    Dim score As Integer = 0

   

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Randomize()

        For i As Integer = 0 To 4

            For j As Integer = 0 To 3

                tile(i, j) = 0

            Next

        Next

        Dim r As Integer = Rnd() * 3

        tile(4, r) = 1

        r = Rnd() * 3

        tile(3, r) = 1

        r = Rnd() * 3

        tile(2, r) = 1

        r = Rnd() * 3

        tile(1, r) = 1

        r = Rnd() * 3

        tile(0, r) = 1

        y(0) = -120

        y(1) = 0

        y(2) = 120

        y(3) = 240

        y(4) = 360

        Timer1.Enabled = True

    End Sub

    Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick

        For i As Integer = 0 To 4

            If e.Y >= y(i) And e.Y <= y(i) + 120 Then

                For j As Integer = 0 To 3

                    If e.X >= j * 85 And e.X <= j * 85 + 85 Then

                        If tile(i, j) = 1 Then

                            tile(i, j) = 2

                            score += 1

                        ElseIf tile(i, j) = 0 Then

                            Timer1.Enabled = False

                            MsgBox("Score: " & score)

                        End If

                    End If

                Next

            End If

        Next

    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint

        Dim g As Graphics = e.Graphics

        Dim mypen As Pen = New Pen(Color.Black, 2)

        Dim mybrushWhite As Brush = New SolidBrush(Color.White)

        Dim mybrushBlack As Brush = New SolidBrush(Color.Black)

        Dim mybrushGray As Brush = New SolidBrush(Color.Gray)

        Dim font As Font = New Font("comic sans ms", 12, FontStyle.Bold)

        For i As Integer = 0 To 4

            For j As Integer = 0 To 3

                If tile(i, j) = 0 Then

                    Dim rect As New Rectangle(j * 85, y(i), 85, 120)

                    g.DrawRectangle(mypen, rect)

                    g.FillRectangle(mybrushWhite, j * 85, y(i), 85, 120)

                ElseIf tile(i, j) = 1 Then

                    Dim rect As New Rectangle(j * 85, y(i), 85, 120)

                    g.DrawRectangle(mypen, rect)

                    g.FillRectangle(mybrushBlack, j * 85, y(i), 85, 120)

                ElseIf tile(i, j) = 2 Then

                    Dim rect As New Rectangle(j * 85, y(i), 85, 120)

                    g.DrawRectangle(mypen, rect)

                    g.FillRectangle(mybrushGray, j * 85, y(i), 85, 120)

                End If

            Next

        Next

        g.FillRectangle(mybrushGray, 10, 10, 110, 50)

        g.DrawString("Score: " & score, font, Brushes.White, 15, 25)

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        For i As Integer = 0 To 4

            y(i) += 10

        Next

        If y(0) = 0 Then

            tile(4, 0) = tile(3, 0)

            tile(4, 1) = tile(3, 1)

            tile(4, 2) = tile(3, 2)

            tile(4, 3) = tile(3, 3)

            y(4) = 360

            tile(3, 0) = tile(2, 0)

            tile(3, 1) = tile(2, 1)

            tile(3, 2) = tile(2, 2)

            tile(3, 3) = tile(2, 3)

            y(3) = 240

            tile(2, 0) = tile(1, 0)

            tile(2, 1) = tile(1, 1)

            tile(2, 2) = tile(1, 2)

            tile(2, 3) = tile(1, 3)

            y(2) = 120

            tile(1, 0) = tile(0, 0)

            tile(1, 1) = tile(0, 1)

            tile(1, 2) = tile(0, 2)

            tile(1, 3) = tile(0, 3)

            y(1) = 0

            tile(0, 0) = 0

            tile(0, 1) = 0

            tile(0, 2) = 0

            tile(0, 3) = 0

            Dim r As Integer = Rnd() * 3

            tile(0, r) = 1

            y(0) = -120

        End If

       

        Me.Invalidate()

    End Sub

End Class

Source Code Game Tic Tac Toe Pada VB.Net

Selamat siang ,hari ini saya akan mengposting tentang cara membuat game tic tac toe di VB.Net
Kali ini saya menggunakan button create on the fly
Berikut Codingannya :
Public Class Form1
    'true -> giliran player 1 X
    'false -> giliran player 2 O
    Dim flag As Boolean = True
    Function cekbutton(btna As Button, btnb As Button, btnc As Button) As Integer
        Dim menang As Integer = 0
        If (btna.Text = btnb.Text) And (btnb.Text = btnc.Text) Then
            If btna.Text = "X" Then
                menang = 1
            ElseIf btna.Text = "O" Then
                menang = 2
            End If
        End If
        Return menang
    End Function
    Sub cekmenang()
        '0 -> blm ad yang menang
        '1 -> player 1 yg menang
        '2 -> player 2 yang menang
        Dim menang As Integer = 0
        Dim temp As Integer
        'Horizontal

        'temp = cekbutton(Button1, Button2, Button3)
        'If temp = 1 Then
        '    menang = 1
        'ElseIf temp = 2 Then
        '    menang = 2
        'End If
       
        If (Button1.Text = Button2.Text) And (Button2.Text = Button3.Text) Then
            If Button1.Text = "X" Then
                menang = 1
            ElseIf Button1.Text = "O" Then
                menang = 2
            End If
        End If

        If (Button4.Text = Button5.Text) And (Button5.Text = Button6.Text) Then
            If Button4.Text = "X" Then
                menang = 1
            ElseIf Button4.Text = "O" Then
                menang = 2
            End If
        End If

        If (Button7.Text = Button8.Text) And (Button8.Text = Button9.Text) Then
            If Button7.Text = "X" Then
                menang = 1
            ElseIf Button7.Text = "O" Then
                menang = 2
            End If
        End If
        'Vertikal
        If (Button1.Text = Button4.Text) And (Button4.Text = Button7.Text) Then
            If Button1.Text = "X" Then
                menang = 1
            ElseIf Button1.Text = "O" Then
                menang = 2
            End If
        End If

        If (Button2.Text = Button5.Text) And (Button5.Text = Button8.Text) Then
            If Button2.Text = "X" Then
                menang = 1
            ElseIf Button2.Text = "O" Then
                menang = 2
            End If
        End If
        If (Button3.Text = Button6.Text) And (Button6.Text = Button9.Text) Then
            If Button3.Text = "X" Then
                menang = 1
            ElseIf Button3.Text = "O" Then
                menang = 2
            End If
        End If
        'Diagonal
        If (Button1.Text = Button5.Text) And (Button5.Text = Button9.Text) Then
            If Button1.Text = "X" Then
                menang = 1
            ElseIf Button1.Text = "O" Then
                menang = 2
            End If
        End If
        If (Button3.Text = Button5.Text) And (Button5.Text = Button7.Text) Then
            If Button3.Text = "X" Then
                menang = 1
            ElseIf Button3.Text = "O" Then
                menang = 2
            End If
        End If
        If menang = 1 Then
            Label1.Text = "Player 1 Menang"
        ElseIf menang = 2 Then
            Label1.Text = "Player 2 Menang"
        End If
    End Sub
    Sub cekdraw()
        'memeriksa apakah draw/stalemate
        Dim temp As Boolean = True 'draw
        If Button1.Text = "" Then
            temp = False
        End If
        If Button2.Text = "" Then
            temp = False
        End If
        If Button3.Text = "" Then
            temp = False
        End If
        If Button4.Text = "" Then
            temp = False
        End If
        If Button5.Text = "" Then
            temp = False
        End If
        If Button6.Text = "" Then
            temp = False
        End If
        If Button7.Text = "" Then
            temp = False
        End If
        If Button8.Text = "" Then
            temp = False
        End If
        If Button9.Text = "" Then
            temp = False
        End If
        If temp Then
            Label1.Text = "Game Over"
        End If


    End Sub
    Private Sub Cekflag()
        If flag = True Then
            Label1.Text = "Player 1 Turn"
        Else
            Label1.Text = "Player 2 Turn"
        End If
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        flag = True
        Call Cekflag()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button9.Click, Button8.Click, Button7.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click
        Dim a As Button = CType(sender, Button)
        If a.Text = "" Then
            'masih kosong
            'if flag = true then
            If flag Then 'artinya turn player 1
                a.Text = "X"
            Else 'artinya turn player 2
                a.Text = "O"
            End If
            flag = Not flag
            Call Cekflag()
            Call cekdraw()
            Call cekmenang()

        Else
            MsgBox("Kotak Sdh Ad Isinya !!!")
        End If
    End Sub
End Class

Screenshot :



 

Magic Square VB.net

Public Class Form1
    Private Sub label1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim u As Integer
        Dim v As Integer
        Dim w As Integer
        Dim x As Integer
        Dim y As Integer
        Dim counter As Integer = 1
        Randomize()
        If TextBox1.Text = 5 Then
            For i As Integer = 1 To CInt(TextBox1.Text)
                For j As Integer = 1 To CInt(TextBox1.Text)
                    Dim newlabel As New Label
                    If i = 1 And j = 1 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        u = newlabel.Text
                    ElseIf i = 1 And j = 2 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        v = newlabel.Text
                    ElseIf i = 1 And j = 3 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        w = newlabel.Text
                    ElseIf i = 1 And j = 4 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        x = newlabel.Text
                    ElseIf i = 1 And j = 5 Then
                        newlabel.Text = Int(Rnd() * (59 - 9))
                        y = newlabel.Text
                    ElseIf i = 2 And j = 1 Then
                        newlabel.Text = x - 3
                    ElseIf i = 2 And j = 2 Then
                        newlabel.Text = w + 3
                    ElseIf i = 2 And j = 3 Then
                        newlabel.Text = v - 1
                    ElseIf i = 2 And j = 4 Then
                        newlabel.Text = u + 1
                    ElseIf i = 2 And j = 5 Then
                        newlabel.Text = y + 3
                    ElseIf i = 3 And j = 1 Then
                        newlabel.Text = v + 1
                    ElseIf i = 3 And j = 2 Then
                        newlabel.Text = u - 1
                    ElseIf i = 3 And j = 3 Then
                        newlabel.Text = x - 1
                    ElseIf i = 3 And j = 4 Then
                        newlabel.Text = w + 1
                    ElseIf i = 3 And j = 5 Then
                        newlabel.Text = y + 2
                    ElseIf i = 4 And j = 1 Then
                        newlabel.Text = w + 2
                    ElseIf i = 4 And j = 2 Then
                        newlabel.Text = x - 2
                    ElseIf i = 4 And j = 3 Then
                        newlabel.Text = u + 2
                    ElseIf i = 4 And j = 4 Then
                        newlabel.Text = v - 2
                    ElseIf i = 4 And j = 5 Then
                        newlabel.Text = y - 2
                    End If
                    newlabel.Width = 30
                    newlabel.Height = 30
                    newlabel.Left = (j - 1) * 40 + 25
                    newlabel.Top = (i - 1) * 40 + 125
                    Me.Controls.Add(newlabel)
                Next
            Next
        End If
    End Sub
End Class

Game Memory pada vb.net

Public Class Form1

    Dim soal(99) As Integer

    Dim soalbaru(99) As Integer

    Dim x(99) As Button

    Dim j1 As Integer = 0

    Dim j2 As Integer = 0

    Dim ctrSoal As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim ctr As Integer = 0

        Dim jKartu As Integer = CInt(TextBox1.Text) * CInt(TextBox2.Text)

        For i As Integer = 1 To CInt(TextBox1.Text)

            For j As Integer = 1 To CInt(TextBox2.Text)

                x(ctrSoal) = New Button

                x(ctrSoal).Width = 40

                x(ctrSoal).Height = 40

                x(ctrSoal).Left = (j - 1) * 40 + 15

                x(ctrSoal).Top = (i - 1) * 40 + 65

                Dim r As Integer

                Dim ket As Boolean = False

                Do While ket = False

                    Randomize()

                    r = Rnd() * (CInt(TextBox1.Text) * CInt(TextBox2.Text) - 1) + 1

                    ket = True

                    For l As Integer = 0 To ctrSoal - 1

                        If r = soal(l) Then

                            ket = False

                        End If

                    Next

                Loop

                soal(ctrSoal) = r

                If soal(ctrSoal) > (jKartu / 2) Then

                    soalbaru(ctrSoal) = soal(ctrSoal) - (jKartu / 2)

                Else

                    soalbaru(ctrSoal) = soal(ctrSoal)

                End If

                x(ctrSoal).Text = "*"

                x(ctrSoal).Name = soalbaru(ctrSoal)

                AddHandler x(ctrSoal).Click, AddressOf klik

                Me.Controls.Add(x(ctrSoal))

                ctrSoal += 1

            Next

        Next

    End Sub

    Sub klik(sender As Object, e As EventArgs)

        If (CType(sender, Button).Text <> "-") Then

            If (j1 = 0 Or j2 = 0) Then

                If j1 <> 0 Then

                    j2 = CType(sender, Button).Name

                Else

                    j1 = CType(sender, Button).Name

                End If

                CType(sender, Button).Text = CType(sender, Button).Name

            End If

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim benar As Boolean = False

        If j1 = j2 Then

            benar = True

        End If

        For i As Integer = 0 To ctrSoal - 1

            If x(i).Text <> "*" And x(i).Text <> "-" Then

                If benar Then

                    x(i).Text = "-"

                Else

                    x(i).Text = "*"

                End If

            End If

        Next

        j1 = 0

        j2 = 0

    End Sub

End Class