problema (Sintaxis If, Mod e InputBox)

[chipbios]

me pone en bloque if sin end if      pero yo      tengo el end if puesto      porque me pasa esto?

[Punk-Rock]

pon el kode para verlo....

Salu2

Hendrix

[chipbios]

vamos a ver si me acuerdo es un code pa aprender

en una texbox:

Código:

if 2 then
objec msgbox = 2 es par
end if
end sub

creo que era asi nose  lo vi por internet

[Punk-Rock]

esto es imposible, no se puede hacer asi....

Tiene ke ser asi:

If alguna cosa = otra kosa then
bla bla bla bla
End If

Traducido al lenguja humano:

Si alguna kosa es = a otra kosa entonces
bla bla bla
End If

El kode ke tu as puesto es:

If alguna kosa Then
bla bla bla
End If

Traducido al lenguaje humano:

Si alguna kosa entonces
bla bla bla
End If

Espero ke lo hayas entendido...

Salu2

Hendrix

[chipbios]

mas o menos y como se haria para que al poner el numero te digera si es para o impar?

[Punk-Rock]

jejeje pos no lo se, no lo e echo nunka....pero a esto se lo tienes ke indikar al VB, el no sabe si es par o impar un numero.....alo mjor se piede mediante alguna funcion o alguna API....

Salu2

Hendrix

[ranefi]

mas o menos y como se haria para que al poner el numero te digera si es para o impar?

Hola chipbios, buen día. Mira, no entiendo lo que necesitas hacer,     ¿podrías especificar un poco más lo que necesitas para poder ayudarte pelao? Si te es posible publica el código fuente de tu programa. Nos vemos.

[FemBr]

Private Sub Form_Load()
este codigo espero que te sirva no necesita nada solo un form pues claro    ¡    ¡    ¡    ¡    ¡

a = InputBox("REPLACEa el numero")
If a Mod 2 = 0 Then
MsgBox "el numero es par"
Else
MsgBox "el numero es impar"
End If
End
End Sub

[chipbios]

gracias  eso es lo que buscaba pero que es eso de

Código:

If a Mod 2 = 0 Then

[M_BuRNeD]

No se puede modificar las caracteristica s del InputBox??Eske no concuerda nada kon lo ke estoy aciendo

[ranefi]

No se puede modificar las caracteristica s del InputBox??Eske no concuerda nada kon lo ke estoy aciendo

Hola M_BuRNeD, buen día.     ¿A qué tipo de características te refieres?

[M_BuRNeD]

Basicamente a el color,el tamaño y ke solo puedo escribir una linea,larga,pero al fin al cabo una linea...En cuanto le doy al enter lo toma komo ke ya a terminado el mensaje

[ranefi]

Hola. Pues mira, con respecto al color y al tamaño no puedes hacer nada, pero si puedes obligar al InputBox a que sólo admita número, esto se hace así:

Agregar un CommandButton e REPLACEar el siguiente código:

Código:

Private Sub Command1_Click()
            Dim Numero As String
           
            Do
                        Numero = InputBox("Introduce un cochino número", _
                                    "Cochino número")
            Loop Until IsNumeric(Numero)
           
            MsgBox "El cochino número es ", _
                        vbInformation, "He aquí tu cochinada " & Numero
End Sub

Espero y esto te sirva. Como sea, podrías crear un InputBox a tu gusto, para estom, te recomiendo leer:
Para ver este enlace Registrate o Inicia Sesion

Crear Una DLL con Visual Basic

; también te recuerdo que puedes encontrar el código que tú puedes necesitar en la Biblioteca de código. Nos vemos.

[FemBr]

  q pasa CHIPBIOS con lo que me preguntas de que se supone q es

If a Mod 2 = 0 Then

lo que dice es, si a MOD de 2 es igual a cero
a= variable a introducir
MOD=es el primer reciduo, q saldra al dividir un numero (la variable) con otro (que es 2 en este caso) por ejemplo
si dividimos 10/2 y nos da 5 como resultado, pero lo q hace MOD es dar el  residuo de una divicion q en este caso es 0, y si damos un numero 7/2 nos da 3.5 si ponemos "If a Mod 2 = 0 Then" entonces todos los numeros que sean pares van a tener un residuo (MOD) igual a cero y si no entonces el residuo sera diferente de cero y entonces es impar.