Random / Rnd()

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

natch

Beginner

Posts: 11

Date of registration: Jul 27th 2009

Monday, November 2nd 2009, 12:44am

I investigated in the Internet as it will produce a random number in the VB6, I found the rnd (), I used the rnd and random, but always it was producing a very big number ' Double ', i wanted that it was producing a whole number...
How to do that in the jabaco?

Go to the top of the page

OlimilO

Intermediate

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

Monday, November 2nd 2009, 10:18am

Hi natch,

the MSDN does help you, read this article:
http://msdn.microsoft.com/en-us/library/f7s023d2(VS.80).aspx
or have a short look:

Jabaco Source

Public Sub Command1_Click()
   
   Dim d As Double
   
   'The Rnd function returns a value less than 1, but greater than or equal to zero
   d = Rnd()
      
   MsgBox CStr(d)
   
End Sub
Public Sub Command2_Click()
   Dim i As Integer
   
   i = randomvalue(50, 100)
   
   MsgBox CStr(i)
   
End Sub
Function randomvalue(lowerbound As Integer, upperbound As Integer) As Integer
   randomvalue  = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))
End Function