Latihan 34A 36110051 APKOM 4 D3B AKUNTANSI PNUP

A.    Object-object dalam Latihan_34A_36110051 :

            1.      Object MenuStrip

Terdapat satu menustrip yang memiliki dua toolstripmenuitem (yang bertuliskan daftar barang dan input barang). Jika toolstripmenuitem daftar barang diklik, maka akan muncul form Latihan_34B_36110051. Jika toolstripmenuitem input barang diklik, maka akan muncul form Latihan_34C_36110051.

           2.      Object ToolStrip

Terdapat satu object toolstrip yang memiliki dua toolstripbutton (yang bertuliskan daftar barang dan input barang). Jika toolstripbutton daftar barang diklik, maka akan muncul form Latihan_34B_36110051. Jika toolstripbutton input barang diklik, maka akan muncul form Latihan_34C_36110051.

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada PROSEDUR dibawah ini.

C.     Even

DAFTAR_36110051_Click

INPUT_36110051_Click

PROSEDUR :

1.       Klik Start dan pilih Microsoft Visual Studio 2008.

 

2.       Klik menu file dan pilih New Project.

 

3.       Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

 

 

4.       Klik menu view dan pilih toolbox dan buatlah desain kolom seperti kolom dibawah ini:

 

5.      Berikut ini adalah rumus untuk menjalankan form di atas:

 

Public Class Latihan_34a_36110051

    Private Sub DAFTARBARANGToolStripMenuItem36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem36110051.Click

        If Latihan_34b_36110051.Visible = False Then

            Latihan_34b_36110051.MdiParent = Me

            Latihan_34b_36110051.Show()

        Else

            Latihan_34b_36110051.Activate()

        End If

    End Sub

    Private Sub INPUTBARANGToolStripMenuItem36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem36110051.Click

        If Latihan_34c_36110051.Visible = False Then

            Latihan_34c_36110051.MdiParent = Me

            Latihan_34c_36110051.Show()

        Else

            Latihan_34c_36110051.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel136110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel136110051.Click

        If Latihan_34b_36110051.Visible = False Then

            Latihan_34b_36110051.MdiParent = Me

            Latihan_34b_36110051.Show()

        Else

            Latihan_34b_36110051.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel236110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel236110051.Click

        If Latihan_34c_36110051.Visible = False Then

            Latihan_34c_36110051.MdiParent = Me

            Latihan_34c_36110051.Show()

        Else

            Latihan_34c_36110051.Activate()

        End If

    End Sub

   

End Class

6.       Uji program dengan mengklik icon Start Debugging.