Para gerar um número randômico no Handheld Basic (HB++), basta utilizar a função Rnd, como nos exemplos abaixo:

De 1 a 50:

Private Sub Button1_Click()
   Dim numeroRand As Integer
   numeroRand = (50 - 1 + 1) * Rnd() + 1
End Sub

De 50 até 100:

Private Sub Button1_Click()
   Dim numeroRand As Integer
   numeroRand = (100 - 50 + 1) * Rnd() + 50
End Sub

Agradecimentos à Bruno Gatel pelo exemplo de código.

Sobre o Autor

Veja o todos os artigos publicados por Equipe PDAExpert no PDAExpert.

Artigos Relacionados

• Não existem artigos relacionados