Hallo semuanya... apa kabarnya nih, sehatkan ? wah hebat kalian, berarti kalian bisa menjaga diri kalian. Pastinya sering olahraga nih dan memakan 4sehat 5sempurna. Pada kesempatan ini saya ingin membuat program perhitungan berat badan yang idealnih. Teman-teman badannya gemuk, ideal atau kurus ?.
Membuat program Membuat Perhitungan Berat Badan Ideal Di VB.NET 2010 tidak susahko Langsung saja :
Baca Juga : Membuat Koneksi VB.NET Dengan Database MYSQL
1. Buka Microsoft Visual Studio 2010.
2. Pilih Windows Form Application.
3. Label sebanyak 5.
Membuat button sebanyak 2 buah yaitu btnproses dan btnulangi.
TextBox sebanyak 4 yaitu : txtnama, txttinggi, txtberat, txtketerangan.
Warna berada di properties > BackColor.
Setelah selesai maka tampilannya sebagai berikut :
Klik btnProses sebanyak 2x lalu isikan codingnya sebagai berikut :
Dim Nama As String
Dim TB, BB, BI As Single
Nama = txtnama.Text
TB = Val(txttinggi.Text)
BB = Val(txtberat.Text)
BI = (TB - 110) * 1.1
If (BB > (1.1 * BI)) Then
txtketerangan.Text = "Hallo" + Nama + "berat badan anda GEMUK..."
Else
If (BB < (0.9 * BI)) Then
txtketerangan.Text = "Hallo" + Nama + "berat badan anda KURUS..."
Else
txtketerangan.Text = " Hallo" + Nama + "berat badan anda IDEAL..."
End If
End If
End Sub
Dim TB, BB, BI As Single
Nama = txtnama.Text
TB = Val(txttinggi.Text)
BB = Val(txtberat.Text)
BI = (TB - 110) * 1.1
If (BB > (1.1 * BI)) Then
txtketerangan.Text = "Hallo" + Nama + "berat badan anda GEMUK..."
Else
If (BB < (0.9 * BI)) Then
txtketerangan.Text = "Hallo" + Nama + "berat badan anda KURUS..."
Else
txtketerangan.Text = " Hallo" + Nama + "berat badan anda IDEAL..."
End If
End If
End Sub
Baca Juga : Membuat Koneksi VB.NET Dengan Database Microsoft Access
Jika sudah lalu klik btnProses sebanyak 2x lalu isikan codingnya sebagai berikut :
txtnama.Text = ""
txttinggi.Text = ""
txtberat.Text = ""
txtketerangan.Text = ""
End Sub
txttinggi.Text = ""
txtberat.Text = ""
txtketerangan.Text = ""
End Sub
Jika sudah dicoding maka tampilan jelasnya seperti ini :
Sekian dulu Membuat Perhitungan Berat Badan Ideal Di VB.NET 2010 semoga bermanfaat. Sekian terimakasih
Mantap gans saya sudah coba dan badan saya ideal😁
ردحذفwah mantap gans, terimakasih sudah mengunjungi hariancoding
حذفMantap gans saya sudah coba dan badan saya ideal😁
ردحذف