Setvirtualresolution(640,480)
ResetTimer()
//Select two sets of 10 numbers (range -10 to +10)
//With the same RandomSeed for each.
Dim num[2,10]
SetRandomSeed(47)
For i=1 to 10
num[1,i]=RandomSign(Random(0,10))
Next i
SetRandomSeed(47)
For i=1 to 10
num[2,i]=RandomSign(Random(0,10))
Next i
//Display the two sets of results
Repeat
For i=1 to 10
Print("Set "+Str(i)+" numbers are "+Str(num[1,i])+" and "+Str(num[2,i]))
Next i
Sync()
Until Timer()>18
End
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
Setvirtualresolution(640,480) ResetTimer() //Select two sets of 10 numbers (range -10 to +10) //With the same RandomSeed for each. Dim num[2,10] SetRandomSeed(47) For i=1 to 10 num[1,i]=RandomSign(Random(0,10)) Next i SetRandomSeed(47) For i=1 to 10 num[2,i]=RandomSign(Random(0,10)) Next i //Display the two sets of results Repeat For i=1 to 10 Print("Set "+Str(i)+" numbers are "+Str(num[1,i])+" and "+Str(num[2,i])) Next i Sync() Until Timer()>18 End