Deskripsi dan Prosedur Latihan_34a_36110039

   Deskripsi Form Latihan_34a_36110039

Terdapat dua object yaitu :

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

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

   Script Unique

Scriptnya ada pada Prosedur Latihan_34a_36110039 dibawah ini.

   Even

daftar_36110039_Click

input_36110039_Click

Prosedur menjalankan Latihan_34a_36110039:

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.

 

5.      Kemudian buatlah form seperti kolom dibawah ini:

 

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

Public Class Latihan_34a_36110039

    Private Sub daftar_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar_36110039.Click

        If Latihan_34b_36110039.Visible = False Then

            Latihan_34b_36110039.MdiParent = Me.MdiParent

            Latihan_34b_36110039.Show()

        Else

            Latihan_34b_36110039.Activate()

            Latihan_34b_36110039.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub input_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_36110039.Click

        If Latihan_34c_36110039.Visible = False Then

            Latihan_34c_36110039.MdiParent = Me.MdiParent

            Latihan_34c_36110039.Show()

        Else

            Latihan_34c_36110039.Activate()

            Latihan_34c_36110039.WindowState = FormWindowState.Normal

        End If

        Latihan_34c_36110039.kb2_36110039.Text = ""

        Latihan_34c_36110039.nb_36110039.Text = ""

        Latihan_34c_36110039.hj_36110039.Text = ""

        Latihan_34c_36110039.jb_36110039.Text = ""

        Latihan_34c_36110039.kb1_36110039.Text = "-"

    End Sub

End Class

7.       Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging atau tekan F5.