Kalkulator Sederhana Menggunakan VB.Net

ok... ini adalah project iseng-iseng... hehe...

tapi siapa tau ini juga bisa membantu...

kali ini gw ngebuat kalkulator sederhana atau bisa dibilang sangat sederhana,,

dengan menggunakan VB2005 Express Edition (.Net) memang sih masih banyak banget kesalahan... 

tapi lumayanlah... hehe...

udah gak usah banyak intro...

ini nih penampakannya... and whaaalaaa...

dan di bawah ini adalah penampakan listing programnya :

''=================================================================

Public Class Form1

    Dim hasil As Integer
    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 hallo(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles btn1.Click, btn2.Click, btn3.Click, btn6.Click, btn5.Click, btn4.Click, btn9.Click, btn8.Click, btn7.Click, btn0.Click

        If TextBox1.Text = "0" Then
            TextBox1.Clear()
        End If

        If TextBox1.Text = "+" Then TextBox1.Clear()
        If TextBox1.Text = "-" Then TextBox1.Clear()
        If TextBox1.Text = "*" Then TextBox1.Clear()
        If TextBox1.Text = "/" Then TextBox1.Clear()


        TextBox1.Text = TextBox1.Text + sender.text


        txtsimpen1.Text = TextBox1.Text
    End Sub


    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        TextBox1.Text = "0"
        balikin()
    End Sub

 
    Private Sub btnBackspace_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackspace.Click
        Dim st As String = TextBox1.Text
        If TextBox1.Text = (st.Length = 1) Or TextBox1.Text = (st.Length = 0) Then
            TextBox1.Text = "0"
        Else
            TextBox1.Text = st.Remove((st.Length - 1), 1)
        End If

    End Sub

    Private Sub btnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKali.Click
        manipulasi(sender, e)
        kali = True
        proses()
    End Sub

    Private Sub btnhasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHasil.Click
        proses()
        TextBox1.Text = hasil
        balikin()
    End Sub


    Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click
        manipulasi(sender, e)
        tambah = True
        proses()

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsimpen1.TextChanged

    End Sub

    Private Sub btnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBagi.Click
        manipulasi(sender, e)
        bagi = True
        proses()
    End Sub

    Private Sub btnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKurang.Click
        manipulasi(sender, e)
        kurang = True
        proses()
    End Sub

    Sub proses()
        If tambah = True Then hasil = Val(txtsimpen2.Text) + Val(txtsimpen1.Text)
        If kurang = True Then hasil = Val(txtsimpen2.Text) - Val(txtsimpen1.Text)
        If kali = True Then
            If Not txtsimpen2.Text = "0" And Not txtsimpen1.Text = "0" Then
                hasil = Val(txtsimpen2.Text) * Val(txtsimpen1.Text)
            End If
            If txtsimpen1.Text = "0" Then
                hasil = 0
            End If
        End If
        If bagi = True Then
            If Not txtsimpen2.Text = "0" And Not txtsimpen1.Text = "0" Then
                hasil = Val(txtsimpen2.Text) / Val(txtsimpen1.Text)
            End If


        End If


    End Sub

    Sub balikin()
        txtsimpen1.Text = "0"
        txtsimpen2.Text = "0"
        tambah = False
        kurang = False
        kali = False
        bagi = False
    End Sub

    Sub manipulasi(ByVal sender As System.Object, ByVal e As System.EventArgs)

        txtsimpen1.Text = TextBox1.Text
        If TextBox1.Text = "+" Then TextBox1.Clear()
        If TextBox1.Text = "-" Then TextBox1.Clear()
        If TextBox1.Text = "*" Then TextBox1.Clear()
        If TextBox1.Text = "/" Then TextBox1.Clear()
        txtsimpen2.Text = txtsimpen1.Text
        TextBox1.Clear()
        hallo(sender, e)
        txtsimpen1.Text = "0"

     

    End Sub
End Class

''====================================================================

Gimana gan..?? puas..? haha...
pelan-pelan ya bacanya supaya gak keselek... hehe...

oiya,, yg harus diketahui,, sebenernya gw menggunakan 3buah 'textbox' yang pertama untuk menampilkan hasil (yg keliatan gede di gambar) nah yg 2nya lagi gw bikin Goib (visible=false), fungsi dari yang 2 ini untuk menyimpan sementara nilai-nilai yg ingin diproses yg selanjutnya setelah diproses(tambah, kurang, kali, bagi) baru hasilnya ditampilkan di Textbox yang pertama...

kekurangan pada program yg gw buat adalah:
1. setiap operasi (tambah, kurang, bagi, kali) harus diakhiri dengan ' = '
2. angka yg bisa digunakan di program gw ini cuma sepanjang type data Integer,, jadi gak bisa lebih...

udah ah... capek... caww dulu ya sobb...