Program Menghitung Berat Badan

Waduh udah gak kerasa nih sekarang udah semester 4, kerasa cepet banget nh waktu... Padahal ngerasa baru kemaren gw baru masuk kuliah, Bahasa Program yang harus dikuasai juga udah beda,,, sekarang gw belajar Visual Basic 6.0 . Sekedar kasih tau aja visual basic adalah salah satu development tools untuk membangun aplikasi dalam lingkungan windows dalam pengembangan aplikasi. Visual Basic adalah bahasa pemograman berbasis windows yang sering disebut dengan OOP ( objek oriented programming) yaitu pemrograman yang berorientasi dengan Objek inget yah “objek” bukan “ojek” (capee deh...)
Kemaren pas ga ada kerjaan di rumah gw coba-coba bikin program perhitungan berat badan simple aja ch.... oke tidak usah banyak bicara, untuk membuat program tersebut ikuti langkah berikut....
1. klik new form
2. kemudian buat form seperti berikut :

Nama Kontrol	Property	Nilai
Label1	Caption	Program Menghitung Berat Badan
Label2	Caption	Masukan data anda
Label3	Caption Text	Nama  Kosongkan
Label4	Caption Text	Tinggi Badan Kosongkan
Label5	Caption Text	Berat Badan Kosongkan
Text1	Name Text	Nm kosongkan
Text2	Name Text	Tbadan Kosongkan
Text3	Name Text	Bbadan Kosongkan
Command1	Name Caption	cmdproses Proses
Command2	Name Caption	cmdulang ulang
Command3	Name Caption	cmdselesai selesai

1. Pada Tombol proses, masukan kode program berikut :

Private Sub cmdproses_Click()

Dim Nama As String

Dim tb, bb, bi, b As Long

Nama = nm.Text

tb = Val(tbadan.Text)

bb = Val(bbadan.Text)

bi = (tb - 110) * 1.1

If (bb > (1.1 * bi)) Then

MsgBox " Halo " + Nama + " Anda Terlalu Gemuk "

Else

If (bb < (0.9 * bi)) Then

MsgBox " Halo " + Nama + " Anda Harus Banyak Makan "

Else

MsgBox " Halo " + Nama + " Berat Tubuh Anda Ideal "

End If

End If

End Sub

 4. pada tombol ulang masukan code program berikut :

Private Sub cmdulang_Click()

nm.Text = ""

tbadan.Text = ""

bbadan.Text = ""

End Sub

5. pada tombol selesai masukan code program berikut :

Private Sub cmdselesai_Click()

x = MsgBox("Yakin Mau Udahan", vbYesNo + vbInformation, "Tawaran")

If x = vbYes Then

End

End If

6. jika sudah selesai tekan F5, atau pilih menu run kemudian start,

7. beres deh!!!!  gampang kan.....