Latihan_34a_36110029

v Deskripsi Latihan_34a_36110029

 

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

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

 Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_34a_36110029.

Even

      DaftarBarangToolStripMenuItem_Click

INPUTBARANGToolStripMenuItem_36110029_Click

ToolStrip1_36110029_Click

ToolStrip2_36110029_Click

v   Prosedur  Latihan_34a_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_34a_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_34a_36110029
    Private Sub DaftarBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarangToolStripMenuItem.Click, ToolStrip1_36110029.Click
        'Menampilkan form lain
        If Latihan_34b_36110029.Visible = False Then
            Latihan_34b_36110029.MdiParent = Me
            Latihan_34b_36110029.Show()
        Else
            Latihan_34b_36110029.Activate()
            Latihan_34b_36110029.WindowState = FormWindowState.Normal
        End If
    End Sub
    Private Sub INPUTBARANGToolStripMenuItem_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BarangToolStripMenuItem_36110029.Click
        If Latihan_34c_36110029.Visible = False Then
            Latihan_34c_36110029.MdiParent = Me
            Latihan_34c_36110029.Show()
        Else
            Latihan_34c_36110029.Activate()
        End If
    End Sub

    Private Sub ToolStrip1_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStrip1_36110029.Click
        If Latihan_34b_36110029.Visible = False Then
            Latihan_34b_36110029.MdiParent = Me
            Latihan_34b_36110029.Show()
        Else
            Latihan_34b_36110029.Activate()
        End If
    End Sub

    Private Sub ToolStrip2_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStrip2_36110029.Click
        If Latihan_34c_36110029.Visible = False Then
            Latihan_34c_36110029.MdiParent = Me
            Latihan_34c_36110029.Show()
        Else
            Latihan_34c_36110029.Activate()
        End If
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.