Random / Rnd()

Beginner

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