VB Script : Sequence Part II

Di sini saya akan menambahkan contoh untuk model sequence dalam penggunaan vbscript.
Contoh yang akan saya berikan ini cukup sederhana saja.. dan yang dibutuhkan untuk mencoba hal ini cukup hanya dengan 2 program ini:
1. notepad
2. Internet Explorer

untuk contoh kali ini saya akan memisahkan angka puluhan dan satuan dari angka yang diinputkan oleh user dari inputbox. untuk scriptnya silahkan disimak di bawah ini.... :)

<script language="vbscript">

angka=cint(inputbox("masukkan angka antara 1-99"))
puluhan = angka\10
satuan = angka mod 10

document.write "angka yang diinputkan : " & angka & "<br>"
document.write "nilai puluhan dari angka yang diinput adalah : " & puluhan & "<br>"
document.write "nilai satuan dari angka yang diinput adalah : " & satuan

</script>

sekarang saya akan menjelaskan maksud dari script di atas...
pertama <script> dan </script> adalah tanda batas vbscript ini dilakukan (karena kita bekerja pada script di html)
lalu angka=cint(inputbox("masukkan angka antara 1-99")) adalah input dari user dimana  "cint" adalah command untuk mengubah nilai string (huruf) menjadi integer (angka)
puluhan = angka \ 10 adalah untuk mengambil nilai puluhan dari inputan user yang bermaksud angka div 10 dan satuan = angka mod 10 adalah untuk mengambil satuannya

selanjutnya tinggal berikan perintah document.write untuk mencetaknya

cukup mudah bukan?
untuk mencoba sendiri tinggal copy paste script di atas ke dalam notepad > save dalam bentuk *.html dan jalankan di IE

ps: jangan lupa untuk "allow blocked content" pada saat IE di buka..

~J-171~