03 March 2012

Cara membuat program penghitung berat badan ideal dengan visual basic

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

11 comments:

  1. Makaksih ya atas infonya..
    sangat membantu sekali,,,

    ReplyDelete
  2. Syalom tu apa ??

    ReplyDelete
  3. Artinya Salam Sejahtrah bagi kamu ..

    ReplyDelete
  4. This comment has been removed by the author.

    ReplyDelete
  5. ohh,,
    saya kira ntahh apa kk..

    ReplyDelete
  6. Cuma simple aja ya code nya ...
    saya kira susah-susah ...

    ReplyDelete
  7. Misalnya text1 atau text lainnya namanya di rubah berarti semua nama text nya harus sama ya ???

    ReplyDelete
  8. Fungsi unload me tu sama dengan fungsi End ya kk ??

    ReplyDelete
  9. Iya,
    fungsi 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 ..

    ReplyDelete
  10. mas,.
    di mn yg baris ke 3 nya kok eror,.
    apa ya yg salah nya??
    mohon pencerahan??? :(

    ReplyDelete

Recent Comment

Contact Form

Name

Email *

Message *

2012 © Jabat Software