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 :
dan terakhir masukan code berikut pada command selesai :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
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
Makaksih ya atas infonya..
ReplyDeletesangat membantu sekali,,,
Syalom tu apa ??
ReplyDeleteArtinya Salam Sejahtrah bagi kamu ..
ReplyDeleteThis comment has been removed by the author.
ReplyDeleteohh,,
ReplyDeletesaya kira ntahh apa kk..
Cuma simple aja ya code nya ...
ReplyDeletesaya kira susah-susah ...
Misalnya text1 atau text lainnya namanya di rubah berarti semua nama text nya harus sama ya ???
ReplyDeleteFungsi unload me tu sama dengan fungsi End ya kk ??
ReplyDeleteIya,
ReplyDeletefungsi Unload me itu sama dengan fungsi End
terserah kalian mau plih yang mna.
yang penting kalau kalian buat kode seperti itu, ketika di klik, akan keluar darii program ..
mas,.
ReplyDeletedi mn yg baris ke 3 nya kok eror,.
apa ya yg salah nya??
mohon pencerahan??? :(
gan BI itu yang mana yah
ReplyDelete