Membuat Aplikasi Sederhana Kalkulator Sehat dengan V.NET 2012

Setelah berputar – putar memikirkan apa yang akan diposting sebagai tugas kuliah akhirnya ketemu juga, walaupun mungkin bagi para pembaca program ini sanggat lah sederhana bagi para master namun cukup untuk jadi referensi bagi pemula seperti saya. 

    Program ini digunakan untuk menghitung berat dan tinggi ideal manusia. Seperti yag kita ketahui belakangan ini, masalah obesitas tak terelakan lagi. Disaat sibuknya jam kerja, banyaknya jam lembur serta waktu istirahat yang singkat sering menyebabkan kita melupakan rutinitas berolah raga. Padahal olah raga adalah bagian penting dari rutinitas untuk menjaga kesehatan dan kebugaran badan kita. Selain itu juga harus didukung dengan asupan bergizi dari makanan sehari – hari . 

       Dengan program ini diharapkan dapat membantu memantau berat badan ideal  berdasarkan tinggi badan kita. Program ini dibuat dengan visual studio 2010. Form, button, textbox serta proses perhitungannya dijelaskan secara singkat dan jelas dibawah ini.

Tampilan Awal Visual Studio 2012

Pertama buatlah project baru, kemudian buatlah 3 form sesuai tabel berikut  :

Object	Property	Value
Form 1	Kalkulator sehat	Form1
Button 1	Tinggi Ideal	ttgid
Button 2	Berat ideal	brtid
Button 3	Keluar	klr
Label 1	Label1	Kesehatan..
Label2	Label2	Tentang kami
Form2	Tinggi Ideal	Form2
Label1	Berat badan anda	Label1
Textbox 1		brtbadan
Button1	Hasil	htg
Button2	Kembali	kmbli
Form3	Berat Ideal	Form3
Label1	Tinggi badan anda	Label1
Textbox 1		tgbadan
Button1	Hasil	htg
Button2	Kembali	tutup

 dengan tampilan form sebagai berikut :

Adapun source code nya sebagai berikut : 

 untuk form 1 :

       Public Class Form1

    'tugas PV sIII

    'kalkulator sehat v1.0

    'oleh ISWANDI

    ' build 20 oktober'12

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttgid.Click

        Form2.Show()     'form 2 ditampilkan

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klr.Click

        If MsgBox(" Anda Yakin Ingin Menutup program ", vbYesNo + vbQuestion + vbDefaultButton2, "kembali") = vbYes Then Me.Close()

        ' menampilkan konfirmasi exit pgm dengan metode vbyesno

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brtid.Click

        Form3.Show()    'form 3 ditampilkan

    End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

        MsgBox(" Kalkulator sehat v1.0 oleh ISWANDI ")  ' menampilkan info tambahan

    End Sub

End Class

Form 2 

Public Class Form2

    Private Sub Brtbadan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Brtbadan.TextChanged

    End Sub

    Private Sub Htg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Htg.Click

        Dim hasil As Integer

        Dim berat As Integer

        berat = Brtbadan.Text

        hasil = berat + 110  'Deklarasi dan penulisan rumus

        MsgBox(" Tinggi Badan ideal Anda Adalah " & hasil & "Cm")  ' menampilkan message box hasil dari perhitungan

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmbli.Click

        Me.Close() ' Menutup Form

    End Sub

End Class

Form 3 :

Public Class Form3

 Private Sub ttgbadan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttgbadan.TextChanged

   End Sub

    Private Sub Htg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Htg.Click

        Dim hasil As Integer

        Dim tinggi As Integer

        tinggi = ttgbadan.Text

        hasil = tinggi - 110  'Deklarasi dan penulisan rumus

        MsgBox(" Berat Badan ideal Anda Adalah " & hasil & "Kg")  ' menampilkan message box hasil dari perhitungan

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmbli.Click

        Me.Close()  ' menutup form

    End Sub

End Class

 Tanda petik 1 dimaksudkan penulis untuk dokumentasi dan penjelasan coding per baris

Terlihat sekali bahwa teknik coddingnya sangat profesional, hehe

Demikian ulasan singkat program yang baru saya buat tersebut. Selamat mencoba dan semoga bermanfaat.