Membuat Program Menghitung Berat Badan menggunakan Microsoft Visual Basic 2010 Express

Membuat Program Menghitung Berat Badan

menggunakan Microsoft Visual Basic 2010 Express

1.      Buka aplikasi Microsoft Visual Basic 2010 pada PC/Laptop anda.

Maka akan muncul tampilan seperti dibawah ini :

2.      Klik New Project.

Pilih Windows Forms Application dan isikan nama file yang akan dibuat pada kolom Name.

Sebagai contoh saya mengisikan kolom name dengan judul “ProgramMenghitungBeratBadan” (tanpa spasi) atau anda dapat mengganti spasi dengan tanda _ (underscore).

Kemudian klik OK.

3.      Buatlah Design program seperti dibawah ini :

3.1.  Untuk point 1 dan point 2 kita menggunakan Label pada menu Toolbox

Kemudian klik pada label yang ada di form dan ganti text pada properties sesuai dengan design diatas.

3.2.  Untuk point 3 gunakan TextBox pada menu Toolbox

3.3.  Untuk point 4 gunakan Button

Setelah selesai maka tampilan form adalah seperti berikut :

4.      Klik ganda kontrol Proses, kemudian buat kode program sebagai berikut :

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

        Dim Nama As String

        Dim TB, BB, BI As Single

        Nama = TextBox1.Text

        TB = Val(TextBox2.Text)

        BB = Val(TextBox3.Text)

        BI = (TB - 110) * 1.1

        If (BB > (1.1 * BI)) Then

            TextBox4.Text = "Hallo" + Nama + "Anda GEMUK juga yah..."

        Else

            If (BB < (0.9 * BI)) Then

                TextBox4.Text = "Hallo" + Nama + "Anda KURUS banget..."

            Else

                TextBox4.Text = "Hallo" + Nama + "Anda IDEAL juga ternyata..."

            End If

        End If

End Sub

5.      Klik ganda kontrol Ulangi, kemudian buat kode program sebagai berikut :

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

End Sub

6.      Klik ganda tombol Keluar, kemudian buat kode program sebagai berikut :

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

        MsgBox("Apa ANDA yakin ingin keluar?", vbOKCancel + vbQuestion, "KONFIRMASI")

        End

End Sub

Untuk coding lengkapnya adalah sebagai berikut :

7.    Setelah semua selesai, jalankan program dengan menekan tombol start debugging atau bisa menggunakan tombol F5.

Jika berhasil maka program akan berjalan seperti ini :

8.    Selamat mencoba kawan.. semoga penjelasan diatas dapat bermanfaat dan mempermudah teman-teman semua dalam pembuatan program.

Tetap semangat, terus berusaha dan pantang menyerah !!  Selamat belajar..

http://fitrifebriani26.blogspot.com