PROBLEMAS CON LABEL
Publicado por Djorkaeff (11 intervenciones) el 26/12/2000 00:00:00
Estoy realizando una pequeña aplicación debida a mis pequeños cono cimientos en que se realizan dos números aleatorios y se muestran en dos label.
Y en un segundo formulario(form2) quiero que muestre un mensaje en el cual diga que label ha sido superior.Pej: El primer numero es 3 y el segundo 5 y quiero que en el segundo formulario aparezca un label que diga el primer numero es mayor que el segundo.
El codigo es el siguiente:
En el command1:
Dim num1 as double
Randomize
num1=rnd
label1.caption=num1
Dim num2 as double
randomize
num2=rnd
label2.caption=num2
En el command2:
form2.show
En el form2:
If num1>num2 then label1.caption="el primer numero es mayor que el segundo"
If num1=num2 then label1.caption="los dos numeros son iguales"
If num1<num2 then label1.caption="el segundo numero es mayor que el primero"
El poblema es que siempre me muestra que "los dos numeros son iguales"
Agradeceré mucho vuestra ayuda
Y en un segundo formulario(form2) quiero que muestre un mensaje en el cual diga que label ha sido superior.Pej: El primer numero es 3 y el segundo 5 y quiero que en el segundo formulario aparezca un label que diga el primer numero es mayor que el segundo.
El codigo es el siguiente:
En el command1:
Dim num1 as double
Randomize
num1=rnd
label1.caption=num1
Dim num2 as double
randomize
num2=rnd
label2.caption=num2
En el command2:
form2.show
En el form2:
If num1>num2 then label1.caption="el primer numero es mayor que el segundo"
If num1=num2 then label1.caption="los dos numeros son iguales"
If num1<num2 then label1.caption="el segundo numero es mayor que el primero"
El poblema es que siempre me muestra que "los dos numeros son iguales"
Agradeceré mucho vuestra ayuda
Valora esta pregunta


0