Tugas pertemuan 7

MDI FORM Pada Visual Studio 2010

Aplikasi Sederhana mengenai MDI Form pada Visual Studio 2010 (Menu, Tool, MDI Form)

1.         Buka Microsoft Visual Studio 2010

2.         Desain Form 1 seperti dibawah ini

        Buatlah 3 form( form 1, form2, form3)

3.         Gunakan MenuStrip untuk mendesain File, Latihan, Tugas, dll

4. setelah membuat menu strip kita bembuat cascade   ini tampilan dan program,,,Tampilan Cacade

        Me.LayoutMdi(MdiLayout.Cascade)

        Form2.Show()

        Form3.Show()

      

      

    

\

tampilan horizontal dan programnya

Me.LayoutMdi(MdiLayout.TileHorizontal)

        Form2.Show()

        Form3.Show()

Tampilan vertikal dan programnya

        Me.LayoutMdi(MdiLayout.TileVertical)

        Form2.Show()

        Form3.Show()

  Mengubah posisi pada Tool Strip dan Menu Strip
    Maka cukup kita lakukan penge-klikan pada Tool Strip dan Menu Strip seperti pada
    gambar di bawah ini :

    Atur posisi sesuai yang anda inginkan pada Dock atau bisa juga menggunakan
    Anchor

Membuat menu ribbon
1. download terlebih dahulu library/ pluginnya terlebih dahulu. namanya dotnebar.
2. drag and drop file yang berekstensi .dll ke toolbox pada vb.net 2010.maka menu ribbon muncul di toolbox.
3. buat menu ribbon dengan tampilan  seperti di bawah ini !

 

Read More ->>

Tugas 4

Buatlah Desain di bawah ini di vb

Isikan koding di bottom 1 yang sudah di ganti  tulisan proses
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
        For Each control In Me.GroupBox1.Controls
            If control.Checked = True Then
                TextBox1.Text &= control.Text & ","
            End If
        Next
        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End Sub

End Class

Setelah peogram sudah selesai lalu silahkan di jalankan 

 Program Listbox

 Buat Desain Dahulu

Isikan Koding pada desain
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox1.Items.Add(bil)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox1.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox1.Items.Count
        For i = 0 To j - 1
            Try
                ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox1.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox1.Items.Count
        For i = 0 To Jumlah - 1
            ListBox2.Items.Add(ListBox1.Items(i))
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox2.Items.Count
        For i = 0 To j - 1
            Try
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        ListBox2.Items.Clear()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.Close()
    End Sub
End Class
SETELAH SELESAI LALU JALANKAN

 Program Pasangan Pernikahan

Buat Desain 

Isikan kodingn Pada desain
Public Class Form1

    Private Sub BtTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTutup.Click
        Me.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Enabled = False
    End Sub

    Private Sub RdKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdKawin.CheckedChanged
        If RdPria.Checked = True Then
            If RdKawin.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
            End If
        ElseIf RdWanita.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
            End If
        End If
    End Sub



    Private Sub RdTidakKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdTidakKawin.CheckedChanged
        If RdPria.Checked = True Then
            If RdTidakKawin.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Istri"
            End If
        ElseIf RdWanita.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Suami"
            End If
        End If
    End Sub


    Private Sub RdPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdPria.CheckedChanged
        If RdKawin.Checked = True Then
            If RdPria.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
            End If
        ElseIf RdTidakKawin.Checked = True Then
            If RdPria.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Istri"
            End If
        End If

    End Sub

    Private Sub RdWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdWanita.CheckedChanged
        If RdKawin.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
            End If
        ElseIf RdTidakKawin.Checked = True Then
            If RdWanita.Checked = True Then
                TextBox1.Text = "Anda Harus Mencari Seorang Suami"
            End If
        End If

    End Sub
End Class
 Jalankan program 

SELESAI 

Read More ->>

LINK TUGAS

Nama  :  Galih Eka Purnomo
NIM   : 11.11.2560
Kelas  : TI 11 D 


