Mensajes

HOLA!!!

Es cierto, yo lo vi ayer y anteayer.

GRACIAS POR LEER!!!

HOLA!!!

El arte de la guerra
http://es.wikipedia.org/wiki/El_arte_de_la_guerra

El Príncipe
http://es.wikipedia.org/wiki/El_Pr%C3%ADncipe

El Hombre que Calculaba
http://es.wikipedia.org/wiki/El_hombre_que_calculaba

GRACIAS POR LEER!!!

HOLA!!!

Lo que lastima la vista es tu falta de ortografía (demasiado se escribe), y además  podrías ver las cosas positivas también, no?'

Tranquilo, me equivoque, lo siento.

Si hubiera visto algo positivo ya estaria escrito en mi post.

Tenes algo que ver con el user que creo el post? por que si no es asi seria raro ya que es muy comun esa respuesta despues de una dura critica contra uno. Defensor de nada sos.

Calculo que solo en esos 2 puntos sin sentido se basa tu post.

Mucha suerte!

GRACIAS POR LEER!!!

HOLA!!!

¿No seria mejor asi?

Código (dos) [Seleccionar] Expandir

@echo off
Echo Introduezca los grados Celsius (§C)
set /P gradoscelsius=^>^>
Set /A gradoscelsius=%gradoscelsius:-=%
set /A resultado=%gradoscelsius%-273
Echo Resultado: %gradoscelsius% §C = %resultado% §K | MORE
pause

GRACIAS POR LEER!!!

[NimbOS]

HOLA!!!

Cumulonimbus = Nube

Nombre: CumulonimbOS o simplemente NimbOS

GRACIAS POR LEER!!!

HOLA!!!

Siempre es la misma fuente?

Guarda cada letra y revisa pixel por pixel, maneja un porcentage de tolerancia y el resto es ver que caracter se asemeja mas al guardado.

GRACIAS POR LEER!!!

HOLA!!!

La mejor api y mas simple que encontre:
http://wtfismyip.com/text

GRACIAS POR LEER!!!

HOLA!!!

En vb6 llenas la ram hasta el punto que no anda nada.

Deberias agregarle un sistema para que  luego de X ventanas abiertas (averigua como contar las que quedaron abiertas) empiece un Do : x= x + 1 - x - 1 + 5 : Loop asi te comes el procesador.

Aunque no se si como se ejecuta desde el Framework podes hacer eso.

GRACIAS POR LEER!!!

HOLA!!!

Deberias agregar el reto de reemplazo de operadores binarios:


And, Not, Xor y Or reemplazados:

Código (vb) [Seleccionar] Expandir

Private Function AndAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT     As Long
Dim Tam    As Long
Dim b1     As Long
Dim b2     As Long
b1 = Byte1
b2 = Byte2
   Do
       ReDim Preserve bit1(CT)
       If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
       If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
       bit1(CT) = CBool(b1 Mod 2)
       b1 = Fix(b1 / 2)
       CT = CT + 1
   Loop
   CT = 0
   Do
       If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
       If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
       ReDim Preserve bit2(CT)
       bit2(CT) = CBool(b2 Mod 2)
       b2 = Fix(b2 / 2)
       CT = CT + 1
   Loop
   If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
   If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
   Tam = UBound(bit1)
   ReDim bit3(Tam)
   For X = 0 To Tam
       If bit1(X) Then If bit2(X) Then bit3(X) = True
   Next
   For X = 0 To Tam
       If bit3(X) Then AndAlt = AndAlt + 2 ^ (X)
   Next

End Function

Private Function OrAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT     As Long
Dim Tam    As Long
Dim b1     As Long
Dim b2     As Long
b1 = Byte1
b2 = Byte2
   Do
       ReDim Preserve bit1(CT)
       If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
       If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
       bit1(CT) = CBool(b1 Mod 2)
       b1 = Fix(b1 / 2)
       CT = CT + 1
   Loop
   CT = 0
   Do
       If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
       If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
       ReDim Preserve bit2(CT)
       bit2(CT) = CBool(b2 Mod 2)
       b2 = Fix(b2 / 2)
       CT = CT + 1
   Loop
   If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
   If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
   Tam = UBound(bit1)
   ReDim bit3(Tam)
   For X = 0 To Tam
       If bit1(X) Then bit3(X) = True
       If bit2(X) Then bit3(X) = True
   Next
   For X = 0 To Tam
       If bit3(X) Then OrAlt = OrAlt + 2 ^ (X)
   Next

End Function

Private Function XorAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT     As Long
Dim Tam    As Long
Dim b1     As Long
Dim b2     As Long
b1 = Byte1
b2 = Byte2
   Do
       ReDim Preserve bit1(CT)
       If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
       If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
       bit1(CT) = CBool(b1 Mod 2)
       b1 = Fix(b1 / 2)
       CT = CT + 1
   Loop
   CT = 0
   Do
       If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
       If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
       ReDim Preserve bit2(CT)
       bit2(CT) = CBool(b2 Mod 2)
       b2 = Fix(b2 / 2)
       CT = CT + 1
   Loop
   If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
   If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
   Tam = UBound(bit1)
   ReDim bit3(Tam)
   For X = 0 To Tam
       If bit1(X) Then If bit2(X) = False Then bit3(X) = True
       If bit2(X) Then If bit1(X) = False Then bit3(X) = True
   Next
   For X = 0 To Tam
       If bit3(X) Then XorAlt = XorAlt + 2 ^ (X)
   Next

End Function

Private Function NotAlt(Byte1 As Long) As Long
   NotAlt = -(Byte1 + 1)
End Function

GRACIAS POR LEER!!!

HOLA!!!

Internet terminara muriendo por la falta de energia electrica o por que algun loquito o nacion encuentre algun factor critico y rompa todo.

(las intranets no estan incluidas en mi profecia)

GRACIAS POR LEER!!!