Cara Membuat Aplikasi Kebutuhan Kalori dari Visual Basic

Assalamualaikum wr.wb

Kali ini Saya akan share tutorial bagaimana cara membuat sebuah aplikasi kebutuhan kalori dari Visual Basic. Visual Basic yang saya gunakan adalah Visual Basic 2010, bila kalian ingin menggunakan versi yang dibawah atau diatasnya, menurut Saya tidak masalah.

Ok. Kita langsung saja. Kalian tinggal persiapkan 3 Label, 3 NumericUpDown, 2 RadioButton, 1 Button.

Untuk nama-nama Label, RadioButton, dan Button :

Label1 : Berat Badan (Kg)

Label2 : Tinggi Badan (Cm)

Label3 : Usia

RadioButton1 : Laki-laki

RadioButton2 : Perempuan

Button1 : Hitung

Lalu kalian tinggal salin atau ketik ulang kode berikut ini.

 

Public Class Form1

 

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

Dim Berat, Usia, DosisDewasa, DosisAnak As Decimal

Dim RumusClark, RumusYoung As Boolean

Berat = NumericUpDown1.Value

Usia = NumericUpDown2.Value

DosisDewasa = TextBox1.Text

RumusClark = RadioButton1.Checked

RumusYoung = RadioButton2.Checked

If RumusClark = True Then

DosisAnak = -Int(-(Berat) / 150 * DosisDewasa)

ElseIf RumusYoung = True Then

DosisAnak = -Int(-(Usia / (Usia + 12) * DosisDewasa))

Else

DosisAnak = 0

 

End If

MsgBox(“Kebutuhan Dosisi Sebayak : ” & DosisAnak & ” mL”)

End Sub

End Class

 

Demikianlah tutorial yang Saya bagikan, semoga bermanfaat untuk kita semua. Dan jangan lupa untuk komen bila kalian berhasil membuatnya. Bila ada pesan error dan Anda mengalami kesulitan, harap dikomen ayo, kita akan belajar bersama. J

Wassalamualaikum wr.wb.