Latihan_34A_3611056

Deskripsi Latihan 34A :

Form Latihan 34A terdapat dua object yaitu ToolStrip dan MenuStrip

Object ToolStrip
Terdapat satu object toolstrip yang memiliki dua toolstripbutton (yang bertuliskan daftar barang dan input barang).

Object MenuStrip
Terdapat satu menustrip yang memiliki dua toolstripmenuitem (yang bertuliskan daftar barang dan input barang).

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 34A

Even

ButtonClick

Property

Default



                                                 

Langkah-langkah penyelesaian latihan 34A :

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Menustrip dan toolstrip yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama menustrip dan toolstrip yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  : 

Public Class latihan34A_36110056

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

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

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

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

   
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini