MEMBUAT KALKULATOR SEDERHANA DENGAN VB 2010

Setelah pada postingan sebelumnya saya membahas cara membuat aplikasi pertambahan, sekarang kita akanmembuat program kalkulator. Kalkulator yang akan kita buat adalah kalkulator sederhana. Lumayan kita bisa buat aplikasi kalkulator sendiri dan bisa kita pakai untuk menghitung.

Berikut adalah langkah-langkahnya.

1. Pada Start page akan muncul New Project atau alternatif lain klik menubar file > new project

2. Kemudian pada kolom installed template pilih visual basic > windows

3. Lalu pada kolom tengah pilih Windows Forms Application

4. Kemudian pada name dan location silahkan tentukan sendiri, Lalu klik OK

5. Setelah itu kita tempatkan komponen yang kita perlukan

- Kita drag label dan TextBox pada toolbox ke form sebanyak 3 buah, lalu atur properties label di window properties.


Ubah teks Label1 menjadi misalnya Bilangan ke 1 :

Label2 menjadi Bilangan ke 2 :

Label3 menjadi Hasil Perhitungan :

- Lalu drag button pada toolbox ke form sebanyak 20 buah, lalu atur properties button tersebut di window properties.

Ubah teks Button1 menjadi misalnya +

Ubah teks Button2 menjadi misalnya -

Ubah teks Button3 menjadi misalnya *

Ubah teks Button4 menjadi misalnya /

Ubah teks Button5 menjadi misalnya \

Ubah teks Button6 menjadi misalnya Mod

Ubah teks Button7 menjadi misalnya ^

Ubah teks Button8 menjadi misalnya <

Ubah teks Button9 menjadi misalnya >

Ubah teks Button10 menjadi misalnya <=

Ubah teks Button11 menjadi misalnya >=

Ubah teks Button12 menjadi misalnya CON

Ubah teks Button13 menjadi misalnya Sin

Ubah teks Button14 menjadi misalnya Cos

Ubah teks Button15 menjadi misalnya Tan

Ubah teks Button16 menjadi misalnya LogBN

Ubah teks Button17 menjadi misalnya Log

Ubah teks Button18 menjadi misalnya Exp

Ubah teks Button19 menjadi misalnya Sqr

Ubah teks Button20 menjadi misalnya Exit

- Kita juga bisa mengganti nama Titlebar yang secara default form1. Caranya klik form1 di mana saja, lalu ubah text di window properties menjadi misalnya Kalkulator.

- Untuk ubah background color di window properties cari back color, lalu ubah warna sesuai keinginan.



6. Kemudian kita masukkan kode program

- Klik dua kali tombol (+) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)

- Klik dua kali tombol (-) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) - CSng(TextBox2.Text)

- Klik dua kali tombol (*) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) * CSng(TextBox2.Text)

- Klik dua kali tombol (/) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) / CSng(TextBox2.Text)

- Klik dua kali tombol (\) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) \ CSng(TextBox2.Text)

- Klik dua kali tombol (Mod) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) Mod CSng(TextBox2.Text)

- Klik dua kali tombol (^) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) ^ CSng(TextBox2.Text)

- Klik dua kali tombol (<) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) < CSng(TextBox2.Text)

- Klik dua kali tombol (>) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) > CSng(TextBox2.Text)

- Klik dua kali tombol (<=) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) <= CSng(TextBox2.Text)

- Klik dua kali tombol (>=) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) >= CSng(TextBox2.Text)

- Klik dua kali tombol (CON) dan masukkanlah kode program berikut ini.

TextBox3.Text = CSng(TextBox1.Text) & CSng(TextBox2.Text)

- Klik dua kali tombol (Sin) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Sin(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (Cos) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Cos(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (Tan) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Tan(CSng(TextBox1.Text) * 3.1416 / 180)

- Klik dua kali tombol (LogBN) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Log(CSng(TextBox1.Text)) / Math.Log(CSng(TextBox2.Text))

- Klik dua kali tombol (Log) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Log(CSng(TextBox1.Text))

- Klik dua kali tombol (Exp) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Exp(CSng(TextBox1.Text))

- Klik dua kali tombol (Sqr) dan masukkanlah kode program berikut ini.

TextBox3.Text = Math.Sqrt(CSng(TextBox1.Text))

- Klik dua kali tombol (Exit) dan masukkanlah kode program berikut ini.

Close()




7. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / pencet F5



8. Untuk menyimpan project aplikasi caranya klik menu file> Save All.

9. Untuk melihat file .exe program kita caranya cari di folder (D:\.....\Visual Studio 2010\Projects\kalkulator\kalkulator\bin\Debug)