Mini Calculator Using VBScript

Langsung saja ya... iseng sambil menunggu waktu, saya akan share cara membuat calculator mini dengan VBScript. Sudah pada tahu kan apa itu VBScript? bagi yang belum tahu, silahkan baca di wikipedia. lumayan lah bisa untuk tambah,kurang,kali,bagi (plus,minus,multiply,devide) alias kalkulator endog.

Untuk membuatnya, buka notepad, copy sintak dibawah ini, lalu save dengan extension vbs (filename.vbs)

bilangan1 = inputbox("Masukan Bilangan 1","Calculator Via VBScript")

operator = inputbox("Input Salah Satu Operator (+,-,*,/)","Calculator Via VBScript")

bilangan2 = inputbox("Masukan Bilangan 2","Calculator Via VBScript")

select case operator

case "+" : hasil=cdbl(bilangan1)+cdbl(bilangan2)

case "-" : hasil=bilangan1-bilangan2

case "*" : hasil=bilangan1*bilangan2

case "/" : hasil=bilangan1/bilangan2

end select

msgbox "Hasil : " & bilangan1 & operator & bilangan2 & "=" & hasil,vbinformation,"Calculator Via VBScript"

Untuk mencegah error jika input tidak diisi, silahkan edit sintak diatas sesuai dengan kreativitas anda... selamat mencoba ya...