BELAJAR VBS

Pemrograman VBScript

VBScript atau yang kita kenal adalah VBS adalah bahasa komputer yang dikembangkan oleh Microsoft. Bisa disebut Client Side, yaitu kode scriptnya bisa dilihat langsung oleh user. Sama halnya dengan script HTML dan JavaScript (JS).

Perintah-perintah pada VBScript, dasarnya sama dengan perintah-perintah (syntax) pada bahsa Visual Basic. Hanya saja, untuk VBScript tidak membutuhkan software berat, hanya mengandalkan sebuah Notepad.

Sekarang, saya akan menerangkan tentang perintah-perintah sederhana yang mudah pada VBScript bagi pemula bahkan tidak bisa sama-sekali bahasa pemograman.



1. Variable

Variable (Var) adalah suatu tempat yang kosong untuk diisi suatu nilai yang akan disimpan ke memory untuk digunakan suatu program untuk melakukan suatu operasi.

Contoh :


Dim nama, hobby
nama="Bimo"
hobby="Nulis Blog"

MsgBox "Halo ! Nama saya " & nama & ", hobinya " & hobby

Copy script diatas ke notepad, kemudian save as type-nya diubah menjadi All Files agar file tidak menjadi file .txt . Lihat gambar ini :



Save file namenya dengan nama Variable.vbs
Jalankan filenya, dengan cara mengklik file Variable.vbs yang baru saja disave.

Jika ada kesalahan maka akan tampil message box seperti ini


Jika muncul pesan seperti diatas, cek kembali kesalahan script anda. Dengan cara klik kanan pada file -> Edit


2. Constant
Sama halnya dengan Variable, tapi letak perbedaannya adalah nilai variabel masih bisa diubah sesuai keinginan. Sedangkan Constant (Const) selalu bernilai tetap.

Contoh :


Const nama="Bimo", hobby="Nulis Blog"
MsgBox "Halo ! Nama saya " & nama & ", hobinya " & alamat


Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama Constant.vbs


3. Control
Struktur ini digunakan untuk pengambilan suatu keputusan diantara beberapa kondisi.
Dalam VBS ada 2 macam struktur kontrol, yaitu If dan Select Case

Contoh :


Dim Jika
Jika = InputBox ("Apakah anda memiliki blog ? [Y/N] :")
If UCase(Jika) = "Y" Then
MsgBox "Anda memiliki sebuah blog"
ElseIf UCase(Jika) = "N" Then
MsgBox "Anda tidak memiliki sebuah blog"
Else
MsgBox "Pilihan hanya 'Ya' atau 'Tidak' saja!"
End If


Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama Control.vbs


4. Loop (ulang)
Looping atau perulangan merupakan perintah perulangan dalam suatu proses. Perulangan dalam VBScript antara lain : Do While...Loop , For Next , For Each...Next

Contoh Perulangan Do While...Loop :


Dim ulang, x
Do While x < 3
x = x + 1
If x = 1 then ulang = "hap !"
If x = 2 then ulang = "hip !"
If x = 3 then ulang = "hup !"
MsgBox ulang
Loop


Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama DoWhile.vbs

Contoh Perulangan For Next :


Dim ulang, x
For x = 1 to 3
If x = 1 then ulang = "hap !"
If x = 2 then ulang = "hip !"
If x = 3 then ulang = "hup !"
MsgBox ulang
Next


Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama ForNext.vbs

Contoh Perulangan For Each...Next :


Dim FSO, Drive, LihatDrive
Set FSO=CreateObject("Scripting.FileSystemObject")
For Each Drive In FSO.Drives
LihatDrive = LihatDrive + "Drive " + Drive + "\ "
Next

MsgBox "Drive yang berada di komputer ini adalah, " + LihatDrive


Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama ForEach.vbs


5. Procedure
VBScript ada 2 macam tentang procedure. Yaitu procedure Sub dan procedure Function.

Procedure Sub merupakan kumpulan statement dimulai dari Sub dan diakhiri dengan End Sub. Dapat melakukan tindakan tanpa mengembalikan suatu nilai. Menerima argumen dari suatu panggilan (Call). Pada pemakaiannya harus ditambahkan tanda () .

Contoh procedure Sub() :


Call CobaSub()

Sub CobaSub()
msgbox("Contoh perintah procedure sub")
End Sub


Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama SubProcedure.vbs

Function Sub merupakan kumpulan statement dimulai dari Function dan diakhiri dengan End Function. Dapat melakukan tindakan, juga dapat mengembalikan suatu nilai. Dapat menerima perintah panggilan (Call). Pada pemakaiannya harus ditambahkan tanda ().

Contoh procedure Function() :

Function ContohFunction()
ContohFunction = "Bimo"
end Function

MsgBox("Nama saya " & ContohFunction())

Copy paste dan save script diatas Notepad dengan cara yang sama.
Save file namenya dengan nama FunctionProcedure.vbs


Sekian tutorial sederhana yang saya tulis, lihat baik-baik pada contoh script jika anda akan mengeditnya. Semoga bermanfaat.

Sumber: http://www.blogbimo.tk/2010/05/pemograman-vbscript.html#ixzz1FzD7mpfH