DAFTAR TUGAS
1. Tugas 1
2. Tugas 2
3. Tugas 3
4. Tugas 4

TUGAS SETELAH UTS

Tugas pertemuan 7
Tugas pertemuan 8 
Tugas pertemuan 9 

Read More ->>

Tugas 3

SOAL 1 . MEMODIFIKASI PROGRAM PENJUALAN BARANG

# MODIFIKASI

a)      Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

b)      Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif

c)      Saat ditekan combol clear sama dengan saat form dijalankan

1. Ini tampilan Saat from di jalankan semua isi tidak aktif , tombol isian tidak aktif, Tombol isi data dan Tutup aktif , tombol clear tidak aktif

  Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.GetType.Name = "GroupBox" Then control.Enabled = True

            Button1.Enabled = False

            txtnama.Enabled = False

            txtharga.Enabled = False

            txttotal.Enabled = False

        Next

    End Sub

2. Tampilan saat mmenekan tombol isi data : kode Barang,jumlah barang ,cara beli, Diskon, Total bayar, tombol clear,tutup aktif, tombol isi data tidak aktif

 

Private Sub btclear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbcode.Text = ""

        GroupBox1.Enabled = False

        Button1.Enabled = True

    End Sub

3. Pada saat menekan tombol clear sama dengan  saat from di jalankan 

Yang perlu di perhatikan atu di tambahkan pada program

1       1.     Tambahkan GroupBox1.Enabled = False pada form1, sehingga kodingnya seperti berikut

        cmbcode.Items.Add("SPT")

        cmbcode.Items.Add("SND")

        cmbcode.Items.Add("TST")

        cmbcode.Items.Add("TOP")

        cmbcode.Items.Add("TAS")

        GroupBox1.Enabled = False

2       2.     Pada button isi data, isikan kodingnya seperti berikut

cmbcode.Items.Add("SPT")

        cmbcode.Items.Add("SND")

        cmbcode.Items.Add("TST")

        cmbcode.Items.Add("TOP")

        cmbcode.Items.Add("TAS")

        GroupBox1.Enabled = False

3. Pada button Clear, tambahkan koding ”yang bercetak tebal”, sehingga seperti berikut

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbcode.Text = ""

        GroupBox1.Enabled = False

        Button1.Enabled = True

A.                MEMBUAT LISTING PROGRAM

Public Class Form1

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

        cmbcode.Items.Add("SPT")

        cmbcode.Items.Add("SND")

        cmbcode.Items.Add("TST")

        cmbcode.Items.Add("TOP")

        cmbcode.Items.Add("TAS")

        GroupBox1.Enabled = False

    End Sub

    Private Sub cmbcode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbcode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbcode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

            Case "SND"

                namabarang = "Sandal"

                harga = 100000

            Case "TST"

                namabarang = "T-Shirt"

                harga = 150000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "Tas"

                harga = 250000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

    Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged

        txtdiskon.Text = Val(txttotal.Text) * 10 / 100

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged

        txtdiskon.Text = 0

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        txtuangbayar.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbcode.Text = ""

        GroupBox1.Enabled = False

        Button1.Enabled = True

    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        Me.Close()

    End Sub

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

        If txtuangbayar.Text = "" Then

            MessageBox.Show(txtuangbayar, "Maaf Anda Belum Memasukkan Uang Bayar")

        ElseIf txtuangbayar.Text < txttotal.Text Then

            MessageBox.Show(txtuangbayar, "Maaf Uang Anda Kurang")

        ElseIf txtuangbayar.Text > txttotal.Text Then

        End If

    End Sub

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.GetType.Name = "GroupBox" Then control.Enabled = True

            Button1.Enabled = False

            txtnama.Enabled = False

            txtharga.Enabled = False

            txttotal.Enabled = False

        Next

    End Sub

End Class

Soal 2 membuat game pazzel sederhana

1.       Pertama buka Aplikasi microsoft Visual Studio

2.       Klik menu file – new – project

