KALKULATOR

KALKULATOR

OBJEK	TEXT	NAME
Label1	Operasi matematika	Label1
Label2	Bilangan1	Label2
Label3	Bilangan2	Label3
Label4	Hasil	Label4
Label5	Operator	Label5
Checkbox1		txtB1
Checkbox2		txtB2
Checkbox3		Txth
Button1	^	Btnpangkat
Button2	*	Btnkali
Button3	/	Btnbagi
Button4	+	Btntambah
Button5	-	Btnkurang
Button6	Bersih	Btnbersih
Button7	Tutup	btntutup

                                                                                                                                         

Public Class KALKULATOR

    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.Text = ""

        txtbil2.Text = ""

        txthasil.Text = ""

    End Sub

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

        End

    End Sub

End Class