Cara Membuat Kalkulator dengan VB.net

Kali ini saya akan memposting tentang membuat kalkulator dengan VB.net / Visual Studio 2010.

Langkah - langkah membuat Calculator dengan VB.net :

1. Buka Microsoft Visual Studio 2010

2. Pilih New Project->Windows Form Application

3. Buat 20 buah Button dan 1 buah Textbox pada Form

4. Edit Text property pada tiap Button sehingga tampilan seperti gambar dibawah.

 5. Double klik pada form lalu masukkan kode berikut :

   Public Class Form1

             Dim operand1 As Double

        Dim [operator] As String

        Dim baru As Boolean = True

        Dim temp As Double

        Dim operand2 As Double

6. Double klik pada button 0 ketikkan kode

   Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click, Button11.Click, Button12.Click, Button6.Click, Button7.Click, Button8.Click, Button1.Click, Button2.Click, Button3.Click, Button10.Click

        TextBox1.Text = TextBox1.Text & sender.text

    End Sub

7. Masukkan kode berikut pada button Tambah

   Private Sub Buttom9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If baru() = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = "+"

        ElseIf baru() = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "+"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "+"

            End If

        End If

        baru = False

    End Sub

8. Masukkan Kode Berikut Pada Button Kurang

Private Sub Buttom14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        If baru() = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = "-"

        ElseIf baru() = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "-"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "-"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "-"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "-"

            End If

        End If

        baru = False

    End Sub

9. Kode Berikut pada button Kali

   Private Sub Buttom19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

        If baru() = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = "x"

        ElseIf baru() = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "x"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "x"

            ElseIf [operator] = ";" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "x"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = "x"

            End If

        End If

        baru = False

    End Sub

10. Kode Berikut Pada button Bagi

     Private Sub Buttom4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If baru() = True Then

            operand1 = Val(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

            [operator] = ":"

        ElseIf baru() = False Then

            If [operator] = "+" Then

                temp = operand1 + Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = ":"

            ElseIf [operator] = "-" Then

                temp = operand1 - Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = ":"

            ElseIf [operator] = "x" Then

                temp = operand1 * Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = ":"

            ElseIf [operator] = ":" Then

                temp = operand1 / Val(TextBox1.Text)

                operand1 = temp()

                TextBox1.Text = ""

                [operator] = ":"

            End If

        End If

        baru = False

    End Sub

11. Kode berikut pada button hasil

     Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

        Dim hasil As Double

        operand2 = Val(TextBox1.Text)

        Select Case [operator]

            Case "+"

                hasil = operand1 + operand2

                TextBox1.Text = hasil.ToString

                baru = True

            Case "-"

                hasil = operand1 - operand2

                TextBox1.Text = hasil.ToString

            Case ":"

                hasil = operand1 / operand2

                TextBox1.Text = hasil.ToString

            Case "x"

                hasil = operand1 * operand2

                TextBox1.Text = hasil.ToString

                baru = True

        End Select

        TextBox1.Text = hasil.ToString

    End Sub

12. Kode berikut pada button titik

Private Sub Buttom17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If InStr(TextBox1.Text, ".") > 0 Then

            Exit Sub

        Else

            TextBox1.Text = TextBox1.Text & "."

        End If

    End Sub

13. Kode berikut pada button Clear

        Private Sub Buttom5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text = ""

        operand1 = 0

        temp = 0

        baru = True

    End Sub

14.  Pada button Pangkat

          Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        If TextBox1.Text = "" Or TextBox1.Text = "" Then

            MsgBox("Maaf, nilai belum diinput")

        Else

            TextBox1.Text = Val(TextBox1.Text) * Val(TextBox1.Text)

        End If

    End Sub

15. Terakhir kode pada button Decimal

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        Dim convert As Single

        If TextBox1.Text <> 0 Then

            convert = 1 / Val(TextBox1.Text)

            TextBox1.Text = convert

        End If

    End Sub

Contoh gambar Coding :

14. Click Start Debugging dan lihat hasilnya