Cara Mudah Membuat Kalkulator Dengan Visual Basic 2010

Cara Membuat Kalkulator dengan VB 2010

Kamis, Agustus 06, 2015   Ilmu Komputer , Pemrograman , Visual Basic   6 comments

LAN NETWORKING - 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.