Kode Program Kalkulator

Public Class kalkukator

    Private Sub btnpangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpangkat.Click
        txthasil.Text = txtbil1.Text ^ txtbil2.Text
    End Sub

    Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
        txthasil.Text = txtbil1.Text * txtbil2.Text
    End Sub

    Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
        txthasil.Text = txtbil1.Text / txtbil2.Text

    End Sub

    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
        txthasil.Text = Val(txtbil1.Text) + txtbil2.Text
    End Sub

    Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click
        txthasil.Text = txtbil1.Text - txtbil2.Text

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        txtbil1.Clear()
        txtbil2.Clear()
        txthasil.Clear()

    End Sub

    Private Sub btntutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup.Click
        Me.Close()

    End Sub
End Class