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 Explicit

Public Function IsEven(Number As Double) As Boolean
    IsEven = IIf(Number Mod 2 = 0, True, False)
End Function

Contoh penggunakan kode VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsEven(20) 'return true
End Sub

Private Sub Command1_Click()
    MsgBox IsEven(21) 'return false
End Sub

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 Explicit

Private Function GenRanUnix(MIN As Integer, MAX As Integer) As Collection

    Dim iMax As Integer
    Dim iRan As Integer
    Dim g As Integer
    Dim y As Integer
    Dim c As New Collection
    Dim k As New Collection
    Dim f As Integer
    Dim x As Integer
    
    For f = MIN To MAX
        c.Add f
    Next
    
    y = c.Count
    Randomize
    
    For x = 1 To y
        g = Int(y * Rnd + 1)
        k.Add c.Item(g)
        c.Remove g
        y = c.Count
    Next
    
    Set GenRanUnix = k
 
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim b As New Collection
    Dim i As Integer
    Dim msg As String
     List1.Clear
    Set b = GenRanUnix(0, 100)
    For i = 1 To b.Count
        List1.AddItem b.Item(i)
    Next
End Sub

Demikian mengenai cara membuat fungsi VB6 untuk men-generate nomor secara unik.

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 Explicit

Public Function MAX(ByRef Number() As Double) As Double
    Dim iMaxNum As Double
    Dim i As Integer
    iMaxNum = Number(LBound(Number))
        For i = LBound(Number) To UBound(Number)
            If Number(i) > iMaxNum Then
                iMaxNum = Number(i)
            Else
                iMaxNum = iMaxNum
            End If
        Next i
    MAX = iMaxNum
End Function

Contoh penggunaan fungsi untuk memperoleh nilai maksimal dari sebuah array

Private Sub Command1_Click()
    Dim iArray(3) As Double
    iArray(0) = 588
    iArray(1) = 67
    iArray(2) = 66
    iArray(3) = 4
    MsgBox "The max number is: " & MAX(iArray)
End Sub

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 Explicit

Public Function MIN(ByRef Number() As Double) As Double
    Dim iMaxNum As Double
    iMaxNum = Number(LBound(Number))
    Dim i As Integer
    For i = LBound(Number) To UBound(Number)
        If Number(i) < iMaxNum Then
            iMaxNum = Number(i)
        Else
            iMaxNum = iMaxNum
        End If
    Next i
    MIN = iMaxNum
End Function

Contoh fungsi untuk memperoleh nilai minimal dari sebuah array

Private Sub Command1_Click()
    Dim iArray(3) As Double
    iArray(0) = 588
    iArray(1) = 67
    iArray(2) = 66
    iArray(3) = 4
    MsgBox "The min number is: " & MIN(iArray)
End Sub

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 Explicit

Function AVERAGE(ByRef Number() As Double) As Double
    Dim iMaxNum As Double, i As Integer
    For i = LBound(Number) To UBound(Number)
        iMaxNum = iMaxNum + Number(i)
    Next i
    AVERAGE = iMaxNum / (UBound(Number) + 1)
End Function

Contoh penggunaan fungsi untuk memperoleh nilai rata-rata dari sebuah array

Private Sub Command1_Click()
    Dim iArray(3) As Double
    iArray(0) = 588
    iArray(1) = 67
    iArray(2) = 66
    iArray(3) = 4
    MsgBox "The Average is: " & AVERAGE(iArray)
End Sub

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 Explicit

Public Function DecToHex(DecNumber)
   DecToHex = Hex(DecNumber)
End Function

Public Function HexToDec(HexNumber)
   HexToDec = Val("&H" & HexNumber)
End Function

Contoh penggunaan Konversi angka dari decimal ke hexa

Private Sub Form_Load()
   MsgBox DecToHex(120000)
End Sub

Contoh penggunaan konversi angka dari hexa ke decimal

Private Sub Form_Load()
   MsgBox HexToDec(120000)
End Sub

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