Membuat Kalkulator dengan Vb.net

Gambar kalkulator sederhana

Pertama kita buka program vb.net yang trinstall di komputer. Setelah itu buat projek baru dengan nama kalkulator. Setelah tampil seperti ini :

kemudian desain seperti ini:

Ganti propertinya seperti pada table :

Tools	Property
Button1	Name=btnon Text=on
Button2	Name=cmd1 Text=1
Button3	Name=cmd2 Text=1
Button4	Name= cmd3 Text=3
Button5	Name= cmd4 Text=4
Button6	Name= cmd5 Text=5
Button7	Name= cmd6 Text=6
Button8	Name= cmd7 Text=7
Button9	Name= cmd8 Text=8
Button10	Name= cmd9 Text=9
Button11	Name= cmdnol Text=0
Button12	Name= cmdtambah Text=+
Button13	Name= cmdkurang Text=-
Button14	Name= cmdkali Text=\
Button15	Name= cmdbagi Text=\
Button16	Name= cmdreset Text=C
Richtextbox1	Name= txttampil Text=””

Isikan coding nya seperti dibawah ini :

Public Class Form1
    Dim nilaipertama As String = ""
    Dim nilaikedua As String = ""
    Dim hasil As Decimal = 0
    Dim tambah As Boolean = False
    Dim kurang As Boolean = False
    Dim kali As Boolean = False
    Dim bagi As Boolean = False
    Dim a As Integer
    Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "1"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "1"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd2.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "2"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "2"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd3.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "3"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "3"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd4.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "4"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "4"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd5.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "5"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "5"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd6.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "6"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "6"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd7.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "7"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "7"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd8.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "8"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "8"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmd9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd9.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "9"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "9"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmdnol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnol.Click
        If tambah = False And kurang = False And bagi = False And kali = False Then
            nilaipertama += "0"
            txttampil.Text = nilaipertama
        Else
            nilaikedua += "0"
            txttampil.Text = nilaikedua
        End If
    End Sub
    Private Sub cmdsamadengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsamadengan.Click
        If tambah = True Then
            hasil = Val(nilaipertama) + Val(nilaikedua)
            nilaipertama = hasil
            nilaikedua = ""
            tambah = False
        ElseIf kurang = True Then
            hasil = Val(nilaipertama) - Val(nilaikedua)
            nilaipertama = hasil
            nilaikedua = ""
            kurang = False
        ElseIf kali = True Then
            hasil = Val(nilaipertama) * Val(nilaikedua)
            nilaipertama = hasil
            nilaikedua = ""
            kali = False
        ElseIf bagi = True Then
            If nilaikedua = "0" Then
                MsgBox("Syntax Error")
                nilaikedua = ""
            Else
                hasil = Val(nilaipertama) / Val(nilaikedua)
                bagi = False

            End If
        End If
        txttampil.Text = hasil
    End Sub
    Private Sub cmdkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkali.Click
        txttampil.Text = ""
        kali = True
    End Sub
    Private Sub cmdbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbagi.Click
        txttampil.Text = ""
        bagi = True
    End Sub
    Private Sub cmdkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkurang.Click
        txttampil.Text = ""
        kurang = True
    End Sub
    Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
        txttampil.Text = ""
        tambah = True
    End Sub
    Private Sub cmdreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdreset.Click
        nilaipertama = ""
        nilaikedua = ""
        txttampil.Text = ""
    End Sub
 
    Private Sub btnon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnon.Click
        a += 1
        If a Mod 2 = 0 Then
            btnon.Text = "OFF"
            btnon.BackColor = Color.YellowGreen
            cmd1.Enabled = True
            cmd2.Enabled = True
            cmd3.Enabled = True
            cmd4.Enabled = True
            cmd5.Enabled = True
            cmd6.Enabled = True
            cmd7.Enabled = True
            cmd8.Enabled = True
            cmd9.Enabled = True
            cmdnol.Enabled = True
            cmdtambah.Enabled = True
            cmdkurang.Enabled = True
            cmdkali.Enabled = True
            cmdbagi.Enabled = True
            cmdsamadengan.Enabled = True
            cmdreset.Enabled = True
        Else
            btnon.Text = "ON"
            btnon.BackColor = Color.Red
            cmd1.Enabled = False
            cmd2.Enabled = False
            cmd3.Enabled = False
            cmd4.Enabled = False
            cmd5.Enabled = False
            cmd6.Enabled = False
            cmd7.Enabled = False
            cmd8.Enabled = False
            cmd9.Enabled = False
            cmdnol.Enabled = False
            cmdtambah.Enabled = False
            cmdkurang.Enabled = False
            cmdkali.Enabled = False
            cmdbagi.Enabled = False
            cmdsamadengan.Enabled = False
            cmdreset.Enabled = False
            txttampil.Text = ""
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a = 1
    End Sub
End Class

Desain sebaik mungkin, Jika dijalankan seperti ini:

Selamat Mencoba