Kalkulator sederhana dengan VB.Net

Dari pada ngelamun mikirin pacar, atau ngegalau karena habis bertengkar, buka laptop, Jalankan VB.Net anda, Hajar boss, Lumayan kan, dapat kerjaan,,!? Hehe

Kalau dari kemaren lokasi bermain kita Cuma berkutat di area Windows Explorer.  Nah,!  Untuk postingan kali ini saya ingin mencoba berbagi sedikit ilmu, membuat sebuah program sederhana menggunakan VB.Net. Lumayan sih agak menguras pikiran, mungkin karena uda lama ga praktek kali, ato mungkin karena ga biyasa ya,,,? Heheh

Pertama : buka aplikasi VB.Net anda

Kedua : siapkan komponen dengan komposisi sebagai berikut;

6 buah botton, 3 buah textbox, dan 2 buah groupbox, lebih jelasnya lihat gambar dibawah ini

Untuk scripnya silahkan anda lihat di bawah ini

Public Class Simple_Calculator

    Dim angka1, angka2 As Integer

    Dim hasil As String

    Dim kuadrat As String = 2

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

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        hasil = txthasil.Text

        txthasil.Text = angka1 / angka2.ToString

    End Sub

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

    End Sub

    Private Sub btambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btambah.Click

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        hasil = txthasil.Text

        txthasil.Text = angka1 + angka2.ToString

        txtangka1.Focus()

    End Sub

    Private Sub bkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkurang.Click

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        hasil = txthasil.Text

        txthasil.Text = angka1 - (+angka2).ToString

    End Sub

    Private Sub bkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkali.Click

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        hasil = txthasil.Text

        txthasil.Text = angka1 * angka2.ToString

    End Sub

    Private Sub FileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileToolStripMenuItem.Click

    End Sub

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

        angka1 = txtangka1.Text

        angka2 = txtangka2.Text

        hasil = txthasil.Text

        txthasil.Text = angka1 ^ angka2.ToString

    End Sub

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

        txtangka1.Clear()

        txtangka2.Clear()

        txthasil.Clear()

        txtangka1.Focus()

    End Sub

Download DEMOnya di sini

Sekian dulu postingan kali ini.
semoga bermamfaat bagi pembaca khususnya. Amin,,!

setitik kesalahan yang tak pernah direncanakan akan mengajariku untuk memperbaikinya (Mahfudzainbrother)

Terima Kasih Sudah Berkunjung Di Blog K-Conk

Dilarang Mengcopy-Paste seluruh atau sebagian artikel di atas dalam bentuk apapun. Hak cipta sepenuhnya dipegang oleh K-Conk dan dilindungi oleh Digital Millennium Copyright Act (DMCA). Tindakan Copy-Paste bisa secara otomatis membuat blog/website Anda TERHAPUS DARI INDEX GOOGLE.

Suka artikel ini? Bagikan : Facebook Twitter Google+ Linkedin Technorati Digg

Artikel Terkait :