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 - Memeriksa Apakah Screen Saver Enable

Di bawah ini merupakan fungsi VB6 untuk memeriksa apakah screen saver enable atau disable? enable return true dan jika disable, apalagi jika bukan return false.

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETSCREENSAVEACTIVE = 16

Private Function IsScreenSaverEnable() As Boolean
  Dim bReturn As Boolean
  Dim bActive As Boolean
  Call SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, vbNull, bReturn, 0)
    IsScreenSaverEnable = bReturn
End Function

Contoh penggunaan fungsi untuk memeriksa apakah screen saver enable

Private Sub Command1_Click()
    MsgBox IsScreenSaverEnable
End Sub

READ MORE - VB6 Code - Memeriksa Apakah Screen Saver Enable

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