Membuat Program Ideal Berat Badan Menggunakan Visual Basic 2008

Tampilan Form saat dijalankan

Kali ini sabahat alvisahrin.blogspot akan membuat program yang perlu banget untuk kelangsungan hidup kita yang lebih baik dan sesuai yang kita harapkan, aplikasi ini kita gunakan dengan vb.net 2008 atau juga bisa diterapkan pada vb sejenis nya berikut diatas merupakan tampilan desain pada form saat dijalankan

adapun tools2 ya adalah
-5 label
-4 textboxt
-3 buah tombol button

dibawah ini adalah koding lengkapnya  :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nm As String
        Dim tb, bb, bi, b As Long
        nm = nama.Text
        tb = Val(tinggibadan.Text)
        bb = Val(beratbadan.Text)
        bi = (tb - 110) * 1.1
        If (bb > (1.1 * bi)) Then
            keterangan.Text = "Assalamualaikum " + nama.Text + " Anda gemuk juga ya, jaga kesehatan dan makan anda."
        Else
            If (bb < (0.9 * bi)) Then
                keterangan.Text = "Assalamualaikum " + nama.Text & vbCrLf & "Anda belum ideal, sesuaikan kalori dengan asupan makanan serta olahraga anda."
            Else
                keterangan.Text = "Assalamualaikum " + nama.Text + " Keren Anda ideal"
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nama.Text = ""
        tinggibadan.Text = ""
        beratbadan.Text = ""
        keterangan.Text = ""
        nama.Focus()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class
gimana sobat cukup simpel kan ?
jika kurang jelas monggo di koment, demikian semoga bermanfaat wassalamualaikum warohmatullahi wabarkatuh  :D

Share :

Tweet

More

Related Post