VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?

Di bawah ini merupakan fungsi VB6 yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?Option ExplicitPublic Function IsEven(Number As Double) As Boolean IsEven = IIf(Number Mod 2 = 0, True, False)End FunctionContoh...

READ MORE - VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?

VB6 Code - Generate Nomor Secara Unik

Di bawah ini merupakan fungsi VB6 yang berlaku sebagai sebuah generator agar menampilkan nomor secara unik (tidak ada yang sama satu dengan yang lainnya). Adapun kode VB6 untuk melakukannya adalah sebagai berikut:Option ExplicitPrivate Function GenRanUnix(MIN...

READ MORE - VB6 Code - Generate Nomor Secara Unik

VB6 Code - Memperoleh Nilai Maksimal Dari Sebuah Array

Di bawah ini merupakan fungsi VB6 untuk memperoleh nilai maksimal dari sebuah array.Option ExplicitPublic Function MAX(ByRef Number() As Double) As Double Dim iMaxNum As Double Dim i As Integer iMaxNum = Number(LBound(Number)) For i =...

READ MORE - VB6 Code - Memperoleh Nilai Maksimal Dari Sebuah Array

VB6 Code - Memperoleh Nilai Minimal Dari Sebuah Array

Di bawah ini merupakan fungsi VB6 untuk mencari nilai minimal dari sebuah array.Option ExplicitPublic Function MIN(ByRef Number() As Double) As Double Dim iMaxNum As Double iMaxNum = Number(LBound(Number)) Dim i As Integer For i = LBound(Number)...

READ MORE - VB6 Code - Memperoleh Nilai Minimal Dari Sebuah Array

VB6 Code - Memperoleh Nilai Rata-rata Dari Sebuah Array

Di bawah ini merupakan fungsi VB6 untuk memperoleh nilai rata-rata dari sebuah array.Option ExplicitFunction AVERAGE(ByRef Number() As Double) As Double Dim iMaxNum As Double, i As Integer For i = LBound(Number) To UBound(Number) iMaxNum...

READ MORE - VB6 Code - Memperoleh Nilai Rata-rata Dari Sebuah Array

VB6 Code - Konversi Angka Dari Hexa Ke Decimal

Di bawah ini merupakan fungsi VB6 untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya. Adapun kode untuk mengkonversi angka dari hexa ke decimal dan sebaliknya menggunakan VB6 adalah sebagai berikut:Option ExplicitPublic Function DecToHex(DecNumber)...

READ MORE - VB6 Code - Konversi Angka Dari Hexa Ke Decimal