Cara Membuat Kalkulator Visual Basic

Hanya sekedar share ilmu aja tentang VB(dot)net.Disini saya akan memberikan rumus dan codingan untuk membuat kalkulator dalam VB.Net.Ini adalah sebagian materi kuliah saya juga workshop maupun kursus.Cukup simple dan tidak bertele-tel, okeyyy saya akan langsung jabarkan dibawah ini.Mari disimak..

Ini dia contoh codingan dasar membuat kalkulator.
Imports WindowsApplication1.Coba.Kalkulator
Public Class Form1
    Dim c As New Coba.Kalkulator

    Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
        Me.LblOperator.Text = Me.btnTambah.Text
        Me.TxtHasil.Text = c.Add(Val(Me.TxtAngka1.Text), Val(Me.TxtAngka2.Text))
    End Sub
    Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKali.Click
        Me.LblOperator.Text = Me.btnKali.Text
        Me.TxtHasil.Text = c.Mult(Val(Me.TxtAngka1.Text), Val(Me.TxtAngka2.Text))
    End Sub
    Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBagi.Click
        Me.LblOperator.Text = Me.btnBagi.Text
        Me.TxtHasil.Text = c.Divide(Val(Me.TxtAngka1.Text), Val(Me.TxtAngka2.Text))
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TxtAngka1.Text = ""
        Me.TxtAngka2.Text = ""
        Me.TxtHasil.Text = ""
        Me.LblOperator.Text = ""
        Me.TxtAngka1.Focus()
    End Sub
    Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKurang.Click
        Me.LblOperator.Text = Me.btnKurang.Text
        Me.TxtHasil.Text = c.Less(Val(Me.TxtAngka1.Text), Val(Me.TxtAngka2.Text))
    End Sub
End Class

Setelah membuat codingan dasarnya, disini kita akan menentukan codingan untuk rumus dibagi, ditambah, dikali, dan dikurang.Disimak baik-baik yah kawan :)
Namespace Coba
    Public Class Kalkulator
        Public Function Add(ByVal a As Integer, ByVal b As Integer) As Integer
            Add = a + b
        End Function
        Public Function Mult(ByVal a As Integer, ByVal b As Integer) As Integer
            Mult = a * b
        End Function
        Public Function Divide(ByVal a As Byte, ByVal b As Byte) As Decimal
            Divide = a / b
        End Function
        Public Function Less(ByVal a As Integer, ByVal b As Integer) As Integer
            Less = a - b
        End Function

    End Class
End Namespace

Selamat mencoba untuk belajar menggunakan kalkulator.Semoga bermanfaat untuk kalian yang ingin belajar nya secara pelan-pelan dan mendasar.

Follow me on Twitter: @deaprantika @nogatasbrig