Imprimir Página - Problema programa VB

Título: Problema programa VB
Publicado por: 34Gl3 S1lV3R en 31 Enero 2008, 12:24 pm

Hola chicos, buenas a todos.

Mirar tengo un problema con un programa que me piden, y no se ni por donde cojerlo la verdad... a ver si vosotros podeis echarme una mano.

El programa pide lo siguiente:

Escribe un programa que tome 2 numeros e indique si son enteros introducidos por el usuario mediante el teclado y los escriba en una etiqueta de mayor a menor separados por guiones.

__________________________________

Bien, yo he usado este codigo para hacerlo, pero me piden otra manera mas rapida y con menos codigo de hacer el ejercicio.

Ahi va lo mio(Programando el boton command):

Dim a
Dim b
a = Text1.Text
b = Text2.Text
If Val = Round Then
Label3.Caption = Text1.Text & " es entero"
Else
Label3.Caption = Text1.Text & " no es entero"
End If
If Val = Round Then
Label4.Caption = Text2.Text & " es entero"
Else
Label4.Caption = Text2.Text & " no es entero"
End If
If a > b Then
Label5.Caption = a & " - " & b
Else
Label5.Caption = b & " - "

Gracias de antemano y saludos.

Título: Re: Problema programa VB
Publicado por: cassiani en 31 Enero 2008, 16:30 pm

Citar

Escribe un programa que tome 2 numeros e indique si son enteros introducidos por el usuario mediante el teclado y los escriba en una etiqueta de mayor a menor separados por guiones.

¡Que tal así!

Código:

Private Sub Command1_Click()
   'Indicamos si el valor del tex1 es entero o decimal
   MsgBox IIf(CInt(Val(Text1.Text)) = Val(Text1.Text), "El valor1 Es entero", "El valor1 No es entero")

   'Indicamos si el valor del tex2 es entero o decimal
   MsgBox IIf(CInt(Val(Text2.Text)) = Val(Text2.Text), "El valor2 Es entero", "El valor2 No es entero")

   'Mostramos los números ordenados de mayor a menor
   Label1.Caption = IIf(Val(Text1.Text) > Val(Text2.Text), Text1.Text & " - " & Text2.Text, Text2.Text & " - " & Text1.Text)
End Sub

Os tocara hacer las validaciones usando el evento KeyPress (del textbox ¡claro esta!).

¡S4lu2!

Título: Re: Problema programa VB
Publicado por: Chefito en 31 Enero 2008, 16:47 pm

No se no se. Para saber si un número es entero o decimal hay muchas formas. Supongo que la mas corta es

Código:

dim numero
numero=text1.text
If int(numero)=numero then msgbox "Es entero" else msgbox "No es entero"

Y lo demás yo lo veo bien....más no se puede reducir....como no lo pongas en una sola linea......

Código:

If a > b Then Label5.Caption = a & " - " & b elseif a<b then Label5.Caption = b & " - " & a else label5.caption= a & "=" & b

Saludos.
P.D. C@ss¡@n¡ te ha contestado mientras yo escribia el mensaje.....y después de ver su respuesta (por cierto, muy completa maquina ;)) te puntualizo que es preferible que utilices la función int a la cint, ya que esta ultima convierte el número al tipo integer, con sus limitaciones en su rango númerico (de -32.768 a 32.767) mientras que int acepta un rango bastante superior (creo que tipo double). No he convertido el número ya que pides poco código, y como lo convierte el vb automaticamente pues ala.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: 34Gl3 S1lV3R en 31 Enero 2008, 12:24 pm