Showing posts with label Math. Show all posts
Showing posts with label Math. Show all posts

Sunday, June 17, 2012

Cara Membulatkan Angka Yang Berada Di belakang Koma

Mengenai cara membulatkan angka yang berada di belakang koma - Adapun cara membulatkan angka di belakang koma adalah sebagai berikut: Text1.Text = Format (0.026, "#0.##")Maka dari kode di atas akan diperoleh 0...
READ MORE - Cara Membulatkan Angka Yang Berada Di belakang Koma

Monday, May 28, 2012

Fungsi Untuk Mengetahui Apakah Ganjil Atau Genap

Di bawah ini merupakan fungsi yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?Option Explicit Public Function IsEven(Number As Double) As Boolean IsEven = IIf(Number Mod 2 = 0, True, False) End Function Sample...
READ MORE - Fungsi Untuk Mengetahui Apakah Ganjil Atau Genap

Fungsi Untuk Memperoleh Nilai Rata-Rata Dari Sebuah Array

Di bawah ini merupakan fungsi untuk memperoleh nilai rata-rata dari sebuah array.Option Explicit Function AVERAGE(ByRef Number() As Double) As Double Dim iMaxNum As Double, i As Integer For i = LBound(Number) To UBound(Number) iMaxNum...
READ MORE - Fungsi Untuk Memperoleh Nilai Rata-Rata Dari Sebuah Array

Fungsi Untuk Memperoleh Nilai Maksimal Dari Sebuah Array

Di bawah ini merupakan fungsi untuk memperoleh nilai maksimal dari sebuah array.Option Explicit Public Function MAX(ByRef Number() As Double) As Double Dim iMaxNum As Double Dim i As Integer iMaxNum = Number(LBound(Number)) For i...
READ MORE - Fungsi Untuk Memperoleh Nilai Maksimal Dari Sebuah Array

Sunday, May 27, 2012

Konversii Angka Dari Hexa ke Decimal dan Sebaliknya

Di bawah ini merupakan fungsi untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya.Option Explicit Public Function DecToHex(DecNumber) DecToHex = Hex(DecNumber) End Function Public Function HexToDec(HexNumber) HexToDec = Val("&H"...
READ MORE - Konversii Angka Dari Hexa ke Decimal dan Sebaliknya