Free Random Number Generator

• Simplest thing in the world, a little 20KB program
• Should run on any Windows, 95 to present
• Created using Microsoft Visual Basic 6.0
• Will download as "randomnumber.exe" (click here to download)
• Random Number Generator copyright 2003-2007 by Scott Donato Saccenti (http://www.saccenti.com/index.htm).
• No charge, but if you find the program useful and would like to thank me with a small donation, a couple bucks would be appreciated. I can accept donations through a credit card via Paypal. My address for receiving payments is paypal"at"saccenti.com (replace the "at" with the usual symbol...I'm trying to avoid spam by keeping the real address off this web page). Thanks.
  
   

Here is what the program looks like:

To use it, simply input a number in the top box and click "GO!" A random number between 1 and the number you entered on top will appear in the bottom box. You must enter a whole number, between 1 and 32,767.

The Visual Basic source code is:
Option Explicit

Private Sub cmdGo_Click()

On Error GoTo errhandler
If txtInput.Text > 32767 Then
MsgBox "Enter a positive, whole number between 1 and 32,767", vbOKOnly, "Input Error"
ElseIf txtInput.Text < 1 Then
MsgBox "Enter a positive, whole number between 1 and 32,767", vbOKOnly, "Input Error"
End If

Dim i As Integer

i = txtInput.Text
Randomize
txtOutput.Text = Fix(i * Rnd) + 1

Exit Sub

errhandler:
If Err.Number = 11 Or Err.Number = 13 Then
MsgBox "Enter a positive, whole number between 1 and 32,767", vbOKOnly, "Input Error"
End If
Exit Sub


End Sub

Click here to download the free random number generator