Cara Membuat Aplikasi Menghitung Akar Persamaan Kuadrat dengan VB 2010

Ilmu Konik Saputra - Kesempatan kali ini saya akan menjelaskan cara membuat aplikasi untuk menghitung akar persamaan kuadrat yang dimasukkan oleh pengguna program. Inputan berupa nilai a, b, dan c. Kemudian hasil dari akar persamaan kuadrat (x1 dan x2) tersebut akan ditampilkan kepada pengguna.

Berikut adalah langkah-langkahnya. Untuk membuat sebuah aplikasi baru kita bisa memulai.

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 5 buah, lalu atur properties label di window properties.

Ubah teks Label1 menjadi misalnya Nilai a :

Label2 menjadi Nilai b :

Label3 menjadi Nilai c :

Label4 menjadi Akar pertama (x1) :

Label5 menjadi Akar kedua (x2) :

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

Ubah teks Button1 menjadi misalnya &Hitung (& untuk perintah alternatif keyboard, disini berarti alt+H)

Ubah teks  Button2 menjadi misalnya &Exit (& untuk perintah alternatif keyboard, disini berarti alt+E)

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

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

6. Kemudian kita masukkan kode program

- untuk memasukkan kode program tombol hitung, klik dua kali tombol hitung. Maka akan keluar window baru untuk memasukkan kode program tombol hitung. Kodenya adalah seperti ini.

Dim var_a, var_b, var_c, var_D, var_x1, var_x2 As Single

        var_a = TextBox1.Text

        var_b = TextBox2.Text

        var_c = TextBox3.Text

        var_D = var_b ^ 2 - (4 * var_a * var_c)

        If var_D > 0 Then

            var_x1 = (-var_b + Math.Sqrt(var_D)) / 2 * var_a

            var_x2 = (-var_b - Math.Sqrt(var_D)) / 2 * var_a

            TextBox4.Text = var_x1

            TextBox5.Text = var_x2

        ElseIf var_D = 0 Then

            var_x1 = -var_b / 2 * var_a

            var_x2 = -var_b / 2 * var_a

            TextBox4.Text = var_x1

            TextBox5.Text = var_x2

        Else

            TextBox4.Text = "Akar tidak real"

            TextBox5.Text = "Akar tidak real"

- untuk memasukkan kode program tombol Exit, klik dua kali tombol Exit. Maka akan keluar window baru untuk memasukkan kode program tombol Exit. Kodenya adalah seperti 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\akarpersamaankuadrat\akarpersamaankuadrat\bin\Debug)