Kamis, 22 Juli 2010

Program Konversi Satuan Berat dari lbs(Pound) ke Kg

Selamat pagi wah untuk yang pada search pakai google  tentang satuan berat ini pasti langsung ketemu blogku
wah wah enak ya langsung dapat yang diinginkan dengan perantara google,cuma klak klik langsung dapat dehh
he2, bercanda kali ini postingan pagi hari adalah sedikit berbau program  yaitu saya membuat program konversi dengan  bahasa vbs karana alasan mudah di gunakan tinggal klik saja langsung jadi.
 kembali ke topik utama  lbs "location based services" / (Pound) adalah satuan berat internasional dan kg adalah satuan berat yang di pakai pada umumnya di indonesia jadi kalau untuk mencari berat kg kita harus menkorversi lbs ini ke kg nah karena alasan itu saya membuat program sederhana ini
kode di bawah ini
1. buka notepad lalau paste kode do bawah ini

Dim userInput

userInput = InputBox("Masukan Data dengan satuan lbs Di bawah ini lalu klik ok","Program Konversi Satuan Lbs ke Kg")

if userinput="0" or userinput="" then

msgbox "Tidak ada data yang valid dimasukan",0,"Informasi"

else
msgbox userInput / 2.20462 &"Kg"&"  "&"dibulatkan menjadi"&"  "& round(userInput / 2.20462)&"Kg",0,"Hasil Konversi dari lbs ke Kg"

end if

2. simpan dengan nama.vbs
3. cara jalankan tinggal di klik aja 2 kali
4. kalau ga mau ribet ngikutin cara saya,download yang sudah jadi di bawah ini
http://www.ziddu.com/download/10821574/konverterlbskeKgkilogram.rar.html




berikut di bawah ini  adalah gambar hasil print screen program.

















saya rasa cukup sekian dari saya mudah2 an bermanfaat bagi pembaca dan mohon maaf bila ada kesalahan kata atau yang lain ????:)      trima kasih wasalam.