Hello para programing Visual Basic, selamat datang lagi di web saya. Postingan kali ini saya akan membagikan ilmu yang berbeda, yaitu cara membuat program penghitung berat badan ideal dengan vb .
Ini dia Screenshotnya..

Setelah melihat gambar tersebut, buat form seperti pada gambar di atas dengan 5 Label, 4 Textbox dan 3 Command button….. 

nama di properties command ganti masing-masing dengan nama Proses, Ulang dan selesai…
. Kemudian klik 2 kali pada command Proses… lalu masukan code berikut :

Private Sub proses_Click()
Dim nama As String
Dim TB, BB, BI, B As Long
nama = nm.Text
TB = Val(t2.Text)
BB = Val(t3.Text)
BI = (TB – 110) * 1.1
If (BB > (1.1 * BI)) Then
text4.Text = “Syalom ” + nama + ” Anda ini  gemuk juga ya ”
Else
If (BB < (0.9 * BI)) Then
text4.Text = “Syalom ” + nama + ” Anda belum ideal, makan yang  banyak ya”
Else
text4.Text = “Syalom ” + nama + ” Anda Sudah Ideal “
End If
End If
End Sub

klik 2 kali pada command ulang dan masukan code berikut :
Private Sub ulang_Click()
nm.Text = “”
text2.Text = “”
text3.Text = “”
text4.Text = “”
nm.SetFocus
End Sub

dan terakhir masukan code berikut pada command selesai :
Private Sub Command3_Click()
Unload Me
End Sub

 Klik start atau f5 untuk menjalankan program..
selesai

NB :
untuk tulisan yang berwarna merah Syalom bisa di ganti dengan kata" yang anda inginkann contohnya hallo atau hello, hey
dan untuk yang tulisan yang  berwarna biru bisa di ganti dengan kata-kata yang anda ingin kan ..
mungkin anda sudah mengerti apa fuungsi itu .


Semoga bermanfaat