Karyuu Sub

Langkah masuk ke Microsoft Visual Studio 2010

Langkah selanjutnya buatlah project dengan nama "Kalkulator Sederhana"

Lalu pada project tadi lakukan langkah-langkah berikut :
1.Buat 3 Label dan ganti Text yang ada di Properties masing-masing dengan nama "Masukkan Bilangan 1, Masukkan Bilangan 2, dan Hasil:
2.Tambahkan 3 Text Box dan letakkan dengan rapi dan ganti Name Propertiesnya dengan txt_1, txt_2, dan txt_hasil
3.Lalu tambah 5 Button dan ganti Text masing-masing Button dengan tanda Tambah(+), Kurang(-), Kali(*), Bagi(/), Clear (C)

Selanjutnya ketik kode sederhana berikut pada setiap button, dan jangan lupa klik 2x di Button:
-Pada Button Tambah (+):
Private Sub btn_tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_tambah.Click
        txt_hasil.Text = CInt(txt_1.Text) + CInt(Txt_2.Text)
    End Sub

-Pada Button Kurang(-):
    Private Sub btn_kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_kurang.Click
        txt_hasil.Text = CInt(txt_1.Text) - CInt(Txt_2.Text)
    End Sub

-Pada Button Kali (*):
    Private Sub btn_kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_kali.Click
        txt_hasil.Text = CInt(txt_1.Text) * CInt(Txt_2.Text)
    End Sub

-Pada Button Bagi (/):
    Private Sub btn_bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bagi.Click
        txt_hasil.Text = CInt(txt_1.Text) / CInt(Txt_2.Text)
    End Sub

-Pada Button Clear (C):
    Private Sub btn_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_clear.Click
        txt_1.Text = ""
        Txt_2.Text = ""
        txt_hasil.Text = ""
    End Sub