VBSCRIPT TUTORIAL 1. APAKAH VBSCRIPT? Microsoft Visual Basic Scripting Edition, salah satu anggota bahasa pemrograman Visual Basic, adalah bahasa pemrograman active scripting, baik untuk web client scripting pada Internet Explorer atau web server scripting pada Internet Information Server. 2. MEMASUKKAN KODE VBSCRIPT KE DALAM HALAMAN HTML Kode VBScript ditulis didalam pasangan tag <SCRIPT>. <SCRIPT LANGUAGE=”VBScript”> ………. ……….Blok perintah VBScript ……….
Contoh: <TITLE> <script language="VBScript"> document.write("Hallo!!!")
3. TIPE DATA VBSCRIPT VBScript hanya mempunyai satu tipe data yaitu Variant. Variant mempunyai beberapa sub tipe seperti: SUB TIPE Empty Null Boolean
DESKRIPSI 0 untuk variabel numerik. Zero Length String (“”) untuk variabel string. Data Null True atau False
Byte Integer Currency Long Single
Bilangan integer antara 0 - 255 Bilangan integer antara -32768 s/d 32767 -922,337,203,685,477.5808 s/d 922,337,203,685,477.5807 -2,147,483,648 s/d 2,147,483,647 -3.402823E38 s/d -1.401298E-45 untuk nilai negatif; 1.401298E-45 s/d 3.402823E38 untuk nilai positif -1.79769313486232E308 s/d -4.94065645841247E-324 untuk nilai negatif; 4.94065645841247E-324 s/d 1.79769313486232E308 untuk nilai positif Tanggal antara 1 Januari 100 s/d 31 Desember 9999 Variabel string dengan panjang variabel sampai 2 milyar karakter Obyek seperti image, musik dan lain-lain Nomor kesalahan
Double Date (Time) String Object Error 4. VARIABEL
Deklarasi variabel pada VBScript menggunakan 3 perintah, yaitu:
1.
Dim, variabel yang di deklarasikan dengan Dim pada level script bisa di kenal oleh semua procedure yag ada pada script tempat deklarasi. Jika di deklarasikan dalam sebuah procedure maka variabel hanya dikenal di dalam procedure tersebut.
2.
Public,
variabel yang di deklarasikan dengan Public akan dikenal oleh semua
procedure di dalam semua script, di dalam semua project.
3.
Private, private variabel akan dikenal didalam script tempat dia di deklarasikan.
Contoh: <TITLE> <script language="VBScript"> dim a,b,c a = inputbox("Masukkan nilai untuk variabel A : ") b = inputbox("Masukkan nilai untuk variabel B : ") c = CInt(a) + CInt(b) document.write(a & " + " & b & " = " & c)
5. KONSTANTA Deklarasi konstanta menggunakan const. Contoh: <TITLE> <script language="VBScript"> dim c const a=10 const b=15 c = CInt(a) + CInt(b) document.write(a & " + " & b & " = " & c)
6. OPERATOR Macam operator pada VBScript: Arithmetic Description
Comparison Symbol Description
Logical Symbol Description
Symbol
Exponentiation
^
Equality
=
Logical negation
Not
Unary negation
-
Inequality
<>
Logical conjunction
And
Multiplication
*
Less than
<
Logical disjunction
Or
Division
/
Greater than
>
Logical exclusion
Xor
Integer division
\
Less than or equal to
<=
Logical equivalence
Eqv
Greater than or equal to
>=
Logical implication
Imp
Object equivalence
Is
Modulus arithmetic
Mod
Addition
+
Subtraction
-
String concatenation
&
Contoh:
<script language="VBScript"> sub cmdPlus_OnClick dim myForm set myForm =document.FPlus myForm.txtHasilPlus.value = CInt(myForm.txtPlus1.value) + CInt(myForm.txtPlus2.value) end sub sub cmdMin_OnClick dim myForm set myForm =document.FMin myForm.txtHasilMin.value = CInt(myForm.txtMin1.value) CInt(myForm.txtMin2.value) end sub sub cmdKali_OnClick dim myForm set myForm =document.FKali myForm.txtHasilKali.value = CInt(myForm.txtKali1.value) * CInt(myForm.txtKali2.value) end sub sub cmdBagi_OnClick dim myForm set myForm =document.FBagi myForm.txtHasilBagi.value = CInt(myForm.txtBagi1.value) / CInt(myForm.txtBagi2.value) end sub sub cmdPangkat_OnClick dim myForm set myForm =document.FPangkat myForm.txtHasilPangkat.value = CInt(myForm.txtBil.value) ^ CInt(myForm.txtPangkat.value) end sub
7. PERINTAH KONDISIONAL a. If….then…else Perintah ini digunakan untuk menentukan pilihan berdasarkan kondisi Benar atau Salah (True or False). Bentuk umum perintah ini sebagai berikut: If condition Then [statements] [ElseIf condition-n Then [elseifstatements]] . . . [Else [elsestatements]] End If
Contoh 1: <TITLE>
Contoh 2: <TITLE>
b. Select case Perintah ini digunakan untuk menentukan pilihan dari beberapa pilihan yang disediakan. Bentuk umum perintah ini sebagai berikut: Select Case testexpression [Case expressionlist-n [statements-n]] . . . [Case Else expressionlist-n [elsestatements-n]] End Select
Contoh:
<Script language="VBScript"> sub cmdOK_OnClick dim myForm, makan, minum set myForm=Document.FMakanan select case myForm.cboMakan.value case "Pecel" makan="Pecel" case "Tumpang" makan="Tumpang" case "NasGor" makan="Nasi Goreng" end select select case myForm.cboMinum.value case "EsTeh" minum="Es Teh" case "EsCampur" minum="Es Campur" case "EsDegan" minum="Es Degan" end select msgbox "Anda memilih " & makan & " & " & minum end sub
8. LOOPING Looping digunakan untuk mengeksekusi perintah secara berulang-ulang. Perintah looping dalam VBScript ada 4, yaitu: a. Do…Loop Perintah ini akan mengulang blok perintah didalamnya selama atau sampai kondisi yang di berikan bernilai True. Contoh: <TITLE> <SCRIPT LANGUAGE="VBScript"> Do Until DefResp = vbNo MyNum = Int (6 * Rnd + 1) DefResp = MsgBox (MyNum & " : Mau coba lagi ?", vbYesNo) Loop
b. While…Wend Perintah ini mirip dengan Do…Loop. Contoh: <TITLE> <SCRIPT LANGUAGE="VBScript">
Dim Counter Counter = 0 While Counter < 10 Counter = Counter + 1 Alert Counter Wend
c. For…Next Loop ini digunakan mengulang blok perintah sebanyak nilai yang diberikan. Contoh:
<script language="VBScript"> dim i for i=1 to 10 document.write(i & " ") next
9. PROCEDURE Procedure adalah sekelompok perintah yang mempunyai nama dan dieksekusi sebagai sebuah perintah. Dalam VBScript ada 2 jenis procedure, yaitu Sub procedure dan Function procedure. Sub procedure diapit oleh pasangan Sub…End Sub seperti pada contoh-contoh sebelumnya. Sedang Function procedure diapit oleh Function…End Function. Contoh:
Konversi Suhu dengan VBScript <script language="vbscript"> Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9 End Function Sub ConvertTemp() temp = InputBox("Masukkan angka suhu dalam satuan Fahrenheit.","Input Suhu" ) MsgBox temp & " derajat Fahrenheit = " & Celsius(temp) & " derajat Celcius." End Sub ConvertTemp()