Fungsi pada VB2010 (bag.3)

Pada bagian ini kita akan belajar mengenai fungsi aritmatika sepertika logaritma, eksponensial, pembulatan bilangan dan lainnya. Fungsi aritmatika ini akan kita implementasikan ke dalam VB 2010 yang telah terdapat pada VB 2010 (built-in)

1. fungsi exponensial
Contoh perhitungan eksponensial yaitu: Exp(1); e=2.71828182
The syntax is Math.Exp (number)
Contoh:
Masukkan 1 buah label, 1 buah textbox dan 1 buah button ke dalam form, kemudian ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2 As Single
        num1 = TextBox1.Text
        num2 = Math.Exp(num1)
        Label1.Text = num2
    End Sub
End Class

2. fungsi fix
Fungsi fix membulatkan bilangan decimal menjadi bilangan bulat positif. Contoh perhitungannya: Fix(9.2)=9  but Fix(-9.4)=9
Contoh:
Masukkan 1 buah label, 1 buah textbox dan 1 buah button ke dalam form, kemudian ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2 As Single
        num1 = TextBox1.Text
        num2 = Fix(num1)
        Label1.Text = num2
    End Sub
End Class

3. fungsi log
Contoh perhitungan logaritma yaitu: Log(10)=2.302585
Contoh:
Masukkan 1 buah label, 1 buah textbox dan 1 buah button ke dalam form, kemudian ketik code berikut:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2 As Single
        num1 = TextBox1.Text
        num2 = Math.Log(num1)
        Label1.Text = num2
    End Sub
End Class

4. fungsi round
Fungsi round membulatkan bilangan decimal. Sebagai contoh: Math.Round (7.2567, 2) =7.26
Contoh:
Masukkan 1 buah label, 1 buah textbox dan 1 buah button ke dalam form, kemudian ketik code berikut:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim num1, num2 As Single
        num1 = TextBox1.Text
        num2 = Math.Round(num1, 2)
        Label1.Text = num2
    End Sub
End Class

untuk mendapatkan file pdf-nya klik download