BERMAIN NOTEPAD SERU GAN!!!!!

Kali ini saya akan memposting cara sederhana kita untuk bermain notepad.

Mungkin sebagian orang sudah banyak yang mengetahuinya, bagaimana menjadikan notpad mainan yang seru. Jadi saya hanya sekedar ingin berbagi pengetahuan saja.

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)

Catatan: tulisan yang saya beri warna merah dapat kita ganti semaunya.

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)

Catatan: tulisan yang saya beri warna merah dapat kita ganti semaunya

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)

Catatan: tulisan yang saya beri warna merah dapat kita ganti semaunya

4. 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)

 5. 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)

6. 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)