Tutorial Membuat Program Menghitung Nilai Akar dari Fungsi Kuadrat dengan Visual Basic 2010

Kadangkala kita entah bingung atau malas untuk menghitung  akar dari suatu persamaan kuadrat apalagi kalau konstanta dari varialbelnya besar. Oleh karena itu, kita bisa mengatasinya dengan membuat suatu program untuk mennghitungnya.

Berikut adalah tutorial untuk membuat suatu program aplikasi sederhana untuk menghitung akar dari suatu persamaan kuadrat  dengan menggunakan Visual Basic 2010.

1.       Buka Visual Basic 2010, Pilih “New Project”, lalu pilih “Windows Form Application” dan klik “Oke”

2.       Buat tampilan interface menggunakan toolbox dengan tampilan seperti berikut

3.       Lalu text tiap label, textbox dan combobox diganti, hingga menjadi seperti berikut

4.       Kamu bisa juga menambahkan gambar background agar lebih menarik, seperti

Caranya : pada properties Form1 di bagian “BackgroundImage”, untuk posisinya bisa kamu ubah-ubah pada properties Form1 di bagian “BackgroundImageLayout”

5.       Lalu masukkan listing berikut

Public Class Form1

    Private Sub Button1_mousehover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseHover

        If ComboBox1.Text = "+/-" Or ComboBox2.Text = "+/-" Or ComboBox3.Text = "+/-" Then

            MsgBox("Pilih tanda terlebih dahulu")

            Exit Sub

        ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then

            MsgBox("Masukkan nilai terlebih dahulu")

            Exit Sub

        End If

    End Sub

Keterangan :

·         Listing ini dimaksudkan untuk jika pengguna belum mengisi nilai dan tanda plus minus dengan lengkap maka pada saat kursor pengguna berada di atas tomol “hitung” akan keluar message box yang bertuliskan “Pilih tanda terlebih dahulu”

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim A, B, C, D, X1, X2 As Integer

        A = Val(TextBox1.Text)

        B = Val(TextBox2.Text)

        C = Val(TextBox3.Text)

        If ComboBox1.Text = "-" Then

            A = -1 * Val(TextBox1.Text)

        ElseIf ComboBox2.Text = "-" Then

            B = -1 * Val(TextBox2.Text)

        ElseIf ComboBox3.Text = "-" Then

            C = -1 * Val(TextBox3.Text)

        End If

        D = B ^ 2 - (4 * A * C)

        If D > 0 Then

            X1 = (-B + Math.Sqrt(D)) / 2 * A

            X2 = (-B - Math.Sqrt(D)) / 2 * A

            Label6.Text = X1

            Label7.Text = X2

        ElseIf D = 0 Then

            X1 = -B / (2 * A)

            X2 = -B / (2 * A)

            Label6.Text = X1

            Label7.Text = X2

        Else

            MsgBox("Tidak memiliki akar kuadrat")

        End If

    End Sub

Keterangan :

·         Listing ini digunakan untuk menghitung nilai X1 dan X2 serta menampilkannya jika kita menekan tombol “hitung”

·         Nilai A merupakan nilai dari textbox1, B merupakan nilai dari textbox2 dan C merupakan nilai dari Textbox 3 yang diisikan dari pengguna

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

    End Sub

Keterangan :

·         Listing ini digunakan untuk menutup program jika kita menekan tombol “keluar”

    Private Sub TextBox1_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If Not masukan Then e.Handled = True

    End Sub

Keterangan :

·         Listing ini digunakan agar textbox1 yang akan diisi oleh pengguna hanya bisa diisi dengan angka

    Private Sub TextBox2_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If Not masukan Then e.Handled = True

    End Sub

Keterangan

·         Listing ini digunakan agar textbox2 yang akan diisi oleh pengguna hanya bisa diisi dengan angka

    Private Sub TextBox3_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If Not masukan Then e.Handled = True

    End Sub

Keterangan

·         Listing ini digunakan agar textbox3 yang akan diisi oleh pengguna hanya bisa diisi dengan angka

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        Label6.Text = "......."

        Label7.Text = "......."

        ComboBox1.Text = "+/-"

        ComboBox2.Text = "+/-"

        ComboBox3.Text = "+/-"

    End Sub

Keterangan

·         Listing ini digunakan untuk mengosongkan kembali tiap nilai jika kita menekan tombol “reset”

    Private Sub ComboBox1_Keypress(ByVal sender As System.Object, ByVal e As Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress

        e.Handled = False

    End Sub

Keterangan

·         Listing ini digunakan agar pengguna tidak bisa menuliskan apapun pada combobox1, pengguna hanya bisa memilih item yang ada pada combobox1

    Private Sub ComboBox2_Keypress(ByVal sender As System.Object, ByVal e As Windows.Forms.KeyPressEventArgs) Handles ComboBox2.KeyPress

        e.Handled = False

    End Sub

Keterangan

·         Listing ini digunakan agar pengguna tidak bisa menuliskan apapun pada combobox2, pengguna hanya bisa memilih item yang ada pada combobox2

    Private Sub ComboBox3_Keypress(ByVal sender As System.Object, ByVal e As Windows.Forms.KeyPressEventArgs) Handles ComboBox3.KeyPress

        e.Handled = False

    End Sub

Keterangan

·         Listing ini digunakan agar pengguna tidak bisa menuliskan apapun pada combobox1, pengguna hanya bisa memilih item yang ada pada combobox1

End Class

 Nah, mudah bukan? Kamu juga bisa untuk mendownload programnya disini