Script – script sederhana vbscript ( vbs) notepad

Script  sederhana vbscript ini di buat dan diketik menggunakan progam notepad (start - all program - accessories - notepad ) dengan ekstensi *.vbs, script sederhana ini bisa di jadikan acuan pembelajaran awal tentang pemograman VBSCript.

beberapa contoh script sederhana yang di buat menggunakan notepad

1. Kata sapaan menggunakan echoo

Buka notepad.exe (start - all program - accessories - notepad ). kemudian ketik script program dibawah ini

WScript.Echo "hai teman, apa kabar semoga hari mu indah"

Save as sembarang nama dengan ekstensi *.vbs(misal: simple.vbs)

2. Kata sapaan menggunakan dim

Buka kembali notepad lalu ketik script dibawah ini 

Dim MyVar

MyVar = MsgBox ("belajar, dan terus belajar", 65, "contoh pesan")

Save as sembarang nama denga ekstensi *vbs(misal: simple2.vbs)

3. Kata sapaan dengan msgbox
Buka kembali notepad lalu ketik script dibawah ini

msgbox "script ini adalah pesan msgbox"

Simpan sembarang nama denga ekstensi *vbs(misal: simplemsgbox.vbs)

4. Kotak nama

Buka kembali notepad lalu ketik script dibawah ini 

WScript.Echo "apa kabar teman"

Set WshShell = WScript.CreateObject("WScript.Shell")

kotaknama = InputBox("nama teman")

nama = kotaknama

WshShell.Popup "Salam kenal " & nama

WshShell.Popup "dari yopi bebeckh "

WshShell.Popup http://notepadsederhana.blogspot.com/

Save as sembarang nama denga ekstensi *vbs(misal: simple.vbs)

5. Kotak nama dim (variable)
Buka kembali notepad lalu ketik script dibawah ini

Wscript.Echo "tanya nama lagi nih"

Dim V

V = InputBox("nama sp…..?")

MsgBox "Hello, " & VWshShell.Popup http://notepadsederhana.blogspot.com/

Save as sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)

6. Perhitungan umur tahun 2012
Buka kembali notepad lalu ketik script dibawah ini

WScript.Echo "hai kawan apa kabar"

Set WshShell = WScript.CreateObject("WScript.Shell")

tahunlahir = InputBox("kamu lahir tahun berapa")

umur = 2011-tahunlahir

WshShell.Popup "sekarang ini umurmu sekarang " & umur

Save As sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)

7. Perhitungan umur untuk 5 tahun kedepan

Buka kembali notepad lalu ketik script dibawah ini

WScript.Echo "hai "

Set WshShell = WScript.CreateObject("WScript.Shell")

tahunlahir = InputBox("umur sekarang berapa")

umur = 5+tahunlahir

WshShell.Popup "5 tahun lagi umurmu adalah " & umur

Save as sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)

8. Bahasa minang pilih berdasarkan jenis kelamin

Buka kembali notepad lalu ketik script dibawah ini

Dim minang

minang=Inputbox ("bahasa minang untuk, pilih laki-laki, perempuan")

If minang= "laki-laki" Then

msgbox "bahasa minang laki-laki adalah"

msgbox "uda, buyuang, ujang"

Else if minang= "perempuan" Then

msgbox "bahasa mianang perempauan adalah"

msgbox "uni, padusi, upiak"

else

msgbox "pilhan untuk kategori"

msgbox"laki-laki"

msgbox"perempuan"

End If

End If

Kemudian simpan sembarang nama denga ekstensi *vbs(misal: salambebeck.vbs)