LATIHAN_34A_36110052

Latihan_34A _36110052

Latihan_34a_36110052

A.     Objek dalam Form Latihan_34a:

Dalam form latihan ini hanya terdapat dua object yaitu ToolStrip dan MenuStrip

1.      Object ToolStrip

Terdapat dua object ToolStrip yang bertuliskan Daftar Barang dan Input Barang. Dimana daftar barang digunakan untuk menempilkan Daftar Barang pada latihan_34b_36110052 sedangkan Input

Barang digunakan untuk memasukkan barang pada latihan_34c_36110052                                      .

2.      Object MenuStrip

Terdapat satu object yang bertuliskan Barang

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada langkah-langkah kerja latihan_34A_36110052

C.     Even

DAFTARBARANGToolStripMenuItem_Click

INPUTBARANGToolStripMenuItem_Click

ToolStripLabel1_Click 

ToolStripLabel2_Click

Langkah-langkah kerja  latihan_34a_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_34a_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_34A_36110052

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click

        If LATIHAN_34B_36110052.Visible = False Then

            LATIHAN_34B_36110052.MdiParent = Me

            LATIHAN_34B_36110052.Show()

        Else

            LATIHAN_34B_36110052.Activate()

        End If

    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click

        If LATIHAN_34C_36110052.Visible = False Then

            LATIHAN_34C_36110052.MdiParent = Me

            LATIHAN_34C_36110052.Show()

        Else

            LATIHAN_34C_36110052.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click

        If LATIHAN_34B_36110052.Visible = False Then

            LATIHAN_34B_36110052.MdiParent = Me

            LATIHAN_34B_36110052.Show()

        Else

            LATIHAN_34B_36110052.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click

        If LATIHAN_34C_36110052.Visible = False Then

            LATIHAN_34C_36110052.MdiParent = Me

            LATIHAN_34C_36110052.Show()

        Else

            LATIHAN_34C_36110052.Activate()

        End If

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI