[Real Basic] Gerar número Randonómico
Crie uma EditField chamada num1, e crie um BevelButton com o titulo de \\"Gerar Número\\" ou algo parecido.
Clique duas vezes no BevelButton e adicione o seguinte código:
dim r as New random
num1.text = str(r.InRange(1,10))
Explicando:
dim r as New random > Declaramos a variavel r como um novo numero randonómico
num1.text = str(r.InRange(1,10)) > Dizemos que a EditField é a variável r, que é um número randonómico de 1 a 10.
Espero que vos seja util.