Operasi Perhitungan VB.NET

Private Sub Bt_clear_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End
End Sub
Private Sub Bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Bt_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Call Bersihkanobjek()
End Sub
Public Class Form1_function
    Private Function Akar(ByVal A As Decimal) As String
        Return Math.Sqrt(A)
    End Function

    Private Function pangkat(ByVal A As Decimal, ByVal B As Decimal) As String
        Return A ^ B
    End Function
    Private Function pembagian(ByVal A As Decimal, ByVal B As Decimal) As String
        Return A / B
    End Function
    Private Function perkalian(ByVal A As Decimal, ByVal B As Decimal) As String
        Return A * B
    End Function
    Private Function penjumlahan(ByVal A As Decimal, ByVal B As Decimal) As String
        Return A + B
    End Function
    Private Function pengurangan(ByVal A As Decimal, ByVal B As Decimal) As String
        Return A - B
    End Function

    Private Sub Bt_hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_hitung.Click
        If RB_akar_kuadrat.Checked = True Then
            T_Hasil.Text = Akar(T_Bil_A.Text)
        ElseIf RB_pangkat.Checked = True Then
            T_Hasil.Text = pangkat(T_Bil_A.Text, T_Bil_B.Text)
        ElseIf RB_penjumlahan.Checked = True Then
            T_Hasil.Text = pembagian(T_Bil_A.Text, T_Bil_B.Text)
        ElseIf RB_perkalian.Checked = True Then
            T_Hasil.Text = perkalian(T_Bil_A.Text, T_Bil_B.Text)
        ElseIf RB_penjumlahan.Checked = True Then
            T_Hasil.Text = penjumlahan(T_Bil_A.Text, T_Bil_B.Text)
        ElseIf RB_pengurangan.Checked = True Then
            T_Hasil.Text = pengurangan(T_Bil_A.Text, T_Bil_B.Text)


        End If
    End Sub

    Private Sub Bersihkanobjek()
        T_Bil_A.Text = ""
        T_Bil_B.Text = ""
        T_Hasil.Text = ""
    End Sub
    Private Sub Bt_clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Call Bersihkanobjek()
    End Sub
    Private Sub Bt_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End
    End Sub

Postingan terkait:

Ditulis Yuzda — Friday, December 7, 2012 — Add Comment