LATIHAN_34A_36110042

Deskripsi Latihan_34A_36110042

A.   Object-object dalam Latihan_34A_36110042:

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_36110042. Jika toolstripmenuitem input barang diklik, maka akan muncul form Latihan_34C_36110042.

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_36110042. Jika toolstripbutton input barang diklik, maka akan muncul form Latihan_34C_36110042.

B.   Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Latihan_34A_36110042.

C.   Even

TSDAFTAR_36110042_Click

TSINPUT_36110042_Click

DAFTARBARANG_36110042_Click

INPUTBARANG_36110042_Click

Langkah-Langkah Latihan_34A_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_34A_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_34A_36110042

    Private Sub TSDAFTAR_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSDAFTAR_36110042.Click

        Latihan_34B_36110042.Show()

    End Sub

    Private Sub TSINPUT_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSINPUT_36110042.Click

        If Latihan_34C_36110042.Visible = False Then

            Latihan_34C_36110042.MdiParent = Me.MdiParent

            Latihan_34C_36110042.Show()

        Else

            Latihan_34C_36110042.Activate()

        End If

    End Sub

    Private Sub DAFTARBARANG_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANG_36110042.Click

        Latihan_34B_36110042.Show()

    End Sub

    Private Sub INPUTBARANG_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANG_36110042.Click

        If Latihan_34C_36110042.Visible = False Then

            Latihan_34C_36110042.MdiParent = Me.MdiParent

            Latihan_34C_36110042.Show()

        Else

            Latihan_34C_36110042.Activate()

        End If

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 34.