[Real Basic] Gerar número Randonómico

[Teotónio Ricardo]

[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:

Code Select Expand

 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.

[Teotónio Ricardo]

Para dár carregando em enter clique na editField e coloque o seguinte código:

Code Select Expand

 if key=chr(13) then

dim x as new random

num1.text = str(x.InRange(1,112))

  end if