Yo en su día también hice uno super chapucero con capturas del original. Formateé y cuando reinstalé el antivirus que me puse (no recuerdo cual era) me lo detectaba como MSN Fake. Pero yo supongo que sería por el nombre del archivo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Tughack en 16 Diciembre 2007, 00:33 AM
Cualquier número entero mod 2 devuelve un 1 o un 0.
Bueno no sabia k solo estavas trabajando con numeros enteros.
De todas formas tu code estaba mal...
Seria asi:
a = Val(Text1.Text)
Select Case a Mod 2
Case 0
MsgBox ("Par")
Case Else
MsgBox ("Impar")
End Select
Cita de: C@ss¡@n¡ en 15 Diciembre 2007, 21:29 PM
Para eso que queres, podes hacer algo tan sencillo como esto:MsgBox IIf((Val(Text1.Text) Mod 2 = 0), "Par", "Impar")
¡Espero que os sirva! Saludos.
Citarse haces esto: a Mod 2 = 1, hay muchos resultados k no tiene resto = 1...
a = Val(TextBox1.Text)
Select Case a
Case (a Mod 2 = 0)
MsgBox("Par")
Case Else
MsgBox("Impar")
End Select
a = Val(TextBox1.Text)
Select Case a
Case (a Mod 2 = 1)
MsgBox("Impar")
Case Else
MsgBox("Par")
End Select
set var_time:Introduce la hora (HH:MM:SS):
@echo off
echo %1 | find "." > nul
if ERRORLEVEL 1 goto no
echo ¿Tiene una extensión? S¡.
goto fin
:no
echo ¿Tiene, tiene? No.
fin