Coding Kalkulator

Private Sub CmdBagi_Click()

Text3.Text = Text1.Text / Tex2.Text

End Sub

Private Sub CmdHapus_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

Private Sub CmdInt_Click()

Text3.Text = Text1.Text \ Text2.Text

End Sub

Private Sub CmdKali_Click()

Text3.Text = Text1.Text * Text2.Text

End Sub

Private Sub CmdMod_Click()

Text3.Text = Text1.Text Mod Text2.Text

End Sub

Private Sub CmdPangkat_Click()

Text3.Text = Text1.Text ^ Text2.Text

End Sub

Private Sub CmdPlus_Click()

Text3.Text = Text1.Text + Text2.Text

End Sub

Private Sub CmdSelesai_Click()

End

End Sub