Deskripsi_Latihan_34A_36110054

Cara Membuat Progam/Apliaksi Latihan 34A

Dengan Software Microsoft Visual Basic 2008

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

Langkah 1:

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2:

     Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

Langkah 3:

 Rancanglah Form Seperti Gambar Berikut Berikut :

       Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_34A_36110054

    Private Sub DAFTAR_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Daftar_36110054.Click, daftar2_36110054.Click

        If Latihan_34B_36110054.Visible = False Then

            Latihan_34B_36110054.MdiParent = Me.MdiParent

            Latihan_34B_36110054.Show()

        Else

            Latihan_34B_36110054.Activate()

            Latihan_34B_36110054.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub INPUTBARANG_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles InputBarang_36110054.Click, input2_36110054.Click

        If Latihan_34C_36110054.Visible = False Then

            Latihan_34C_36110054.MdiParent = Me.MdiParent

            Latihan_34C_36110054.Show()

        Else

            Latihan_34C_36110054.Activate()

            Latihan_34C_36110054.WindowState = FormWindowState.Normal

        End If

        Latihan_34C_36110054.kdebrg_36110054.Text = ""

        Latihan_34C_36110054.namabrg_36110054.Text = ""

        Latihan_34C_36110054.hrgjual_36110054.Text = ""

        Latihan_34C_36110054.jmlbrg_36110054.Text = ""

        Latihan_34C_36110054.KBL_36110054.Text = "-"

    End Sub

   

End Class