I have a subroutine in the Global code section that picks a random number and then uses that as an array index. But the number only seems to be random once. Each time the subroutine is called, the same number is getting used. Here's a snippet.

subroutine show_random_message()
     var array_messages as ARRAY[3] of String
     var text_status as String

     var random_number as Double = @int(random(2)+1)

     array_messages[1] = "Hello!";
     array_messages[2] = "Hi!!";
     array_messages[3] = "Hola!";
     text_status = random_number + array_messages[random_number]
     Label(Status,text_status)


end subroutine

D

Hi I dropped the number of random numbers in the snippet for space purposes. In the actual program there are 10 items in the array.

I added the writeln and the numbers are showing up as the same.

I'm calling the subroutine from an OnElementEntry call. Would that affect anything?

D

Sure, here's the whole thing. The numbers after the decimal are random, but the integer part is always the same after the first time the subroutine is called.
So I'll get 2.088, 2.112, 2.778 etc...and when I restart the app, I'll get 1.988, 1.872,1.324, etc.

subroutine show_random_message()
     var array_messages as ARRAY[10] of String
     var text_status as String

     var random_number as Double
               array_messages[1] = "Hi!";
     array_messages[2] = "Hello!";
     array_messages[3] = "Hola!";
     array_messages[4] = "Bon Jour!";
     array_messages[5] = "Guten Tag?";
     array_messages[6] = "Beinvenue!";
     array_messages[7] = "Hey!";
     array_messages[8] = "Howdy!";
     array_messages[9] = "011011011!";
     array_messages[10] = "Sup!";
     
     random_number = random(9)+1
     writeln(random_number)
     random_number = @int(random_number)
     text_status = array_messages[random_number]
     Label(Status,text_status)
     

end subroutine

Try

Subroutine show_random_message()
Var array_messages as ARRAY[10] of String
Var text_status as String
Var random_number as Double
Var number_options as Int

	array_messages[1] = "Hi!";
	array_messages[2] = "Hello!";
	array_messages[3] = "Hola!";
	array_messages[4] = "Bon Jour!";
	array_messages[5] = "Guten Tag?";
	array_messages[6] = "Beinvenue!";
	array_messages[7] = "Hey!";
	array_messages[8] = "Howdy!";
	array_messages[9] = "011011011!";
	array_messages[10] = "Sup!";

	number_options = 10
	number_options = number_options + 1
	random_number = 0
	While ((random_number < 1) Or (random_number = number_options))
	{
		random_number = random(number_options)
	}
	writeln(random_number)
	random_number = @int(random_number)
	text_status = array_messages[random_number]
	Label(Status,text_status)

End Subroutine 

-Ray

I'm interested in why your computer is producing such unusual results from Random(). If you have a moment, could you run the following code and post the result here. You can paste this code into a single record mass update to run it:

var bb as double
var total as double
var loop as int

  for loop = 1 to 1000
    bb = Random(10)
    total = total + bb
  next
  writeln(total / 1000)
 

Quote:


That code resulted in the following after a few runs
5.07084841
4.94540696
5.00005127
5.08477981
5.04436476
4.99403088

Weird huh?

D