14 April 2014

VB.NET: Contoh Project Kalkulator Sederhana


Design UI


Code
Public Class Form1
    Dim Input1 As Integer
    Dim Input2 As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
        txtInput1.Text = 5
        txtInput2.Text = 2
        Input1 = txtInput1.Text
        Input2 = txtInput2.Text
    End Sub

   
Private Sub btnAdd_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnAdd.Click
        lblOutput.Text = Input1 + Input2
    End Sub

   
Private Sub btlSubtract_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btlSubtract.Click
        lblOutput.Text = Input1 - Input2
    End Sub

   
Private Sub btnMultiply_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnMultiply.Click
        lblOutput.Text = Input1 * Input2
    End Sub

   
Private Sub btnDivide_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnDivide.Click
        lblOutput.Text = Input1 / Input2
    End Sub

   
Private Sub btdRDiv_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btdRDiv.Click
        lblOutput.Text = Input1 \ Input2
    End Sub

   
Private Sub btnMod_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnMod.Click
        lblOutput.Text = Input1 Mod Input2
    End Sub

   
Private Sub btnPower_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnPower.Click
        lblOutput.Text = Input1 ^ Input2
    End Sub

End Class


Runtime


Click here if you like this article.


0 comments: