Mensajes

HOLA!!!

La mia la hice en fireworks hace unos meses y me encanta el espia ahi mirando de reojo XD.

GRACIAS POR LEER!!!

HOLA!!!

Me extraña andas hace tiempo por estos lares XD...

Tenes que agregar una comprobacion de que url es la activa.

GRACIAS POR LEER!!!

[1]

HOLA!!!

Bueno gente, yo no podia entender como mi funcion no andaba asi que me puse a debuggear y vi un error en el test de BlackZero...

   '   //  Test de tiempos...
   For i = 0 To UBound(spli)
       bRes = IsNumeric(spli(i))
       If Not (bRes = isNumeric_Black(spli(i))) Then
           Debug.Print "Error: isNumeric_Black (""" & spli(i) & """)"
       End If
       If Not (bRes = Is_NumberT(spli(i))) Then
           Debug.Print "Error: Is_NumberT (""" & spli(i) & """)"
       End If
       If Not (bRes = IsNumeric_TGa(spli(i))) Then
           Debug.Print "Error: IsNumeric_TGa (""" & spli(i) & """)"
       End If
       If Not (bRes = IsNumeric_r338v2(spli(1))) Then
           Debug.Print "Error: IsNumeric_r338v2(""" & spli(i) & """)"
       End If
       If Not (bRes = IsNumeric_LeandroA(spli(1))) Then
           Debug.Print "Error: IsNumeric_LeandroA(""" & spli(i) & """)"
       End If
       
       If Not (bRes = IsNumeric_7913(spli(1))) Then
           Debug.Print "Error: IsNumeric_7913(""" & spli(i) & """)"
       End If
   Next

P.D: Mi Funcion no tira ni 1 solo error

PLAZO HASTA MAÑANA PARA QUE MODIFIQUEN LOS CODIGOS A SU GUSTO POR LAS NUEVAS REGLAS

NUEVAS TABLAS DE ERRORES CORREGIDAS:

Código [Seleccionar] Expandir

Error: IsNumeric_TGa ("1E+52")
Error: IsNumeric_LeandroA("3
0")
Error: IsNumeric_LeandroA("3000
0")
Error: IsNumeric_TGa ("1E+46")
Error: IsNumeric_TGa ("1E+46")
Error: IsNumeric_LeandroA("+1. .2")
Error: IsNumeric_TGa ("+")
Error: isNumeric_Black ("   
   
   
+.0 ")
Error: isNumeric_Black ("    +.0")


GRACIAS POR LEER!!!

HOLA!!!

Joo, negocio asegurado XD

jajajaj

No se olviden se requiere un campo magnetico para mantenerla suspendida al vacio en un envase muy resistente.

Osea necesitamos imanes de heladera, un envase de "palitos de la selva" (caramelos muy dificiles de abrir en verano XD solo arg) y una valvula de vacio que la adaptamos con un inflador de bicicleta...

Pero el tema es como conseguimos antimateria XD tendriamos que abrir un agujero de gusano y rogar no morir en el intento...

Muchachos vendan humo que les va a ir mejor XD sino me preguntan que hace una semana vendi un sistema de monitoreo para un kiosko XD.

GRACIAS POR LEER!!!

HOLA!!!

Antes de hacer la competencia les muestro donde sus funciones no funcionan igual que IsNumeric... Por favor corrijan y luego testeamos:

REVISEN EL SIGUIENTE POST

GRACIAS POR LEER!!!

HOLA!!!

No crei que a nadie se le ocurriera eso XD mi forma es Casi igual, justo estaba hablando con Raul338 y me dijo que era Magia Negra eso XD Pero me gusta asi...

En fin... Mi codigo:

Código (vb) [Seleccionar] Expandir

Private Function IsNumeric_7913(str As String) As Boolean
Dim x As Double
On Error GoTo Nonum
    x = str
    IsNumeric_7913 = True
Nonum:
End Function

GRACIAS POR LEER!!!

HOLA!!!

Viendo como ha decaido la actividad y nivel en el foro, me propongo aunque sea a que las nuevas mentes que hay aqui hagan un pequeño reto que les propongo...

El Reto es hacer una funcion que remplace efectivamente a la funcion IsNumeric que viene de fabrica en vb...

Deberan usar para nombrar la funcion un metodo como este:

Código (vb) [Seleccionar] Expandir

Private Function IsNumeric_SuNickReducido(str As String) As Boolean
'Ejemplos:
'Raul338:
Private Function IsNumeric_r338(str As String) As Boolean
'79137913:
Private Function IsNumeric_7913(str As String) As Boolean

Ejemplos de lo que devuelve la funcion original:

Código [Seleccionar] Expandir

IsNumeric("asdf") ->False
IsNumeric("a12f") ->False
IsNumeric("12,12") ->True
IsNumeric("12.12") ->True
IsNumeric("12,23,34") ->False
IsNumeric("133.23.330") ->True
IsNumeric("36.658,30") ->True
IsNumeric("81,838.59") ->True


Espero que hayan entendido, TODOS pueden participar...

Es un reto dentro de todo simple...

Cuando esten todas las funciones se competira para encontrar al que hizo el codigo mas rapido(se mide con ctiming), luego se tomara de referencia la funcion original para ver si alguien la supera.

Notas:
·Las funciones y variables booleanas se inicializan en False.
·Se recomienda usar APIs.
·Se recomienda usar InStr.
·Se recomienda utilizar arrays de bytes.
·Se vale usar BadTypeConvert // EvilTypeConvert
·Recuerden que el tipo numerico mas rapido en vb es el Entero Largo (Long).


GRACIAS POR LEER!!!

HOLA!!!

Jajaja, pero con un reactor del tamaño de un frigobar podes alimentar varias casas, tendrias que tirar mucha electricidad a tierra para abastecer solo a tu casa XD.

GRACIAS POR LEER!!!

HOLA!!!

http://www.danimannx.com/rafa/bomba/bomba.html

GRACIAS POR LEER!!!

HOLA!!!

Si y muy malo

GRACIAS POR LEER!!!