Contoh Script aljabar vbscript Notepad

 Dibuat menggunakan notepad dengan ekstensi vbs

1. Penjumlahan

Option explicit
Dim angka1,angka2,Operation,hasil
angka1= Inputbox (" angka pertama")
angka2= Inputbox ("angka  kedua")
hasil= cdbl (angka1)+cdbl (angka2)
Msgbox "operasi penjumlahan"
Msgbox angka1& "+"& angka2 &"=" & hasil

Saveas dengan ekstensi *.vbs( misal:penjumlahan.vbs)

2. Pengurangan

Option explicit
Dim angka1,angka2,Operation,hasil
angka1= Inputbox (" angka pertama")
angka2= Inputbox ("angka  kedua")
hasil= cdbl (angka1)-cdbl (angka2)
Msgbox "operasi pengurangan"
Msgbox angka1& "-"& angka2 &"=" & hasil

 Saveas dengan ekstensi *.vbs( misal:penjumlahan.vb)

3. penggunaan select case

Option explicit
Dim angka1,angka2, Operation, hasil
angka1= Inputbox (" Enter angka1 value")
angka2= Inputbox ("Enter angka2 value")
Operation= Inputbox ("masukan kode aljabar  +  -  *  /  mod  ^")
Select Case Operation
    Case "+"
            hasil= cdbl (angka1)+cdbl (angka2)
            Msgbox "operasi penjumlahan"
            Msgbox angka1& "+"& angka2 &"=" & hasil
    Case "-"
            hasil= angka1-angka2
            Msgbox "operasi pengurangan"
            Msgbox angka1& "-"& angka2 &"=" & hasil
    Case "*"
             hasil= angka1*angka2
            Msgbox "operasi perkalian"
            Msgbox angka1& "*"& angka2 &"=" & hasil
    Case "/"
             hasil= angka1/angka2
            Msgbox "operasi pembagian"
            Msgbox angka1& "/"& angka2 &"=" & hasil
    Case "mod"
            hasil= angka1 mod angka2
            Msgbox "Hello G.C.Reddangka2"
            Msgbox angka1& "mood"& angka2 &"=" & hasil
    Case "^"
                hasil= angka1^angka2
            Msgbox "akar"
            Msgbox angka1& "^"& angka2 &"=" & hasil
    Case Else
            Msgbox "tak ada masukan"
            msgbox "proses salah"
End Select

 Saveas dengan ekstensi *.vbs( misal:operasi.vbs)

4. operasi bilangan genap

Dim num,n
n=Inputbox ("Enter a Vaule")
For num= 2 to n step 2
msgbox num
Next

Saveas dengan ekstensi *.vbs( misal:operasi.vbs)

5. operasi bilangan ganjil

Dim num,n
n=Inputbox ("Enter a Vaule")
For num= 1 to n step 2
msgbox num
Next

Saveas dengan ekstensi *.vbs( misal:operasi.vbs)

6. operasi bilangan untuk pilihan ganjil genap

Dim num
num=inputbox ("maukan nomor anda")

If num mod 2=0 Then
    msgbox "bilangan genap"
Else
        msgbox "bilangan ganjil"
End If

Saveas dengan ekstensi *.vbs( misal:operasi.vbs)