Sgn

' gambas class file

' by postapase

Public Sub Button1_Click()
Dim num As Integer

Randomize

num = Rnd(-1000, 1000) 'Rnd elige un numero aleatorio entre -1000 y 1000
'y lo guarda en la variable de tipo integer num

If Sgn(num) = 1 Then 'Sgn analiza el dato integer o numerico dentro de num
'y devuele 1 si el número es positivo o si es negativo devuelve -1
TextArea1.Text &= "El número " & num & " es un número positivo ( " & Sgn(num) & " )" & gb.NewLine
Else
TextArea1.Text &= "El número " & num & " es un número negativo ( " & Sgn(num) & " )" & gb.NewLine
Endif

End