Deskripsi Penyelesaian Latihan_34a_36110041

Deskripsi Penyelesaian

Latihan_34a_36110041

A.     Objek dalam Form Latihan_34a:

Dalam form latihan ini hanya terdapat dua object yaitu ToolStrip dan MenuStrip

1.      Object ToolStrip

Terdapat dua object ToolStrip yang bertuliskan Daftar Barang dan Input Barang. Dimana daftar barang digunakan untuk menempilkan Daftar Barang pada latihan_34b_36110041 sedangkan Input Barang digunakan untuk memasukkan barang pada latihan_34c_36110041                                      .

2.      Object MenuStrip

Terdapat satu object yang bertuliskan Barang

B.     Script Unique

Untuk scriptnya akan ditampilkan dalam prosedur

DAFTARBARANGToolStripMenuItem_Click

INPUTBARANGToolStripMenuItem_Click

ToolStripLabel1_Click

C.     Even

DAFTARBARANGToolStripMenuItem_Click

INPUTBARANGToolStripMenuItem_Click

ToolStripLabel1_Click 

ToolStripLabel2_Click

Prosedur penyelesaian

 1.   Buka Project yang telah dibuat sebelumnya klik Add New Item  è  Add Windows Form

 

2.      Kemudian beri nama dan klik Add

         

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

 

  4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_34a_36110041

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click

        If latihan_34b_36110041.Visible = False Then

            latihan_34b_36110041.MdiParent = Me

            latihan_34b_36110041.Show()

        Else

            latihan_34b_36110041.Activate()

        End If

    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click

        If latihan_34c_36110041.Visible = False Then

            latihan_34c_36110041.MdiParent = Me

            latihan_34c_36110041.Show()

        Else

            latihan_34c_36110041.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click

        If latihan_34b_36110041.Visible = False Then

            latihan_34b_36110041.MdiParent = Me

            latihan_34b_36110041.Show()

        Else

            latihan_34b_36110041.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click

        If latihan_34c_36110041.Visible = False Then

            latihan_34c_36110041.MdiParent = Me

            latihan_34c_36110041.Show()

        Else

            latihan_34c_36110041.Activate()

        End If

    End Sub

End Class

 5.   kemudian jalankan perintahnya