Membuat Program Kalkulator Sederhana pada VB Net 2008

Pada postingan artikel kali ini, akan membahas tentang bagaimana membuat program kalkulator sederhana VB Net 2008 dan mungkin sangat sederhana menurut saya pribadi karena hanya ada 5 operator matematika yang digunakan yaitu tambah (+), kurang (-), kali (x), bagi (/), dan pangkat (^) .. :-)
Langsung aja kita bahas program VB Net 2008 berikut.

Desain Form :

Buat nama sesuai dengan tulisan merah pada gambar. Kemudian kita masuk ke Coding Program..

Coding Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        hasil.Enabled = False

    End Sub

    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click

        If nilai1.Text = "" Or nilai2.Text = "" Then

            MsgBox("Maaf, nilai belum diinput")

        Else

            hasil.Text = Val(nilai1.Text) + Val(nilai2.Text)

        End If

    End Sub

    Private Sub kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kurang.Click

        If nilai1.Text = "" Or nilai2.Text = "" Then

            MsgBox("Maaf, nilai belum diinput")

        Else

            hasil.Text = Val(nilai1.Text) - Val(nilai2.Text)

        End If

    End Sub

    Private Sub bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bagi.Click

        If nilai1.Text = "" Or nilai2.Text = "" Then

            MsgBox("Maaf, nilai belum diinput")

        Else

            hasil.Text = Val(nilai1.Text) / Val(nilai2.Text)

        End If

    End Sub

    Private Sub kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kali.Click

        If nilai1.Text = "" Or nilai2.Text = "" Then

            MsgBox("Maaf, nilai belum diinput")

        Else

            hasil.Text = Val(nilai1.Text) * Val(nilai2.Text)

        End If

    End Sub

    Private Sub pangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat.Click

        If nilai1.Text = "" Or nilai2.Text = "" Then

            MsgBox("Maaf, nilai belum diinput")

        Else

            hasil.Text = Val(nilai1.Text) ^ Val(nilai2.Text)

        End If

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        nilai1.Text = ""

        nilai2.Text = ""

        hasil.Text = ""

    End Sub

End Class

Sekian untuk artikel kali ini tentang Visual Basic 2008 atau VB Net 2008 dengan Judul Membuat Program Kalkulator Sederhana pada VB Net 2008.
Baca juga artikel lain tentang Visual Basic Net 2008

Semoga bermanfaat..!! :-)
Salam Programmer..