3.       Klik Windows Forms Application, isikan nama, klik OK

4.       Buat tampilan seperti dibawah ini menggunakan button

5.       Ubah Text botton seprti di bawah ini

Seperti misal tex button 1 ganti menjadi 1

-   Pada button 1 à 1 (angka satu)

-   Pada button 2 à 2 (angka dua)

-   Pada button 3 à 3 (angka tiga)

-   Pada button 4 à 4 (angka empat)

-   Pada button 5 à 5 (angka lima)

-   Pada button 6 à 6 (angka enam)

-   Pada button 7 à 7 (angka tujuh)

-   Pada button 8 à 8 (angka delapan)

6.       Klik dua kali pada  Form 1, lalu isikan koding program seperti di bawah ini :

Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.GetType.Name = "Button" Then

                Dim rndnumber As Random

                Dim number As Integer

                rndnumber = New Random

                number = rndnumber.Next(1, 9)

                control.Text = number

                If Button2.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button2.Text = number

                    Loop Until Button2.Text <> Button1.Text

                End If

                If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button3.Text = number

                    Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text

                End If

                If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button4.Text = number

                    Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text

                End If

                If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button4.Text = number

                    Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text

                End If

                If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button5.Text = number

                    Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text

                End If

                If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button6.Text = number

                    Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text

                End If

                If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button7.Text = number

                    Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text

                End If

                If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button8.Text = number

                    Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text

                End If

            End If

            Button9.Text = ""

        Next

7.       Berikan perintah dari Button 1 sampai Button 9

a.       Button1

If Button2.Text = "" Then

            Button2.Text = Button1.Text

            Button1.Text = ""

        ElseIf Button4.Text = "" Then

            Button4.Text = Button1.Text

            Button1.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

b.  Button2

If Button1.Text = "" Then

            Button1.Text = Button2.Text

            Button2.Text = ""

        ElseIf Button3.Text = "" Then

            Button3.Text = Button2.Text

            Button2.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button2.Text

            Button2.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

c.  Button3

If Button2.Text = "" Then

            Button2.Text = Button3.Text

            Button3.Text = ""

        ElseIf Button6.Text = "" Then

            Button6.Text = Button3.Text

            Button3.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

d.  Button4

If Button1.Text = "" Then

            Button1.Text = Button4.Text

            Button4.Text = ""

        ElseIf Button7.Text = "" Then

            Button7.Text = Button4.Text

            Button4.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button4.Text

            Button4.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

e.  Button5

If Button2.Text = "" Then

            Button2.Text = Button5.Text

            Button5.Text = ""

        ElseIf Button4.Text = "" Then

            Button4.Text = Button5.Text

            Button5.Text = ""

        ElseIf Button6.Text = "" Then

            Button6.Text = Button5.Text

            Button5.Text = ""

        ElseIf Button8.Text = "" Then

            Button8.Text = Button5.Text

            Button5.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

f.  Button6

If Button9.Text = "" Then

            Button9.Text = Button6.Text

            Button6.Text = ""

        ElseIf Button3.Text = "" Then

            Button3.Text = Button6.Text

            Button6.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button6.Text

            Button6.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

g.  Button7

If Button4.Text = "" Then

            Button4.Text = Button7.Text

            Button7.Text = ""

        ElseIf Button8.Text = "" Then

            Button8.Text = Button7.Text

            Button7.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

h.  Button8

If Button7.Text = "" Then

            Button7.Text = Button8.Text

            Button8.Text = ""

        ElseIf Button9.Text = "" Then

            Button9.Text = Button8.Text

            Button8.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button8.Text

            Button8.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

i.  Butoon9

If Button6.Text = "" Then

            Button6.Text = Button9.Text

            Button9.Text = ""

        ElseIf Button8.Text = "" Then

            Button8.Text = Button9.Text

            Button9.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Menang")

        End If

8.       Kemudian Tekan tombbol F5 atau klik menu Debug – Start Debugging untuk melihat hasilnya dan bermain Puzzle

Read More ->>