[Dangerous Beef]

Just wanted to share some of the code I'm using on the project I'm working on with you guys because I'm that nice.

A better random system(Love this).

Code

Dim objRandom As New System.Random( _
CType(System.DateTime.Now.Ticks Mod System.Int32.MaxValue, Integer))
    'Link to creators article: http://www.developerfusion.com/code/3940/random-numbers-that-work/
    Public Function GetRandomNumber( _
      Optional ByVal Low As Integer = 1, _
      Optional ByVal High As Integer = 100) As Integer
      ' Returns a random number,
      ' between the optional Low and High parameters
      Return objRandom.Next(Low, High + 1)
    End Function

Usage:

Code

GetRandomNumber(MinVal, MaxVal) 'See Reference #1

Get the average between 2 numbers.

Code

Public Function GetAverage(ByVal val1 As Integer, val2 As Integer)
      Dim input1 As Integer = CInt(val1)
      Dim input2 As Integer = CInt(val2)
      Return (input1 + input2) / 2
    End Function

Usage:

Code

GetAverage(Val1, Val2)

Log system, Requires a Rich text box control. (Useful for debugging.)

Code

Public Sub AddToLog(ByVal TextToInput As String)
      rtb1_Log.Text += TextToInput
      rtb1_Log.Text += vbNewLine 'You can also use environment.Newline for this.
      rtb1_Log.SelectionStart = rtb1_Log.Text.Length 'Set the current caret position at the end
      DebugWindow.rtb1_Log.ScrollToCaret() 'Now scroll it automatically
    End Sub

Usage:

Code

AddToLog("Hello World")

Get percentage between 2 numbers.

Code

'Calculate Percent of the MinVal and the MaxVal
    Public Function GetPercent(ByVal MinVal As Long, ByVal MaxVal As Long) As Integer
      If MinVal >= MaxVal Then
      Return Int(100)
      Else
      Return Int(MinVal / MaxVal * 100 + 0.5)
      End If

    End Function

Usage:

Code

GetPercent(MinVal, MaxVal)

Might add some more if wanted.

[SIM-1847363]

I like the random system the most, but the rest is still good.