Latihan 34A_36110055

PROSEDUR LATIHAN 34A:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat satu menu strip yang memiliki dua toolstripmenuitem (yang bertuliskan daftar barang dan input barang). Jika toolstripmenuitem daftar barang diklik, maka akan muncul form Latihan_34B_36001155. Jika toolstripmenuitem input barang diklik, maka akan muncul form Latihan_34C_36001155.

Ø  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_36001155. Jika toolstripbutton input barang diklik, maka akan muncul form Latihan_34C_36001155.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_34A_36001155

    Private Sub DAFTARBARANG_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANG_36001155.Click

        If Latihan_34B_36001155.Visible = False Then

            Latihan_34B_36001155.MdiParent = Me

            Latihan_34B_36001155.Show()

        Else

            Latihan_34B_36001155.Activate()

            Latihan_34B_36001155.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub INPUTBARANG_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANG_36001155.Click

        If Latihan_34C_36001155.Visible = False Then

            Latihan_34C_36001155.MdiParent = Me

            Latihan_34C_36001155.Show()

        Else

            Latihan_34C_36001155.Activate()

            Latihan_34C_36001155.WindowState = FormWindowState.Normal

        End If

        Latihan_34C_36001155.KB2_36001155.Text = ""

        Latihan_34C_36001155.NB_36001155.Text = ""

        Latihan_34C_36001155.HJ_36001155.Text = ""

        Latihan_34C_36001155.JB_36001155.Text = ""

        Latihan_34C_36001155.KBL_36001155.Text = "-"

    End Sub

End Class