Cara Membuat Aplikasi Menggunakan Berbagai Fungsi di Microsoft visual Studio 2008
Nama : Viva Nuralifiya G
NPM : 1106096002

1. Memulai program Micosoft Visual Studio 2008
    Menu File --> New --> Project

    

    Lalu atur hingga menjadi seperti ini

   Klik OK maka tampilan akan menjadi seperti ini

    catatan: Form1 digunakan sebagai pintu masuk ke Form2 yang berisi perhitunganya

2. Menambah beberapa tool yang tersedia di Toolbox

    a. Label

        Klik Toolbox disebelah kiri layar lalu pilih Label

        klik ditempat yang diinginkan

        untuk memperbanyak label, bisa dengan cara yang sama atau dengan copy-paste

        dan ubah nama label dari kotak Properties dibagian Text

    b. Text Box

        Dengan cara yang sama seperti menambahkan Label dan letakkan disamping label

        Agar memudahakan dalam pembuatan coding, maka nama di sistemnya perlu diubah. Cari bagian Name di kotak Properties

        TextBox1 menjadi Tuser

        TextBox2 menjadi Tpass tambahan isi tanda (*) dibagian PasswordChar dikotak Properties

    c. Button

        Pilih Button di Toolbox lalu letakkan ditempat yang diinginkan

        Dibagian Name dikotak Propeties, ubah;

        Button1 menjadi Btnenter

        Button2 menjadi Btnexit

                      

Sebelum mengisi coding button enter, buat form baru

Klik icon Add New Item -->  pilih Add New Item

        Setelah selesai, klik tab Form1.vb [Design]

        Klik kiri 2x button enter untuk menambah coding

        Coding;

        Button Enter:

Dim x As Integer

        If Tpass.Text = "indonesia" Then

            Form2.Show()

        Else

            x = MsgBox("Password SALAH!", MsgBoxStyle.OkOnly, "Informasi")

            Tuser.Text = ""

            Tpass.Text = ""

            Tuser.Focus()

     End If

    

    Button Exit:

                Dim y As Integer

y = MsgBox("Are you sure?!!", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi?")

        If y = vbYes Then

            End

        End If

      End Sub 

Mendesain Form2:

1. Menambah item dari Toolbox

    a. Groupbox

        Pilih GroupBox dari Toolbox dan klik ditempat yang diinginkan

        Ubah tittle GroupBox1 dikotak Properties bagian Text menjadi Spesifikasi

    b. Lalu isi grup box dengan label yang ada di toolbox dan ubah namanya masing-masing hingga seperti ini

      Dan tambah textbox dari toolbox dan ubah Name yang ada dikotak Properties yaitu;

      TextBox1 menjadi Tkode

      TextBox2 menjadi Tnama

      TextBox3 menjadi Tbarang

      TextBox4 menjadi Tharga

      TextBox5 menjadi Tjumlah

    c. Untuk warna, tambahkan combo box dari toolbox. Dan untuk menambah daftarnya isi dari kotak Properties bagian Item

    d.  Selanjutnya, diluar grupbox, tambahkan Textbox, Button dan Checklist dari toolbox.

        Untuk text box, ubah Name yang ada dikotak Properties yaitu;

        TextBox6 menjadi Ttotal

        TextBox7 menjadi Tdiskon

2. Pembuatan coding

    Klik kiri 2x pada;

    a.  Tnama dan isi coding

    Tnama.Text = Strings.Left(Tkode.Text, 2)

  b.   Tbarang dan isi coding

     If Tnama.Text = "GK" Then

        Tbarang.Text = "Gantungan Kunci"

     ElseIf Tnama.Text = "FF" Then

        Tbarang.Text = "Frame Foto"

     ElseIf Tnama.Text = "LT" Then

        Tbarang.Text = "Lampu Tidur"

     ElseIf Tnama.Text = "MG" Then

        Tbarang.Text = "Mug"

     End If

b.             c. Tharga dan isi coding

If Tnama.Text = "GK" Then

      Tharga.Text = "3000"

   ElseIf Tnama.Text = "FF" Then

      Tharga.Text = "10000"

   ElseIf Tnama.Text = "LT" Then

      Tharga.Text = "15000"

   ElseIf Tnama.Text = "MG" Then

      Tharga.Text = "20000"

   End If

c.          d. Tjumlah dan isi codingnya

             Tjumlah.Text = Strings.Right(Tkode.Text, 3)

         e. Btntotal dan isi codingnya

             Ttotal.Text = Tharga.Text * Tjumlah.Text

         f.  Cdiskon dan isi codingnya

             If Cdiskon.Checked = True Then

            Tdiskon.Text = Ttotal.Text - (Ttotal.Text * 0.05)

       Else

            Tdiskon.Text = Ttotal.Text

       End If

        g. Btnexit dan isi codingnya 

            Dim y As Integer

            y = MsgBox("Are you sure?!!", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi?")

            If y = vbYes Then

            End

               End If

3. Menghias Form

    Terdapat dibagian Font dan Font Core dikotak Properties

MAKA HASIL AKHIR MENJADI. . . .