Kalkulator Sederhana Menggunakan Visual Basic

1.      Susunan Control pada Form1

2.      Source Code :

    Public Class Form1

    Dim angka1 As Integer

    Dim angka2 As Integer

    Dim total As Decimal

    Dim op As String

    Sub Hitung(ByVal op)

        Select Case op

            Case "+"

                total = angka1 + angka2

                Hasil.Text = total

            Case "-"

                total = angka1 - angka2

                Hasil.Text = total

            Case "x"

                total = angka1 * angka2

                Hasil.Text = total

            Case "/"

                If angka2 = 0 Then

                    Hasil.Text = "Tidak bisa Dibagi 0"

                Else

                    total = angka1 / angka2

                    Hasil.Text = total

                End If

            Case "^"

                total = angka1 ^ angka2

                Hasil.Text = total

            Case "MOD"

                total = angka1 Mod angka2

                Hasil.Text = total

        End Select

    End Sub

    Private Sub TextBoxAngka1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxAngka1.TextChanged

        angka1 = TextBoxAngka1.Text

    End Sub

    Private Sub TextBoxAngka2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxAngka2.TextChanged

        angka2 = TextBoxAngka2.Text

    End Sub

    Private Sub TombolTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolTambah.Click

        Hitung("+")

    End Sub

    Private Sub TombolKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolKurang.Click

        Hitung("-")

    End Sub

    Private Sub TombolKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolKali.Click

        Hitung("x")

    End Sub

    Private Sub TombolBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolBagi.Click

        Hitung("/")

    End Sub

    Private Sub TombolPangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolPangkat.Click

        Hitung("^")

    End Sub

    Private Sub TombolMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolMod.Click

        Hitung("MOD")

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim rand As New Random

        Hasil.ForeColor = Color.FromArgb(rand.Next(255), rand.Next(255), rand.Next(255))

    End Sub

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

        Timer1.Interval = 1000

        Timer1.Start()

    End Sub

End Class

Penjelasan :

·         Dim angka1 As Integer

Dim Digunakan untuk mendeklarasikan Variable, contoh di atas adalah Variable dengan nama angka2 dengan tipe data Integer(Bilangan)

·         Sub Hitung(ByVal op)

Fungsi Sub digunakan untuk membuat sebuah Function yang di dalamnya berisi prosedur-prosedur untuk proses penjumlahan, pengurangan, perkalian, pembagian dan lain-lain.

(ByVal op ) merupakan variable yang akan di isi bersamaan dengan di panggilnya fungsi Hitung(), nilai dari Variable op akan di gunakan untuk mendefinisikan Select Case apa yang akan di gunakan di dalam prosedur.

·         Private Sub TextBoxAngka1_TextChanged

Syntax TextChanged akan melakukan prosedur yang ada di dalam Sub setiap kali value dari TextBoxAngka1 berubah

·         angka1 = TextBoxAngka1.Text

Prosedur yang dilakukan setiap kali value TextBoxAngka1 berubah, yaitu memberikan nilai pada variable angka1 dengan value dari TextBoxAngka1

·         total = angka1 + angka2

Memberikan nilai pada Variable total dengan nilai dari variable angka1 ditambahkan dengan nilai dari variable angka2

·         Hasil.Text = total

Fungsi ini akan mengganti isi Text dari Textbox Hasil dengan nilai dari variable total

·         Hitung("+")

Memanggil fungsi Hitung() yang telah di buat sebelumnya, dan "+" digunakan untuk mengisi nilai variable op

·         Private Sub TombolTambah_Click

Akan melakukan prosedur jika Button TombolTambah di klik

·         Dim rand As New Random

Mendeklarasikan variable rand dengan tipe data Random yang akan digunakan untuk menampung nilai acak

·         Hasil.ForeColor = Color.FromArgb()

Mengubah warna text dari Textbox Hasi dengan nilai acak

·         Timer1.Interval = 1000

Memberikan nilai Interval (1000 = 1 detik) untuk melakukan Prosedur

·         Timer1.Start()

Memberikan perintah untuk memulai Timer1