-Register for Learning.
-Read forum rules before register.
-Register for see full topics.
*Active on Forum*

Join the forum, it's quick and easy

-Register for Learning.
-Read forum rules before register.
-Register for see full topics.
*Active on Forum*

Would you like to react to this message? Create an account in a few clicks or log in to continue.

    vBasic - Get Random Number

    Binushacker
    Binushacker
    member
    member


    Jumlah posting : 35
    Reputation : 0
    Join date : 17.05.13

    vBasic - Get Random Number  Empty vBasic - Get Random Number

    Post by Binushacker Thu Aug 28, 2014 5:07 pm

    Buat module baru, namanya bebas, trus copy paste script berikut :


    Code:
    Option Explicit
    Public Declare Function GetTickCount Lib "kernel32.dll" () As Long

    Public Function GetRandomNumber(LowerVal As Long, UpperVal As Long, Optional EnableRepeat As Boolean = False) As Long
    On Error Resume Next
    Static LastRnd As Long
        GetRandomNumber = 1
        If UpperVal < LowerVal Then
              Dim TmpVal As Long
              TmpVal = UpperVal
              UpperVal = LowerVal
              LowerVal = UpperVal
        End If
        If UpperVal - LowerVal < 4 And EnableRepeat = False Then EnableRepeat = True
    MakeRnd:
        Randomize GetTickCount * Timer
        GetRandomNumber = Int((UpperVal - LowerVal + 1) * Rnd + LowerVal)
        If EnableRepeat = False And GetRandomNumber = LastRnd Then GoTo MakeRnd
        LastRnd = GetRandomNumber
    End Function

      Waktu sekarang Fri Mar 29, 2024 1:44 am