Cara Membuat Perhitungan Body Mass Index (Index Masa Tubuh)

 Menggunakan Class

Oleh: Viva Nuralifiya G (1106096002)

1.      Memulai Aplikasi Microsoft Visual Studio 2008

Menu Start --> Pilih Microsoft Visual Studio 2008 atau dengan cara klik icon     pada desktop

Tampilan:

Menu File --> New --> Project --> Lalu ikuti ketentuan berikut

Klik OK maka tampilan seperti ini:

2.      Menambah Tool dari Toolbox dan Menambah Item Lainya

a.                 - Menambah Textbox dari toolbox

        Klik Textbox dari kotak Toolbox lalu klik ditempat yang diinginkan

         Dikotak Properties, pada bagian Name, ganti menjadi Thitung

      - Menambah Button dari toolbox

 Klik Button dari kotak Toolbox lalu klik ditempat yang diinginkan, dan untuk memperbanyak bisa menggunakan cara copy-paste

   Aturlah dibagian kotak properties menjadi seperti ini;

 Button1 --> pada bagian Text menjadi Hitung dan pada bagian Name menjadi Btnhitung

 Button2 --> pada bagian Text menjadi Hasil dan pada bagian Name menjadi Btnhasil

Hasil akhir ---->

3.   Menambah Class

    Menu Project --> pilih Add Class…--> Lalu pada bagian Name, buat judul Class menjadi Class Hitung.vb --> klik Add

                 Maka tampilan akan menjadi:

      Lalu tambahkan codingnya;

    Public Function bmi(ByVal berat, ByVal tinggi)

        bmi = (berat / (tinggi * tinggi)) * 100

    End Function

4.   Menambah coding di form

a.          Klik kiri 2x pada button hitung namun sebelum itu, tambahkan coding

     Dim imt As New Class_Hitung

             tepat dibawah Public Class Form1

Lalu di Button hitung tambahkan coding

Dim berat As Integer

      Dim tinggi As Integer

        berat = InputBox("Masukan berat badan Anda")

        tinggi = InputBox("Masukan tinggi badan Anda (dalam satuan m; contoh: 1,6)")

        Thitung.Text = imt.bmi(berat, tinggi)

Selanjutnya, tambahkan coding di button hasil. Klik kiri 2x di button hasil

If Thitung.Text < 20 Then

            MsgBox("UNDERWEIGHT!")

     ElseIf Thitung.Text > 25 Then

            MsgBox("OVERWEIGHT!")

      Else

            MsgBox("IDEAL")

        End If

Maka hasilnya adalah

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. . . . 

    

Cara Membuat Aplikasi Perhitungan BMI dengan Fungsi IF

Nama : Viva Nuralifiya G
NPM  : 1106096002


Langkah membuat aplikasi ini:
1. Memulai program Microsoft Visual Studio 2008
    Buka aplikasi Microsoft Visual Studio 2008

   Start  >  All Programs  >  Microsoft Visual Studio 2008

2.        Buat project baru

   Menu File  >  New  >  Project

 

    Beri nama aplikasi sesuai keinginan pada bagian ‘Name’ dan pilih Windows > Windows Form Application

    Klik OK maka tampilan akan seperti ini

2.  Membuat tool yang ada di ToolBox dan menambah source code
    a. Membuat Label
        Pada sebelah kiri pilih tab ToolBox


            Lalu pilih Label dan klik ditempat yang dimaksud

          Agar Label berjumlah banyak bisa dengan cara copy-paste atau dengan cara yang sama

          Mengubah nama label

          Pada bagian kanan bawah layar, terdapat kotak Properties, pada bagian Text ubah nama yang dimaksud lalu enter

      

              Dengan cara yang sama, ubah nama label menjadi seperti ini

        b. Membuat TextBox

            Klik tab ToolBox lalu pilih TextBox

            Klik ditempat yang dimaksud (untuk memperbanyak cara sama dengan memperbanyak label)

          Untuk mempermudah mengingat saat pembuatan kding, ubah nama di kotak Properties pada Name

         TextBox1 jadi Ttinggi

         TextBox2 jadi Tberat

         TextBox3 jadi Thasil

         TextBox4 jadi Tnilai

    

     c. Membuat Button

          Klik tab ToolBox lalu pilih Button

          Klik ditempat yang dimaksud (untuk memperbanyak cara sama dengan memperbanyak label)

         Ubah nama button (cara sama seperti mengubah nama label)

         Button1 jadi Hasil

         Button2 jadi Penilaian

         Button3 jadi Ulang

         Dan untuk mempermudah saat membuat koding, ubah nama dibagian Name di kotak Properties

         Hasil jadi Btnhasil

         Penilaian jadi Btnnilai

         Ulang jadi Btnulang

           Double-Klik kiri button Hasil untuk menambah source code
           Lalu ketik source code
               Thasil.Text = Tberat.Text / (Ttinggi.Text * Ttinggi.Text)

    

      Kembali ke Form Design, double-klik kiri di button Penilaian

      Lalu ketik source code

              If Thasil.Text < 20 Then

            Tnilai.Text = "Underweight!!"

        ElseIf Thasil.Text > 25 Then

            Tnilai.Text = "Overweight!!"

        Else

            Tnilai.Text = "IDEAL"

        End If

           Kembali ke Form Design, double-klik kiri di button Ulang

      Lalu ketik source code

        Ttinggi.Text = ""

        Tberat.Text = ""

        Thasil.Text = ""

        Tnilai.Text = ""

        Ttinggi.Focus()

3. Memperindah Form
    Dibagian kotak Properties, pilih Font dan ForeColor yang diinginkan

maka hasil akhir menjadi: