Calculator dari Notepad

Posted by : Unknown 9 Des 2011

Ga percaya? coba aja!!
Dibuat menggunakan notepad dengan ekstensi vbs (visual basic script)

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 "pangkat"
Msgbox angka1& "^"& angka2 &"=" & hasil
Case Else
Msgbox "tak ada masukan"
msgbox "proses salah"
End Select