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