MEMBUAT PROGRAM KALKULATOR WITH VIRTUAL BASIC

Ini Merupakan Program Kalkulator sederhana sobat :

-------SELAMAT MENCOBA-------

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. Atur form seperti dibawah ini : 

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

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

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

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

Mudah Kan??????????