Membuat Kalkulator Sederhana Menggunakan Visual Basic 2010

Sobat Kali ini Kita akan membaut program kalkulator sederhana dengan menggunakan program visual studio 2010, didalam kalkulator sederhana ini terdapat operasi angka yaitu penjumlahan ,pengurangan,perkalian,pembagian, dan pangkat. Untuk lebih jelasnya berikut adalah cara pembuatan kalkulator sederhana tersebut :

1. Bukalah program visual basic 2010

2. Setelah jendela visual basic terbuka, makan pilih file-new project-windows forms application pada menu tab seperti gambar dibawah ini :

3.  Setelah itu akan muncul from 1, kita dapat mengubah nama form 1 dengan cara mengubahnya  pada properties, kemudian kita beri nama “kalkulator”. Setelah itu untuk menambahkan tombol-tombol operasi dan juga input angka pada kalkulator yang akan kita buat, kita dapat menambahkan textbox untuk kotak masuka angka dan menggunakan button untuk tombol-tombol angka dan pengoperasian pada kalkulator.

4. Textbox dan button diatur seperti berikut :

5. Cara agar tampilan sperti diatas adalah :

Kita drag textbox pada toolbox ke form sebanyak 3 buah, lalu diatur properties label window properties.

Lalu drag button sebanyak 7 buah,lalu atur properties button tersebut di window properties.

# Ubah teks button 1 menjadi tambah

# Ubah teks button 2 menjadi kurang

# Ubah teks button 3 menjadi kali

# Ubah teks button 4 menjadi bagi

# Ubah teks button 5 menjadi bersihkan

# Ubah teks button 6 menjadi keluar

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

7. Jika design form sudah selesai kita tinggal masukkan kode programnya,berikut adalah tampilannya:

Syntac Code :

Public Class Form1

    Dim Nilai1, Nilai2, Hasil As Double

    Dim sharedoperator As String

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "1"

        Else : TextBox1.Text = TextBox1.Text & "1"

        End If

    End Sub

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "2"

        Else : TextBox1.Text = TextBox1.Text & "2"

        End If

    End Sub

    

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "3"

        Else : TextBox1.Text = TextBox1.Text & "3"

        End If

    End Sub

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "4"

        Else : TextBox1.Text = TextBox1.Text & "4"

        End If

    End Sub

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "5"

        Else : TextBox1.Text = TextBox1.Text & "5"

        End If

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If TextBox1.Text = "0" Then

            TextBox1.Text = "6"

        Else : TextBox1.Text = TextBox1.Text & "6"

        End If

    End Sub

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "7"

        Else : TextBox1.Text = TextBox1.Text & "7"

        End If

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If TextBox1.Text = "0" Then

            TextBox1.Text = "8"

        Else : TextBox1.Text = TextBox1.Text & "8"

        End If

    End Sub

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "9"

        Else : TextBox1.Text = TextBox1.Text & "9"

        End If

    End Sub

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

        If TextBox1.Text = "0" Then

            TextBox1.Text = "0"

        Else : TextBox1.Text = TextBox1.Text & "0"

        End If

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        Nilai1 = Val(TextBox1.Text)

        sharedoperator = "+"

        TextBox1.Text = ""

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        Nilai1 = Val(TextBox1.Text)

        sharedoperator = "-"

        TextBox1.Text = ""

    End Sub

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

        Nilai1 = Val(TextBox1.Text)

        sharedoperator = "/"

        TextBox1.Text = ""

    End Sub

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

        Nilai1 = Val(TextBox1.Text)

        sharedoperator = "*"

        TextBox1.Text = ""

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

        TextBox1.Text = ""

        Nilai1 = "0"

        sharedoperator = ""

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        TextBox1.Text = "+/-" & Val(TextBox1.Text)

    End Sub

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

        If sharedoperator = "+" Then

            Hasil = Nilai1 + Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf sharedoperator = "-" Then

            Hasil = Nilai1 - Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf sharedoperator = "*" Then

            Hasil = Nilai1 * Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf sharedoperator = "/" Then

            Hasil = Nilai1 / Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf sharedoperator = "^" Then

            Hasil = Nilai1 ^ Val(TextBox1.Text)

            TextBox1.Text = Hasil

        ElseIf sharedoperator = "sqrt" Then

            Hasil = Nilai1 ^ 0.5

            TextBox1.Text = Hasil

        End If

    End Sub

End Class

8. Kemudian kita uji program ,apakah berjalan dengan baik atau tidak, caranya klik menu debug-start debugging atau tekan F5. Berikut adalah tampilan kalkulator sederhananya :

Terima kasih Telah Mengunjungi Blok Keke, Semoga sobat berhasil dan mengusai Visual Basic Juga :)